第七章AutoCAD软件的二次开发.pptVIP

第七章 AutoCAD软件的二次开发 Visual LISP简介 AutoLISP程序设计语言 7. 3 AutoLISP与AutoCAD的通信 例： (setq p (0 0)) (getcorner p input a corner:) 例： (initget 1 Yes No) (setq x (getkword Are you sure? (Yes or No) )) (if (= Yes x) (princ \nUser press Yes) (princ \nUser press no)) 例： (initget 6) (setq r (getreal 输入半径) (command circle 0,0 r) 例： (getpoint (0 0) input other pt) 四、几何工具 7. 3 AutoLISP与AutoCAD的通信 1. angle函数：计算直线与x轴的夹角（弧度）。 2. distance函数：计算2点间的距离。 3. polar函数：依靠极坐标获得1个点。 4. insert函数：计算2条直线的交点。 例： (setq pt1 (3.0 6.0 0.0)) (setq pt2 (5.0 2.0 0.0)) (setq base (1.0 7.0 0.0)) (setq rads (angle pt1 pt2)) (setq len (distance pt1 pt2)) (setq endpt (polar base rads len)) 5. osnap 函数：对象捕捉函数。 例： (setq pt2 (osnap pt1 “midp”) 捕捉靠近pt1对象的中点 例： (setq pt2 (osnap pt1 _end,_int)) 捕捉靠近pt1对象的端点或交点 6. aperture系统变量确定在使用对象捕捉时，选择点与对象允许的接近程度。 7. 3 AutoLISP与AutoCAD的通信 五、数据转换 1. rots函数：将实数转换为字符串。 实数的单位由lunits系统变量控制 实数的精度由luprec系统变量控制 结果字符中如何显示前面和后面的0由尺寸变量dimzin控制 例： (setq x 17.5) (setq str \nValue formatted as ) (setq fmtval (rtos x 1 4)) ;模式1表示科学计数法 (princ (strcat str fmtval)) (setq fmtval (rtos x 2 4)) ;模式2表示10进制表示 (princ (strcat str fmtval)) (setq fmtval (rtos x 3 4)) ;模式3表示工程表示 (princ (strcat str fmtval)) (setq fmtval (rtos x 4 4)) ;模式4表示建筑表示 (princ (strcat str fmtval)) (setq fmtval (rtos x 5 4)) ;模式5表示分数表示 (princ (strcat str fmtval)) 格式：(rtos number [mode [precision]]) 2. Distof函数：将字符串转换为实数。 格式：(Distof string [mode]) 7. 3 AutoLISP与AutoCAD的通信 例： (distof 1.7500E+01 1) ;模式1表示科学计数法 1.7500E+01 (distof 17.50 2) ;模式2表示10进制表示 17.50 (distof 1‘-5.50\ 3) ;模式3表示工程表示 1-5.5 (distof 1‘-5 1/2\ 4) ;模式4表示建筑表示 1-5 1/2 (distof 17 1/2 5) ;模式5表示分数表示 注意反斜杠 \ 的作用 7. 3 AutoLISP与AutoCAD的通信 3. angtos函数：将角度转换为字符串。 例： (setq ang 3.14159 str2 \nAngle formatted as ) (setq fmtval (angtos ang 0 0)) ;模式0表示角度 (princ (strcat str2 fmtval)) (setq fmtval (angtos ang 1