《AutoLISP二》PPT课件.ppt

《《AutoLISP二》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《AutoLISP二》PPT课件.ppt（78页珍藏版）》请在装配图网上搜索。

1、第四节 交互输入函数 和屏幕输出函数 GET族函数 1、整数输入函数（ getint） 格式： (getint ) 功能：接受用户输入的一个整数并返回该整数。 2、实数输入函数（ getreal） 格式： (getreal ) 功能：接受用户输入的一个实数并返回该实数。 3、角度输入函数（ getangle） 格式： (getangle ) 功能：获取用户输入的一个角度值，并返回弧度形式的 该角度值。 4、距离输入函数（ getdist） 格式： (getdist ) 功能：获取用户输入的一个距离值，并返回该距离值。 5、点输入函数（ getpoint） 格式： (getpoint ) 功能：

2、获取用户输入的点，并返回该点。 6、字符串输入函数（ getstring） 格式： (getstring ) 功能：获取用户输入的一个字符串，并返回该字符串。 如果提供 且值不为 nil，那么输入的字符串可以 包括空格且必须按 ENTER键结束。否则，输入的字符串 以空格键或 ENTER键结束。 7、输入控制函数（ initget） 格式： (initget ) 功能：控制随后的输入值及函数接受的关键字。 1、用户输入参数限制： 1不允许输入空响应； 2不允许输入 0； 4不允许输入负； 8不检查图形边界； 32显示虚线框； 64忽略 Z坐标； 128传递任意键盘输入。 例如： (initge

3、t (+ 1 2 4) (getint “n输入你的年龄 :”) 其它输入函数 1、 read-char函数 格式：（ read-char ） 功能：从键盘或打开的文件中读入一个字符，并将该 字符转换成一个十进制的 ASCII码值返回。 2、 read-line函数 格式：（ read-line ) 功能：从键盘或打开的文件中读入一行字符串，返回 读 到的字符串。 第六节 屏幕和文件输出函数 1、 prin1 格式：（ prin1 ） 功能：在屏幕上打印 ，并返回 。打 印表达式前不换行，打印结束后不留空格，对字符串打 印 时带定界符，对控制符原样照印。 2、 princ 格式：（ princ

4、 ） 功能：与 PRIN1类似，但不输出字符串定界符，打印前 不换行，打印后不空格，对控制符能执行控制功能（如 n 回车、 r 返回本行的开头、 t 光标移到下一个标准打 印位置、 007 响铃） 3、 print 格式：（ print ） 功能：与 PRIN1类似，打印字符串带定界符，打印前自 动换行，打印后自动空一格，控制符照原样印出。 4、 write-char 格式：（ write-char ） 功能：将 所代表的 ASCII码字符写到屏幕或文件中 ，返回该数值。写字符前不换行，写完后不回车，字符 不带定界符，对控制字符有执行功能。 5、 write-line 格式：（ write-l

5、ine ） 功能：与 WRITE-CHAR类似，写出的字符串不带定界 符，写字符前不回车，写完后回车换行，对控制字符有 执行功能。 6、 prompt 功能：在屏幕提示区显示一个字符串 。 格式： (prompt msg) 该函数只在屏幕上显示字符串 msg。 第四章 函数定义与 程序结构 第一节 定义有名函数 一、函数的定义（ defun） 格式： (defun ) 功能： defun以 作为名称定义一个函数。在函数 名称之后是一个变元列表，也可以是一个空表。表中可 以用一 个斜杠来定义一个或几个局部变量（任选），在 变元表 的后面是一个或多个表达式，为函数体。 说明： 必须是符号原子。 是

