计算机辅助制图16

1、第十六章 AutoLISP程序提升 本章要点： 掌握lisp程序中判别和循环的功能函数。 If判断式子应用技巧。 学会利用lisp子程序完成工作。 利用lisp编写程序绘制高级图形。16-1 循环与判断的应用 1、判断式、循环相关的功能函数（if ）检验判断结果，如果为真，执行表达式1，否则执行表达式2；如果各个表达式超过一行，则必须要配合progn函数连接为一整组。(defun c:bidaxiao() (setq a(getintn请输入A值：) (setq b(getintn请输入B值：) (if( a b) (princa b) (princa rad 0) (progn (comma

2、ndcircle cenpt rad) (commandchprop (entlast)c 3 ) (princn画圆任务完成！) ) (progn (alert“半径有问题！”) 出现警告界面 (princ“n画圆任务完成！”) 画圆任务失败 ) ) (prin1) ) Alert 函数 （alert） 显示一个含有错误或者警告信息的对话框。 （alert“该函数无法使用”） （alert“该函数是错误函数！”）Repeat 次数 重复执行N次循环内的表达式(defun c:xunh() (setq snum 1) (setq s_all 0) (repeat 100 (setq s_all

3、(+ snum s_all) (setq snum(1+ snum) ) (princ1+2+3.+100=) (princ s_all) (prin1) )While 当判断式成立时，执行表达式内容，直到判断式不成立为止才跳出该循环；若循环内的表达式无法让判断式不成立，则此循环将变成无限循环。(defun c:xunh1() (setq snum 1) (setq s_all 0) (while (= snum 100) (setq s_all(+ snum s_all) (setq snum(1+ snum) ) (princ1+2+3.+100=) (princ s_all) (prin

4、1) )Cond多条件的IF整合功能 多条件式的if整合功能，由上而下逐一比较，判断式成立，则执行其后的表达式，最后若判断式皆不成立，且存在有t值对应，则执行t后对应的其他表达式。 （cond （） （） 。 （t ） 程序实例 (defun c:pingfen() (setq score(getreal “ 输入autocad期末总成绩：) (cond (= score 100)(princn满分，牛！)(= score 60)(princn不错，小牛！)(= score 70)(princn不差，牛犊！)(= score 60)(princn差一下就挂了，菜了！)(t (princn你挂了

5、，按esc继续努力！) 2、if判断式应用技巧 能够根据输入的图纸幅面自动绘制指定大小的矩形图框。程序实例(defun c:tufu() (setvar cmdecho 0) (setq size(getstring 请输入图幅大小A0，A1，A2，A3，A4，:) (if(= size ) (setq size A3) ) (setq size(strcase size) (if(= size A0)(setq p2 (1169 641) (if(= size A1)(setq p2 (641 594) (if(= size A2)(setq p2 (594 420) (if(= size

6、A3)(setq p2 (420 297) (if(= size A4)(setq p2 (297 210) (setq p1 (0 0) (command rectang p1 p2) (command zoom A) (prin1) )(prompt 按输入图幅自动绘制图框)(prin1) 3、cond 判断式应用技巧Cond命令可以修改多重的if判断式，更高效。(defun c:tufu1() (setvar cmdecho 0) (initget A0 A1 A2 A3 A4) (setq size(getkword 请输入图幅大小A0，A1，A2，A3，A4，:) (if(= siz

7、e nil)(setq size A0) (setq size(strcase size) (cond (= size A0)(setq p2 (1169 641) (= size A1)(setq p2 (641 594) (= size A2)(setq p2 (594 420) (= size A3)(setq p2 (420 297) (= size A4)(setq p2 (297 210)(t (setq p2(420 297) (setq p1 (0 0) (command rectang p1 p2) (command zoom A) (prin1) )(prompt 按输入图

8、幅自动绘制图框)(prin1) 用cond替代if判断式 (if(= size A0)(setq p2 (1169 641) (if(= size A1)(setq p2 (641 594) (if(= size A2)(setq p2 (594 420) (if(= size A3)(setq p2 (420 297) (if(= size A4)(setq p2 (297 210) (cond (= size A0)(setq p2 (1169 641) (= size A1)(setq p2 (641 594) (= size A2)(setq p2 (594 420) (= size

9、A3)(setq p2 (420 297) (= size A4)(setq p2 (297 210) (t (setq p2(420 297)4、repeat循环判断式 自动计算从整数A加到整数B的总和，并以对话框的形式显示在界面上。(defun c:jisuan() (setvar cmdecho 0) (setq num_s(getint请求输入整数起始值：) (setq num_e(getint请输入整数终止值：) (setq snum 0) (setq nn(1+(- num_e num_s) (setq num_add num_s) (repeat nn (setq snum(+

10、snum num_add) (setq num_add(1+ num_add) ) (princn总和 snum=)(princ snum) (prin1) )5、循环判断实例选择圆绘制多边形(defun c:duobx();以下 pa、ww、hh、n 值须由用户输入(setq n (getint 请求输入正多边形边数,N=)(setq en (entsel n选取想作内切正多边形的圆: )(setq I 0)(while en;当en存在时，执行以下循环内容，直到en不存在为止(setq en_data (entget (car en)(setq en_type(cdr (assoc 0 e

11、n_data);群码0为对象类别(if (= en_type CIRCLE)(progn(setq cenpt (cdr (assoc 10 en_data)(setq rad (cdr (assoc 40 en_data)(command polygon n cenpt I rad)(setq I (1+ I)(alert 该对象并不是圆,请重新选取圆) ;end if(setq en (entsel n选择下一个想作内切正多边形的圆: )(princ (strcat n共绘制了 (itoa i) 圆内切正多边形)(prin1)(prompt n 连续对多个圆绘制内切正多边形)(prin1)

12、功能函数回顾 （car列表）返回列表中的第一个元素 （entget对象名称 应用程序列表）取得对象命令的属性联合列表 （assoc 关键元素 联合列表）按关键元素寻找联合列表中的关系属性 （cdr 列表）返回除去第一个元素后的列表16-2 子程序的引入 (defun c:pbox();以下 pa、ww、hh 值须由用户输入(setq pa (getpoint 输入左下角点:)(setq ww (getdist pa n宽度ww:)(setq hh (getdist pa n高度hh:);以下pb、pc、pd值须由程序依据pa、ww、hh求出(setq pb (polar pa 0 ww)(se

13、tq pc (polar pb (/ pi 2) hh)(setq pd (polar pc pi ww);以下依据 pa、pb、pc、pd 点画矩形(command pline pa pb pc pd c);以下mp1、mp2、mp3、mp4值须由程序根据pa、ww、hh;& pb、pc、pd 值求出(setq mp1 (polar pa 0 (/ ww 2)(setq mp2 (polar pb (/ pi 2) (/ hh 2)(setq mp3 (polar pd 0 (/ ww 2)(setq mp4 (polar pa (/ pi 2) (/ hh 2);以下根据 mp1、

14、mp2、mp3、mp4 点画出两条直线(command line mp1 mp3 )(command line mp2 mp4 )1、利用子程序构建 (defun c:pboxnew() (get_pbox_data) (draw_pbox) (prin1) ) (defun get_pbox_data()(setq pa (getpoint 输入左下角点:)(setq ww (getdist pa n宽度ww:)(setq hh (getdist pa n高度hh:)(defun draw_pbox()(setq pb (polar pa 0 ww)(setq pc (polar pb (/

15、 pi 2) hh)(setq pd (polar pc pi ww)(command pline pa pb pc pd c)(setq mp1 (get_midpt pa pb)(setq mp2 (get_midpt pb pc)(setq mp3 (get_midpt pc pd)(setq mp4 (get_midpt pd pa)(command line mp1 mp3 )(command line mp2 mp4 )(defun get_midpt(pt1 pt2)(setq mx (/ (+ (car pt1) (car pt2) 2)(setq my (/ (+ (cadr

16、 pt1) (cadr pt2) 2)(list mx my)2、子程序变量的应用技巧 调用子程序的同时，必须同时给改程序适当的自变量，保证子程序的弹性。 避免子程序的重复。(defun get_midpt(pt1 pt2) （两个自变量）(setq mx (/ (+ (car pt1) (car pt2) 2)(setq my (/ (+ (cadr pt1) (cadr pt2) 2)(list mx my)3、利用子程序组合新工具 正切函数 (defun tan(ang) (/ (sin ang)(cos ang) ) 平方值函数 (defun sqr(xx) (* xx xx) 弧度转

17、角度 (defun rtod(rang) (* rang (/ 160 pi)三角形三边计算面积(defun area1(a b c) (setq s(*(+ a b c)0.5) (sqrt(* s(- s a)(- s b)(- s c)调用方式： (tan(/ pi 4)(sqr 55)(rtod (/ pi 3)(area1 12 14 16)16-3 lisp程序实例 1、输入中心点与高度绘制如图所示矩形和外接圆。 (defun c:juyuan()(setvar cmdecho 0);请求输入中心点与高度值(setq cenpt (getpoint n中心点：)(setq hh (

18、getdist cenpt n高度 : );判断高度是否存在，如果不存在则默认为50.0(if (null hh) (setq hh 50.0);计算宽度与各点坐标(setq ww (* hh 2)(setq pt1m (polar cenpt pi (/ ww 2)(setq pt1 (polar pt1m (* pi 1.5) (/ hh 2)(setq pt2 (polar pt1 0 ww) (setq pt3 (polar pt2 (/ pi 2) hh);绘制矩形与圆(command rectang pt1 pt3)(command circle cenpt pt1)2、输入中心点

19、位置、高度宽度绘图 (defun c:waijieyuan() (setvar cmdecho 0) ;输入中心点与高度值与宽度比例系数 (setq cenpt (getpoint n中心点：) (setq hh (getdist cenpt n高度 : ) (setq sc (getreal n输入比例 : ) ;判断输入值是否存在，如果不存在则设置为默认数值 (if (null hh) (setq hh 50.0) (if (null sc) (setq sc 2.0) ;计算宽度与各点坐标 (setq ww (* hh sc) (setq pt1m (polar cenpt pi (/

20、ww 2) (setq pt1 (polar pt1m (* pi 1.5) (/ hh 2) (setq pt2 (polar pt1 0 ww) (setq pt3 (polar pt2 (/ pi 2) hh) (setq pt4 (polar pt1 (/ pi 2) hh) (setq dd2 (- (distance cenpt pt1) (/ hh 2) (setq pt3m (polar pt3 pi (/ ww 2) (setq pt2m (polar pt1 0 (/ ww 2) ;绘制矩形与圆 (command rectang pt1 pt3) (command circle cenpt pt1) (command circle 2p pt3m (polar pt3m (/ pi 2) dd2) (command circle 2p pt2m (polar pt2m (* pi 1.5) dd2) (command line pt1 pt3