计算机辅助制图16.pptVIP

第十六章 AutoLISP程序提升 本章要点： 掌握lisp程序中判别和循环的功能函数。 If判断式子应用技巧。 学会利用lisp子程序完成工作。 利用lisp编写程序绘制高级图形。 16-1 循环与判断的应用 1、判断式、循环相关的功能函数 （if 比较式表达式1表达式2） 检验判断结果，如果为真，执行表达式1，否则执行表达式2；如果各个表达式超过一行，则必须要配合progn函数连接为一整组。 (defun c:bidaxiao() (setq a(getint\n请输入A值：)) (setq b(getint\n请输入B值：)) (if( a b) (princa b) (princa b)) (prin1)) 利用progn函数处理多行表达式 (defun c:pandbj() (setvar cmdecho 0) (setq cenpt(getpoint\n输入圆心：)) (setq rad(getdist cenpt\n输入圆半径：)) (if( rad 0) (progn (commandcircle cenpt rad) (commandchprop (entlast)c 3 ) (princ\n画圆任务完成！) ) (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(+ 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) (prin1) ) Cond多条件的IF整合功能 多条件式的if整合功能，由上而下逐一比较，判断式成立，则执行其后的表达式，最后若判断式皆不成立，且存在有t值对应，则执行t后对应的其他表达式。 （cond （判断式1表达式1）） （判断式2表达式2） 。。。。。。。。。 （t 其他表达式） 程序实例 (defun c:pingfen() (setq score(getreal “ 输入autocad期末总成绩：)) (cond ((= score 100)(princ\n满分，牛！)) ((= score 60)(princ\n不错，小牛！)) ((= score 70)(princ\n不差，牛犊！)) ((= score 60)(princ\n差一下就挂了，菜了！)) (t (princ\n你挂了，按esc继续努力！)) )) 2、if判断式应用技巧 能够根据输入的图纸幅面自动绘制指定大小的矩形图框。 程序实例 (defun c:tufu() (setvar cmdecho 0) (setq size(getstring 请输入图幅大小A0，A1，A2，A3，A4，A0:)) (if(= size ) (setq size A3) ) (setq size(strcase size)) (if(= size A0)(setq p2 (1169 641))) (if(= size A1)(setq p2 (641 594))) (if