AutoLISP程序语言设计说明.pptVIP

练习3：用AutoLISP语言编写一个名为“tuxing”的自定义命令函数。要求执行此函数时使用键盘输入一个圆的圆心坐标和半径值，然后自动绘出该圆、两条中心线和与该圆同心的正方形（边长等于圆的半径）。 (defun c:tuxing ( / pc r p1 p2 p3 p4 xc yc) (setq pc (getpoint \n 输入圆心坐标点:)) (setq r (getreal \n 输入圆的半径:)) (setq p1 (polar pc pi (+ r 3))) (setq p2 (polar pc 0 (+ r 3))) (setq p3 (polar pc (/ pi 2)(+ r 3))) (setq p4 (polar pc (/ (* pi 3) 2) (+ r 3))) (command circle pc r) (command line p1 p2 ) (command line p3 p4 ) (setq xc (car pc) yc (cadr pc)) (setq p5 (list (- xc r) (- yc r))) (setq p6 (list (+ xc r) (- yc r))) (setq p7 (list (+ xc r) (+ yc r))) (setq p8 (list (- xc r) (+ yc r))) (command line p5 p6 p7 p8 C) ) pc p2 p1 p3 p4 p5 p6 p7 p8 p p0 p5 p1 p4 p8 p6 p9 p2 p10 p3 p7 练习4：编写参数化绘制平键的Autolisp自定义函数。 练习5：编写参数化绘制带键槽的轴段横截面图形的Autolisp自定义函数。 知识回顾Knowledge Review (3)数据类型转换函数 1)(type 项) 功能：判断所列项的数据类型，其值为下列类型之一。 INT(整型数) REAL(实型数) SYM(符号) STR(字符串) LIST(表) SUBR(内部函数) FILE(文件描述符) 示例： Command：(type (set a 25)) LIST Command：(type *) SUBR Command：(type(setq f(open jq.txt r))) FILE 2)(fix 数) 功能：将实型数去掉小数部分化为整型数。示例： Command：(fix 2.13) 2 3)(flaot 数) 功能：将整型数化为实型数。示例： Command：(flaot 2) 2.0 4)(itoa 整型数) 功能：将整型数化为字符串。示例： Command：(itoa 28) 28 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：