计算机辅助制图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 (al