AutoLisp从入门到放弃（十七）：条件与循环的实战应用
1. 条件判断在AutoLisp中的实战应用
记得我第一次用AutoLisp写自动化绘图脚本时，if函数就像个严格的交通警察，控制着程序执行的每个路口。这个看似简单的函数，在实际工程中能玩出各种花样。比如在机械制图时，我们经常需要根据不同的零件类型自动调整标注样式：
(defun C:SmartDimension (/ partType dimStyle) (setq partType (getstring "\n请输入零件类型(轴/齿轮/法兰): ")) (if (= (strcase partType) "轴") (setq dimStyle "AXIS_DIM") (if (= (strcase partType) "齿轮") (setq dimStyle "GEAR_DIM") (setq dimStyle "FLANGE_DIM") ) ) (command "-dimstyle" "r" dimStyle) )这个例子展示了if的嵌套用法，但实际项目中更复杂的逻辑判断会让人头晕。这时候就该progn上场了——它能把多个表达式打包成"一个"表达式。有次我写批量修改图层的脚本，就深刻体会到它的价值：
(if (setq ss (ssget "X" '((8 . "OLD_LAYER")))) (progn (command "-layer" "m" "NEW_LAYER" "") (command "chprop" ss "" "la" "NEW_LAYER" "") (princ (strcat "已转换" (itoa (sslength ss)) "个对象")) ) (princ "未找到需要修改的对象") )2. repeat函数的工程化应用
repeat就像个精准的计数器，特别适合处理已知次数的重复操作。在建筑图纸中，我常用它来生成标准层平面：
(defun C:GenFloors (/ floorNum basePt height) (setq basePt (getpoint "\n指定首层基点: ") height (getdist "\n输入层高: ") floorNum (getint "\n输入层数: ")) (repeat floorNum (command "-insert" "标准层" basePt "" "" "") (setq basePt (list (car basePt) (cadr basePt) (+ (caddr basePt) height))) ) )更实用的场景是批量生成坐标网格。有次做总图布置，用repeat配合数学计算，30行代码就解决了原本需要手动绘制2小时的工作：
(defun C:DrawGrid (/ cols rows colSpace rowSpace startPt) (setq cols (getint "\n列数: ") rows (getint "\n行数: ") colSpace (getdist "\n列间距: ") rowSpace (getdist "\n行间距: ") startPt (getpoint "\n基准点: ")) (repeat cols (setq tempPt startPt) (repeat rows (command "point" tempPt) (setq tempPt (list (car tempPt) (+ (cadr tempPt) rowSpace))) ) (setq startPt (list (+ (car startPt) colSpace) (cadr startPt))) ) )3. while循环处理不确定次数任务
while就像个不知疲倦的质检员，会一直工作到条件不满足为止。在处理用户输入验证时特别有用：
(defun C:GetValidNumber (/ userInput) (setq userInput (getint "\n请输入1-100间的数字: ")) (while (or (< userInput 1) (> userInput 100)) (setq userInput (getint "\n输入无效! 请重新输入1-100间的数字: ")) ) (princ (strcat "你输入的数字是: " (itoa userInput))) )更高级的用法是配合选择集遍历对象。我曾经用while开发过智能标注工具：
(defun C:AutoDimLines (/ ss i ent) (if (setq ss (ssget '((0 . "LINE")))) (progn (setq i 0) (while (< i (sslength ss)) (setq ent (ssname ss i)) (command "dimlinear" (cdr (assoc 10 (entget ent))) (cdr (assoc 11 (entget ent))) pause) (setq i (1+ i)) ) ) ) )4. cond函数实现多条件分支
cond就像个智能路由器，可以优雅地处理复杂的条件分支。在开发图纸版本转换工具时，我这样处理不同CAD版本兼容问题：
(defun C:ConvertVersion (/ ver) (setq ver (getstring "\n目标版本(2004/2007/2010/2013/2018): ")) (cond ((= ver "2004") (command "-saveas" "2004" (getvar "dwgname"))) ((= ver "2007") (command "-saveas" "2007" (getvar "dwgname"))) ((= ver "2010") (command "-saveas" "2010" (getvar "dwgname"))) ((= ver "2013") (command "-saveas" "2013" (getvar "dwgname"))) ((= ver "2018") (command "-saveas" "2018" (getvar "dwgname"))) (T (princ "\n不支持的版本号")) ) )在参数化设计方面，cond更是大显身手。比如这个智能生成标准件的函数：
(defun C:GenFastener (/ type size pt) (setq type (getstring "\n紧固件类型(螺栓/螺母/垫圈): ") size (getreal "\n规格尺寸: ") pt (getpoint "\n插入点: ")) (cond ((= (strcase type) "螺栓") (command "-insert" "BOLT" pt size size 0)) ((= (strcase type) "螺母") (command "-insert" "NUT" pt size size 0)) ((= (strcase type) "垫圈") (command "-insert" "WASHER" pt size size 0)) (T (princ "\n未知的紧固件类型")) ) )5. 综合实战：自动化图框生成系统
结合前面所有知识点，我们来看个完整的工程案例。这个系统能根据项目类型自动生成符合不同企业标准的图框：
(defun C:SmartTitleBlock (/ company projectType size pt) (setq company (getstring "\n企业标准(A/B/C): ") projectType (getstring "\n项目类型(建筑/机械/电气): ") size (getstring "\n图幅(A0/A1/A2/A3): ") pt (getpoint "\n图框基点: ")) (cond ((and (= (strcase company) "A") (= (strcase projectType) "建筑")) (command "-insert" "A_ARCH" pt size size 0) (AddArchAttributes)) ((and (= (strcase company) "A") (= (strcase projectType) "机械")) (command "-insert" "A_MECH" pt size size 0) (AddMechAttributes)) ((and (= (strcase company) "B") (= (strcase projectType) "电气")) (command "-insert" "B_ELEC" pt size size 0) (AddElecAttributes)) (T (command "-insert" "STANDARD" pt size size 0)) ) (if (and (= (strcase company) "C") (or (= (strcase projectType) "建筑") (= (strcase projectType) "机械"))) (progn (command "-layer" "s" "TITLE_BLOCK" "") (AddCustomAttributes) (princ "\n已应用C公司特殊标准")) ) )这个例子展示了如何将条件判断和循环有机结合。AddXXXAttributes这些自定义函数内部可能会用到while遍历图块属性，用repeat生成标准字段，用if/cond处理不同情况。
6. 调试技巧与性能优化
写了这么多条件循环代码，最头疼的就是调试。我总结了几条实用经验：
- 复杂条件判断时，先用princ输出中间结果。比如：
(princ (strcat "\n当前值: " (itoa var)))- 循环体内设置安全计数器，避免死循环：
(setq maxLoop 100 loopCnt 0) (while (and (< loopCnt maxLoop) (not done)) ... (setq loopCnt (1+ loopCnt)) )- 多重嵌套时适当使用注释标记结束位置：
(if condition1 (progn ... (if condition2 ... ) ; end if condition2 ) ; end progn ) ; end if condition1性能方面要注意：在遍历大量对象时，尽量减少循环体内的图形操作。有次我优化一个批量修改程序，把command调用移到循环外，速度提升了20倍：
; 慢速版本 (repeat 1000 (command "move" ...) ) ; 优化版本 (command "move") (repeat 1000 (command ...) ) (command "")7. 高级应用：动态条件判断
AutoLisp的条件判断还能玩得更高级。比如实现模糊匹配：
(defun FuzzyMatch (pattern str / cnt) (setq cnt 0) (repeat (strlen pattern) (if (wcmatch str (strcat "*" (substr pattern (setq cnt (1+ cnt)) 1) "*")) (setq match T) ) ) match )再比如带缓存的智能判断系统：
(setq *judgeCache* nil) (defun SmartJudge (condition / cached) (setq cached (assoc condition *judgeCache*)) (cond (cached (cdr cached)) (T (setq result (ComplexCalculation condition)) (setq *judgeCache* (cons (cons condition result) *judgeCache*)) result) ) )这些技巧在我开发智能标注系统时发挥了巨大作用。一个典型的应用是根据图形上下文自动选择标注样式：
(defun ContextAwareDim (/ ent dimType) (setq ent (car (entsel))) (cond ((isBolt ent) (setq dimType "BOLT_DIM")) ((isHole ent) (setq dimType "HOLE_DIM")) ((isSlot ent) (setq dimType "SLOT_DIM")) (T (setq dimType "STANDARD_DIM")) ) (command "-dimstyle" "r" dimType) (command "dimlinear" ...) )8. 从工程角度思考条件循环设计
经过多个项目的磨练，我总结出几个AutoLisp条件循环的设计原则：
可读性优先：宁可多写几行代码，也要保证逻辑清晰。复杂的cond语句可以拆分为多个辅助函数。
防御性编程：所有用户输入和边界条件都要处理。比如：
(while (not (setq pt (getpoint "\n指定位置: "))) (princ "\n必须指定一个有效点!") )- 模块化设计：将重复使用的条件判断封装成函数。比如这个判断选择集是否有效的函数：
(defun IsValidSS (ss) (and ss (= (type ss) 'PICKSET) (> (sslength ss) 0)) )- 性能考量：在循环前预先收集所有必要数据，避免在循环内重复查询。比如：
; 不推荐 (repeat 100 (setq len (getvar "clayer")) ) ; 推荐 (setq len (getvar "clayer")) (repeat 100 ... )- 错误处理：使用条件判断预防潜在错误。比如文件操作前检查：
(if (findfile filename) (progn (setq f (open filename "r")) ... ) (princ "\n文件不存在!") )这些经验都是我在实际项目中踩坑后总结出来的。比如有次因为没处理空选择集的情况，导致脚本在无人值守运行时崩溃，差点延误项目交付。现在我的所有脚本都会包含完善的错误检查。