6、所定义函数的参数，包括两部分，即形参 和局部变量，这两部分中间必须用“ /”分隔开，斜杠的 两边各有一个空格。 可以是任何形式的 AutoLISP表达式。 defun的返回值为定义的函数名称。 defun是一个特殊的函数，它不对任何一个表达式或变 量求值，函数的功能要靠调用来实现。 举例： (defun add10(x) (+ x 10) 其中： add10为函数名， x为自变量。 (defun dots(x y / temp) (setq temp (strcat (itoa x) “,”) (strcat temp (itoa y) ) 其中： x、 y、 temp均为局部变量。 (def

7、un addxy(x y) (setq z (+ x y) ) 其中： x、 y为局部变量， z为全局变量。 注意几点： 1、如果定义的函数同名，只有最后装入的函数有效。 2、函数体内的局部变量如果没有赋值，自动取为 nil。 3、函数名的后面一定要有一个表，可以是空表。 二、函数的调用 函数被调用时，通过哑实结合使变元表中的变元变量获 取值，如果函数计算函数体中的表达式，返回最后一个 表达式的值。 第二节 增加和修改 AutoCAD命令 用 defun定义的函数可以象使用 AutoCAD命令一样方便， 要做到这一点，需要遵守以下规则： 1、函数名称的形式必须是 c： xxx 2、函数的定义必

8、须带空表 例 1：编写绘正方形命令。 (defun c:psquare() (setq pt1 (getpoint Lower left corner:) (setq len (getdist pt1 Length of one side:) (setq pt2 (polar pt1 0.0 len) pt3 (polar pt2 (/ pi 2.0) len) pt4 (polar pt3 pi len) (command pline pt1 pt2 pt3 pt4 c) ) 例 2：绘键槽断面命令。 1、分析 图形如图所示： 2、输入参数 插入点 p0 旋转角 alf 轴径 d 键槽宽度

9、B 键槽 dt (defun jiancao() (setq p0 (getpointn插入点 :) (setq alf (getangle p0n旋转角 :) (setq d (getdistn轴径 d:) (setq B (getdistn键槽宽 B:) (setq dt (getdist n键槽深度 dt:) (setq r (* 0.5 d) b1 (* 0.5 B) (setq L (sqrt (- (* r r)(* b1 b1) (setq sit (atan (/ b1 L) (setq p1 (polar p0 (+ alf sit) r) 程 序 (setq p2 (pol

10、ar p0 (+ pi alf) r) (setq p3 (polar p0 (- alf sit) r) (setq p4 (polar p3 (+ alf pi) (- (+ L r) dt) (setq p5 (polar p1 (+ alf pi)(- (+ L r) dt) (command pline p1 a s p2 p3 l p3 p4 p5 p1 ) (command hatch u 45 2 l ) ) 第五章 控制结构 第一节 逻辑测试函数 = 功能：（等于）比较参数是否相等。 格式： (= numstr numstr .) 参数： numstr 数值型或字符串型。 返

11、回值：如果所有参数值相等则返回 T； 否则返回 nil。如果仅提供一个参数，函 数返回 T。 功能：（小于）如果每个参数值都小于 它右边的参数则返回 T，否则返回 nil。 格式： ( numstr numstr .) 参数： numstr 数值型或字符串型。 返回值：如果每个参数值都小于它右边 的参数则返回 T，否则返回 nil。如果仅提 供一个参数，函数返回 T。 = 功能：（小于或等于）如果每个参数值都小于 或等于它右边的参数则返回 T，否则返回 nil。 格式： ( 功能：（大于）如果每个参数值都大于 它右边的参数则返回 T，否则返回 nil。 格式： ( numstr numstr

12、.) 参数： numstr 数值型或字符串型。 返回值：如果每个参数值都大于它右边 的参数则返回 T，否则返回 nil。如果仅提 供一个参数，函数返回 T。 = 功能：（大于或等于）如果每个参数值都大于 或等于它右边的参数则返回 T，否则返回 nil。 格式： (= numstr numstr .) 参数： numstr 数值型或字符串型。 返回值：如果每个参数值都大于或等于它右边 的参数则返回 T，否则返回 nil。如果仅提供一 个参数，函数返回 T。 /= 功能：（不等于）比较参数是否值不相等。 格式： (/= numstr numstr .) 参数： numstr 数值型或字符串型。 返

13、回值： 如果没有两个相邻的参数值相等则返回 T；否 则返回 nil。如果仅提供一个参数，函数返回 T 。 and 功能：返回表达式的逻辑与（ AND）运算结果 。 格式： (and expr .) 参数： expr 任意表达式。 返回值：如果任何一个表达式的求值结果为 nil ，本函数就停止进一步的求值并返回 nil，否则 返回 T。如果不带参数调用 and，它返回 T。 or 功能：返回对表达式进行逻辑或 (OR)运算的结 果。 格式： (or expr.) or函数对表达式表中的表达式从左到右进行求 值，并查找非 nil表达式。 参数： expr 要计算的表达式。 返回值：如果存在非 ni

14、l表达式则返回 T，如果 所有表达式均为 nil，或未提供参数，则返回 nil 。 not 功能：检查一个项的求值结果是否为 nil。 格式： (not item) 一般， null函数用于表，而 not函数用于其他数 据类型和某些类型的控制函数。 参数： item AutoLISP表达式。 返回值：如果 item的值等于 nil，则返回 T，否 则返回 nil。 zerop 功能：检查一个数的值是否为 0。 格式： (zerop number) 参数： number 数值。 返回值：如果 number等于零则返回 T，否 则返回 nil。 minusp 功能：检查某个数是否是负数。 格式：

15、(minusp num) 参数： num 数值。 返回值：如果 number为负则返回 T，否则 返回 nil。 numberp 功能：检查某个项是否是实数或整数。 格式： (numberp item) 参数： item AutoLISP表达式。 返回值：如果 item是实数或整数则返回 T ，否则返回 nil。 null 功能：检查某项的值是否设置为 nil。 格式： (null item) 参数： item AutoLISP表达式。 返回值：如果 item的值等于 nil，则返回 T ，否则返回 nil。 第二节 条件分支函数 一、基本条件分支函数（ COND） 格式： (Cond ( e

16、11 e12 .) ( e21 e22 .) ( en1 en2 .) ) 功能： 按顺序对自变量表的 进行求值，如果不 为 nil，则对表中的表达式进行求值，并把最后一项表达 式的值作为返回值返回。 说明： 1、 Cond函数的自变量无限制。每个自变量都是一个表 . 2、自变量表中可以只有测试式。 3、测试式可以是任何类型的常数、变量或表达式。 4、测试式后的表达式的个数无限制。表达式可以是任何 类型的常数、变量或表达式。 5、常用逻辑常数 T作为最后一个表的测试式，以防止“ 漏底”现象。 例 1： 实现分段函数 y x x x x x 1 4 1 5 12 9 4 3 2 . sin ln

17、 x x x 1 1 0 0 1，当 ，当 ，当 ，其它 ( d e f u n m 1 ( ) ( s e t q x ( g e t r e a l n E n t e r a r e a l n u m b e r : ) ) ( c o n d ( ( x - 1 ) ( s e t q y 1 . 0 ) ) ( ( = x 0 . 0 ) ( s e t q y ( + ( * 4 . 0 x x x ) 1 . 5 ) ) ) ( ( x 1 . 0 ) ( s e t q y ( + ( s i n x ) ( l o g x ) ) ) ( T ( s e t q y ( -

18、 ( * 1 2 . 0 x x ) ( * 9 . 0 x ) 4 . 0 ) ) ) ) ( p r i n t y ) ( p r i n c ) ) 例 2： (cond (minusp a) (log (- a) (zerop a) (T (log a) ) 二、条件函数（ IF） 格式： (if ) 功能： 对 进行求值，如果不为 nil，则执行表达 式 1，否则执行表达式 2。 说明： 1、测试式可以是任何类型的常数、变量或表达式。 2、表达式也可以是任何类型的常数。变量或表达式。 3、表达式 2为任选项，如果没有，当测试式为 nil时，返 回 nil。 4、 IF函数的自变量最

19、多只能有三个。 例： 如果一个三位数等于它每一个数字的立方和，则此 数称为“水仙花数”，例如 153。编写程序，判断从键 盘输入的一个数是否是一个水仙花数，是，则打印 YES ，否则，打印 NO。 ( d e f u n e x a - 1 ( ) ( s e t q N ( g e t i n t n E n t e r a n u m b e r : ) ) ( s e t q N 1 ( / N 1 0 0 ) ) ( s e t q N 2 ( / ( - N ( * N 1 1 0 0 ) ) 1 0 ) ) ( s e t q N 3 ( r e m N 1 0 ) ) ( i f

20、 ( = ( + ( * N 1 N 1 N 1 ) ( * N 2 N 2 N 2 ) ( * N 3 N 3 N 3 ) ) N ) ( p r o g n ( p r i n t y e s ) ( p r i n c 0 0 7 ) ) ( p r i n t n o ) ) ) 第三节 循环函数 一、 WHILE函数 格式： (while . ) 功能： 先计算测试式的值，如果不为 nil，则执行后面的 表达式，然后重新计算测试式，一直循环到测试式为 nil 为止，然后返回最后计算的表达式的值。 说明： 1、循环体的表达式个数无限制。 2、循环可以嵌套。 举例：编程绘制 y=sin(

21、x)在 0， 2区间的曲线。 ;lp曲线的左端点 ;n函数在一个周期内的正弦波数 (defun drawsin (/ lp lpx lpy n x step) (initget 1) (setq lp (getpoint n起点 :) lpx (car lp) lpy (cadr lp) ) (initget 7) (setq n (getint n输入正弦波数 :) (setq x 0 step 0.02 ) (command line lp (list (+ lpx (* 2 pi) lpy) ) (command line (list lpx (+ lpy 2) (list lpx (-

22、 lpy 2) ) (command pline) (while ( x (* 2 pi) (command (list (+ lpx x) (+ lpy (sin (* n x) (setq x (+ x step) );while (command) (princ) );defun 二、 REPEAT函数 格式： (repeat . ) 功能： 对循环体中的每一个表达式进行指定次数的求值 计算，并返回最后一个表达式的值。 举例： 1 、 删 除 最 后 画 出 的 5 个 实 体 ( r e p e a t 5 ( c o m m a n d e r a s e L ) ) 2 、 输 入

23、 1 0 个 整 数 ， 打 印 出 其 中 能 够 被 3 整 除 的 数 ( r e p e a t 1 0 ( s e t q n ( g e t i n t n I n t e g e r : ) ) ( i f ( = ( r e m n 3 ) 0 ) ( p r i n t n ) ) ) 3、设当前目录下有一个图形文件为 a1.dwg，根据用户 要求的个数，每个插入图形的方向角，按原大小插入到 屏幕上。 ( d e f u n r 2 ( ) ( s e t q N ( g e t i n t n N u m b e r : ) ) ( r e p e a t N ( s e

24、t q p ( g e t p o i n t n W h e r e ? ) ) ( s e t q a ( g e t a n g l e n W h i c h w a y ? ) ) ( c o m m a n d i n s e r t a 1 p 1 1 a ) ) ) 第四节 顺序控制函数 (PROGN) 格式： (progn .) 功能：按顺序计算每个表达式，返回最后一个表达式的 值。该函数用于只能有一个表达式的场合，实现多个表 达式的计算。 举例： (if (= a b) (progn (setq a (+ a 10) (setq b (- b 10) ) ) 第四节 字符串

25、处理函数 一、测量字符串长度函数 格式： (strlen ) 功能：以整数形式返回一个字符串中字符的个数。如果 指定多个 string 参数， strlen 返回所有参数的总长度。如 果省略参数或输入空字符串， strlen 返回 0。 例： (strlen abcd) 返回 4 (strlen ab) 返回 2 (strlen one two four) 返回 10 (strlen) 返回 0 (strlen ) 返回 0 二、数、串互换函数 1、整型数转换成字符串函数 格式： (itoa ) 功能：将 转换为字符串，并返回该字符串。 例 (itoa 33) 返回 33 (itoa -17)

26、 返回 -17 2、数字串转换成整型数函数 格式： (atoi ) 功能：将 转换成整型数，并返回该整型数。 例 (atoi 97) 返回 97 (atoi 3) 返回 3 (atoi 3.9) 返回 3 3、数字串转换成实型数函数 格式： (atof ) 功能：将 转换成实型数，并返回该实型数。 例 (atof 97.1) 返回 97.1 (atof 3) 返回 3.0 (atof 3.9) 返回 3.9 4、实型数转换成字符串函数 格式： (rtos ) 功能：根据 和 参数和系统变量 UNITMODE、 DIMZIN、 LUNITS 和 LUPREC 的设置 ，将 转换为字符串，并返回该

27、字符串。 为 整数 ， 指定现行单位模式 。 mode 的取值对 应于 AutoCAD 系统变量 lunits 的允许值 ， 如下所示： 1 科学 2 小数 3 工程 （ 英尺和十进制英寸 ） 4 建筑 （ 英尺和分数英寸 ） 5 分数 ， 整数 ， 指定精度 。 例 (setq x 17.5) (rtos x 1 4) 1.7500E+01 (rtos x 2 2) 17.50 (rtos x 3 2) 1-5.50 (rtos x 4 2) 1-5 1/2 (rtos x 5 2) 17 1/2 (rtos x 3 2) 15.50 (rtos x 4 2) 15-1/2 (rtos x

28、5 2) 17-1/2 5、角度转换成字符串函数 格式： (angtos ) 功能：将以弧度为单位的 根据 和 转换成字符串，并返回该整型数。 如果省略 ， 函数将使用系统变量 AUNITS 的当前 值 。 可指定为如下值： 0 （ 十进制 ） 度 1 度 /分 /秒 2 百分度 3 弧度 4 勘测单位 用于指定返回精度所需的小数位数的整数 。 如果省略该 参数 ， 函数将使用系统变量 AUPREC 的当前值 。 angtos 函数接受负的 angle 参数 ， 但它总是在执行指定 转换之前将其还原成 0 至 2pi 弧度之间的正值 。 例 (angtos 0.785398 0 4) 45.0

29、000 (angtos -0.785398 0 4) 315.0000 (angtos -0.785398 4) S 45d E 注意 使用 angtos 函数来得到任意角度值 （ 与 ANGBASE 不相关的角度 ） 的应用程序 ， 应该检查和考虑系统变量 ANGBASE 的值 。 三、字符串连接函数 格式： (strcat ) 功能：将 连接成一个字符串并返回该字符串。 例 (strcat a bout) about (strcat a b c) abc (strcat a c) ac (strcat) 四、字符串截取函数 格式： (substr ) 功能：将 从 的字符开始截取 个 字符

30、，如果没有指定 ，就截取到字符串结束，并 返回截取的字符串。注意 string 中的第一个字符的序号 为 1，这和其他那些处理表元素的函数（如 nth 和 ssname）不同：它们将第一个元素的序号视为 0。 例 (substr abcde 2) bcde (substr abcde 2 1) b (substr abcde 3 2) cd 五、字符串大小写转换函数 格式： (strcase ) 功能： 根据 将 中的全部字符转换为大写 或小写，并返回转换后的字符串。 省略或值为 nil，转换为大写， 存在且值不为 nil，转换为小 写。 例 (strcase Sample) SAMPLE (

31、strcase Sample T) sample strcase 函数将正确处理当前所配置的字符集的大小写映 射 。 举例 例 1：编写一个绘制水平直径尺寸的函数。 (defun C:dimhor (/ s p1 p2 p3 d1 d old) (setvar dimzin 0) (initget 1) (setq p1 (getpoint n指定第一条尺寸界线位置 :) (initget 1) (setq p2 (getpoint n指定第二条尺寸界线位置 : ) (initget 1) (setq p3 (getpoint n指定尺寸线位置 :) (princ (strcat n尺寸文字

32、: ) ) (setq d (getstring t) (command dim hor p1 p2 p3 (strcat %c (if (= d ) d1 d) exit ) (princ) ) 例 2：编写一个程序，根据用户输入的行数、列数和行距 、列宽绘制表格。 ;- ;本程序根据输入的行数、行距、列数、列宽在用户指定位置绘 ;制一个表格。 ;变量说明： ;nrow行数， lrow行距 ;ncol列数， lcol列宽 ;p表格左下角点 ;- (DEFUN tab (/ nrow lrow ncol lcol p px py) (SETQ nrow (GETINT n行数 :) lrow

33、(GETREAL n行距 :) ncol (GETINT n列数 :) lcol (GETREAL n列宽 :) p (GETPOINT n表格左下角点 :) px (CAR p) py (CADR p) );setq (SETQ i 0) (REPEAT (1+ nrow) (COMMAND _.line (LIST px (+ py (* i lrow) (LIST (+ px (* ncol lcol) (+ py (* i lrow) ) (SETQ i (1+ i) );repeat (SETQ i 0) (REPEAT (1+ ncol) (COMMAND _.line (LIST

34、 (+ px (* i lcol) py) (LIST (+ px (* i lcol) (+ py (* nrow lrow) ) (SETQ i (1+ i) );repeat );defun 例 3：绘制金刚石图案通用程序。 对中心点坐标为（ x0， y0）， 半径为 R的正 n边形，其顶点 坐标为： xi x R i n yi y R i n 0 2 0 2 c os si n 多边形的第 i个顶点，只需和第 i+1、第 i+2、 .、第 n个顶 点相连，而前面的 i-1个顶点，已经和第 i个顶点连过。 ( d e f u n C : P O L Y P A T ( ) ( s e t

35、 v a r B L I P M O D E 0 ) ( s e t v a r C M D E C H O 0 ) ( s e t q p t l ( ) ) ( s e t q p c ( g e t p o i n t n C e n t e r p o i n t : ) ) ( i n i t g e t 7 ) ( s e t q r ( g e t d i s t p c n R a d i u s : ) ) ( i n i t g e t 7 ) ( s e t q n ( g e t i n t n T h e n u m b e r o f s i d e s : ) )

36、 ( s e t q t h i n c ( / ( * 2 p i ) n ) ) ( s e t q t h e t a 0 . 0 ) ( s e t q i 1 ) ( w h i l e ( = i n ) ( s e t q t h e t a ( + t h e t a t h i n c ) ) ( s e t q x ( + ( c a r p c ) ( * r ( c o s t h e t a ) ) ) ) ( s e t q y ( + ( c a d r p c ) ( * r ( s i n t h e t a ) ) ) ) ( s e t q p t l (

37、 c o n s ( l i s t x y ) p t l ) ) ( s e t q i ( 1 + i ) ) ) ( s e t q p t l ( r e v e r s e p t l ) ) ( s e t q i 0 ) ( w h i l e ( i ( 1 - n ) ) ( s e t q n c ( r e m ( 1 + i ) 1 6 ) ) ( i f ( = n c 0 ) ( s e t q n c 7 ) ) ( c o m m a n d c o l o r n c ) ( s e t q j ( 1 + i ) ) ( w h i l e ( j n ) ( c o m m a n d l i n e ( n t h i p t l ) ( n t h j p t l ) ) ( s e t q j ( 1 + j ) ) ) ( s e t q i ( 1 + i ) ) ) ) 作 业 1、修改例 2表格生成函数，使其可以完成装配图 明细栏的自动生成。要求：只需输入零件个数。 2、编写函数实现图层、字体的自动创建： 图层：粗实线层、细实线层、中心线层、虚线层、 尺寸标注层等，为图层指定线型和颜色。 字体样式：符合国标的工程标注字体，仿宋字体。 标题栏