AutoLISP程序语言设计.ppt

p p0 p5 p1 p4 p8 p6 p9 p2 p10 p3 p7 练习4：编写参数化绘制平键的Autolisp自定义函数。 练习5：编写参数化绘制带键槽的轴段横截面图形的Autolisp自定义函数。 5)(atoi 字符串) 功能：将字符串化为整型数。示例： Command：(atoi 415) 415 6)(atof 字符串) 功能：将字符串化为实型数。示例： Command：(atof 5) 5.0 7)(rtos 数) 功能：按着AutoCAD系统变量LUNITS和LUPREC定义的记数方式和精度将数转化为字符串。示例：设LUNITS=2(十进制)，LUPREC=4 Command：(rtos 3.7) 3.7000 8)(angtos 角度) 功能：按着AutoCAD系统变量LUNITS和LUPREC定义的记数方式和精度将弧度数转化为字符串。示例：设LUNITS=0(度)，LUPREC=4 Command：(angtos 3.14) 180 9)(ascii 字符串) 功能：求出字符串第一个字符的ASCII值。示例： Command：(ascii Access) 65 10)(chr 数) 功能：求出整型数所代表的ASCII字符。示例： Command：(chr 65) A (4)字符串处理函数 1)(strcat 字符串1 字符串2 …) 功能：将所列的字符串合并为一个字符串。示例： Command：(strcat C A D) CAD 2)(strlen 字符串) 功能：求出字符串的长度。示例： Command：(strlen AutoCAD) 7 3)(substr 字符串 起始位 [长度]) 功能：按要求求出字符串的一个子串。示例： Command：(substr AutoCAD 5 3) CAD (5)表处理函数 1)(list 表达式 …) 功能：用所列表达式组成一个表。示例： Command：(list C A D) (C A D) Command：(list 1.2 2.3) (1.20 2.30) 2)(append 表1 表2 …) 功能：将所列的表合并成一个新表。示例： Command：(append (C) (A) (D)) (C A D) 3)(cons 新元素 表) 功能：将新元素加到表的开头，形成一个新表。示例： Command：(cons C (A D)) (C A D) Command：(cons (A C) (A D)) ((A C) A D) 4)(subst 新元素 旧元素 表) 功能：用新元素替换表中的旧元素。示例： Command：(subst M D (C A D)) (C A M) 5)(assoc 关键字 关联表) 功能：在关联表中求出指定关键字的子表。示例： Command：(setq alst ((new 550) (old 162))) ((new 550)(old 162)) Command：(assoc new alst) (new 550) 6)(last 表) 功能：求出表的最后一个元素。示例： Command：(last (Auto CAD)) CAD Command：(last (Auto(CAD 14))) (CAD 14) 7)(car 表) 功能：求出表的第一个元素。示例： Command：(car (Auto (CAD 14))) Auto 8)(cdr 表) 功能：求出表中去掉第一元素后的剩余表。示例： Command：(cdr (Auto (CAD 14)hz)) ((CAD 14)hz) 若已知一点pt：(setq pt(list 2.0 3.0 5.0))，则可用三个函数分别得到该点的x、y、z分量值。 Command：(car pt)；返回点变量pt的x分量2.0。 Command：(cadr pt)；返回点变量pt的y分量3.0。 Command：(c