干工程绘图的多多少少都听过AutoLISP这个名字。尤其是用AutoCAD画图超过三五年的人肯定见过别人嗖嗖嗖批量处理图纸几十个图层说改就改几百个块说删就删你还在手动一个个点。其实背后的魔法就是AutoLISP。这门语言是AutoCAD自带的二次开发工具不用额外装编译器打开记事本就能写写完了直接在CAD里加载运行门槛低到离谱但能力上限又高得吓人。这第一篇我就把AutoLISP最核心的底子给你盘明白从环境准备到第一段能出效果的代码确保你看完就能在自己的CAD里跑起来。1. 为什么要学AutoLISP以及第一篇到底学什么1.1 AutoLISP能帮你解决什么实际问题先说个我自己的经历。以前在施工单位做深化设计图纸里几百个门窗编号要统一加前缀手动改一个大概要10秒几百个就是将近一个小时还容易漏改。后来用AutoLISP写了个二十行的程序框选图纸自动遍历所有文字对象找到符合条件的就替换整个过程三秒钟跑完。从那天起我就明白了一件事凡是你在CAD里重复做过两遍以上的操作都值得用AutoLISP写成命令。AutoLISP的本质是你和AutoCAD之间的一个翻译官。你把想要的操作步骤用LISP语言描述出来AutoCAD按照你的描述去执行图形绘制、对象修改、数据提取这些底层功能。它最擅长的事情有三类一是批处理比如批量改图层、批量打印、批量导出二是参数化绘图给出几个关键尺寸就能自动生成图形三是与用户交互让操作者输入几个参数程序自动完成后续繁杂的绘图工作。这套东西适合谁学广撒网地说只要是天天用AutoCAD的人都可以学。深挖一层最适合的是那些清楚自己绘图流程里的痛点、总是觉得“这个操作如果自动化就好了”的人。普通绘图员学会它能把自己从重复劳动里解放出来设计师学会它能把标准图块的生成时间压缩到原来的十分之一做施工和管理的学会它能在图纸检查、数据统计上省下大把时间。1.2 第一篇文章的学习目标与路线规划作为系列的第一篇我不打算把语法手册搬上来念那是干巴巴的说明书干的事。这一篇的核心目标只有一个让你亲手写出并运行自己的第一个AutoLISP程序同时把接触到的每个基础概念都吃透知道它们为什么长这样、在真实项目中怎么用。具体来说读完这一篇你会掌握三件事。第一知道AutoLISP程序是怎么被加载进AutoCAD的包括三种常用的加载方法以后无论在什么环境下都能把代码跑起来。第二理解AutoLISP语言最核心的三个概念——变量、函数、列表这三样东西是后续所有程序的地基地基打不牢后面的复杂功能全是空中楼阁。第三完整实现一个“批量修改图层”的小程序别看功能不大它涵盖了输入、循环、条件判断、对象属性修改这些最常见的代码结构。我建议你手边就打开一个AutoCAD不管哪个版本都行2014也好、2025也好跟着下面的内容一步步操作。编程这东西看十遍不如敲一遍。哪怕中间出错了也没关系第四部分我专门整理了新手最容易踩的坑你遇到的问题大概率也跑不出那几类。2. 环境准备把代码跑起来是学习的第一步2.1 在AutoCAD里加载LISP程序的三种方法很多第一次接触AutoLISP的人最大的困惑不是语法而是“我写好的代码到底放哪儿、怎么让它生效”。AutoLISP的文件后缀是.lsp它本质上就是一个纯文本文件你用记事本、Notepad、VS Code都能写。写完以后要在AutoCAD里面运行它常见的有三种加载方式。第一种是用APPLOAD命令这是最标准的一种。在命令行输入APPLOAD回车会弹出一个“加载/卸载应用程序”对话框点“添加”按钮找到你的.lsp文件选中它然后点“加载”按钮。如果加载成功命令行会提示“加载成功”之类的信息。这种方法适合临时用一下CAD一关下次再打开需要重新加载。第二种是直接在命令行敲load函数。还是那句话在AutoCAD的命令行里输入(load D:/我的项目/批量改图层.lsp)注意路径里的斜杠是正斜杠不是Windows常用的反斜杠。如果非要写反斜杠需要写成双反斜杠“\\”否则LISP会把“\”当成转义字符处理路径就找不对了。这种方式适合调试代码时快速试用改一行代码就可以重新加载一次非常方便。第三种是把.lsp文件挂到启动组里让CAD每次启动时自动加载。在加载应用程序对话框的左下角有个“内容”按钮点开它把你的文件添加进启动组列表。这样只要打开AutoCAD自定义命令就自动可用了。我一般把自己常用的工具LISP全都放启动组里配合一个简单的菜单或者命令别名用起来就像CAD自带的功能一样。2.2 环境变量和单位这些细节别小瞧在正式写代码之前有几个环境相关的细节值得先确认一下不然程序跑出来的结果会跟你预期的不一致。第一个是命令行显示方式新版AutoCAD默认用“命令行”窗口建议你先切到最传统的文本命令行按CtrlF2或者直接在命令行右键选择“命令行”。为什么因为AutoLISP运行过程中的所有提示信息都打印在命令行里图形界面反而容易被忽略排错的时候找不到信息会很抓狂。第二个是要确认你的AutoCAD是不是完整版而不是精简版。有些绿色汉化定制版为了瘦身把AutoLISP运行库给砍掉了导致加载.lsp文件时直接报“未知函数”或者“加载失败”。如果你发现自己代码怎么改都跑不起来先换个官网安装的完整版本试试。第三个是命令行的自动完成和动态输入我建议把动态输入F12暂时关掉。AutoLISP执行command函数时会以自己的方式向命令行发送命令和数据开着动态输入有时候会造成输入焦点冲突看起来像是命令没执行成功。这不是AutoLISP的问题是界面设置的问题。等你代码越写越多还会遇到各种奇奇怪怪的环境坑到时候你就知道排查顺序很多时候是从“是不是环境问题”开始的。2.3 第一个程序Hello World和画一条直线搞清楚了加载方式直接上手写第一段代码。传统学习编程的第一课是输出Hello WorldAutoLISP也不例外。打开记事本输入下面这一行(princ Hello World)保存为hello.lsp注意编码格式选ANSI别选UTF-8否则中文注释可能显示成乱码。在CAD里用APPLOAD加载它然后命令行输入括号加函数名回回车(hello)等等这一行写错了其实我们应该在代码里定义这个命令不然一个princ函数被load的时候就会执行。修正一下完整的第一段应该是这样(defun c:hello () (princ Hello, AutoLISP!) (princ) )这是AutoLISP程序的最小完整结构。defun是define function的缩写负责定义一个函数。c:前缀表示这个函数可以作为CAD的普通命令直接调用也就是你不加括号、直接在命令行输入hello就能执行。最后一行的(princ)不是多余的它的作用是让函数结束时静默返回不打印上一次调用的返回值。加载完以后在命令行输入hello回车屏幕命令行会输出“Hello, AutoLISP!”。到这里你已经完成了AutoLISP的首次运行。接着画一条线试试把程序改成这样(defun c:line1 () (command LINE 0,0 100,100 ) (princ) )加载后输入line1AutoCAD会从原点画一条到(100,100)的线段。这就是command函数的基本用法它把后面的参数依次发送到命令行就像你手动输入命令一样。注意最后的空字符串相当于按一下回车结束命令。3. 核心基础变量、函数与列表AutoLISP的三大支柱3.1 变量与setq用来记住数据的小盒子写完能跑的代码只是热身现在进入真正的核心语法。先说变量。变量就是给数据起个名字方便后面反复使用。AutoLISP定义变量最常用的函数是setq它是set quote的缩写。看这段代码(setq width 100) (setq height 50)这两行分别把数值100赋值给变量width把50赋值给height。在AutoCAD里执行完这条语句你直接在命令行输入!width回车会发现CAD会输出100。这个感叹号是在命令行查看变量值的快捷方式调试的时候非常好用。AutoLISP是弱类型语言变量不需要提前声明也不需要指定类型。同一个变量今天可以存整数明天可以存字符串后天甚至可以存放一个对象名。这种灵活性是双刃剑写起来省事但后期如果自己把变量搞混了排查起来也会比较头疼。除了setq还有两个跟变量相关的函数需要注意。一个是setq可以一次给多个变量赋值(setq a 1 b 2 c 3)另一个是setq不但能赋数值和字符串还能赋点和对象。比如你想记录用户点击的一个点坐标(setq sp (getpoint 请指定起点: ))程序运行到这一行时会在命令行提示用户点击一个点然后把这个点的坐标数据存进变量sp里。这就是AutoLISP交互绘图的基础。3.2 函数你的指令工具箱函数是AutoLISP里执行具体操作的工具。它的格式统一的让人想笑一个左括号、函数名、若干个参数、一个右括号。举例来说( 1 2 3)这个表达式的意思是计算123结果是6。不是我等从小习惯的“123”而是把运算符放在最前面这就是所谓的前缀表达式。刚接触会觉得别扭但用两天就适应了。这种格式的好处是函数的嵌套非常直观比如(setq x ( (* 2 3) 4))内层的(* 2 3)先算出6然后( 6 4)得到10最后把10赋给x。运算顺序从最内层的括号往外一层层展开。AutoLISP里常用的内置函数分几大类。数学运算有、-、*、/这一类字符串处理有strcat字符串连接、substr截取子串、strlen求长度表处理有car、cdr、cons、append对象操作有entget、entmod、entmake交互函数有getpoint、getreal、getstring、entsel。每一个都是你以后写程序要用到的螺丝刀和扳手。自定义函数用defun这个刚才已经见过了。定义函数的意义在于把一段逻辑封装起来起个名字以后每次调用名字就等于执行整段逻辑。举个例子(defun draw-circle (center radius) (command CIRCLE center radius) )这个函数接收圆心和半径两个参数画出一个圆。调用方式是(draw-circle (list 50 50) 25)注意AutoLISP里点的表示方法实际上是一个两个数字组成的列表也就是(list 50 50)。后面马上会说列表。3.3 列表把一堆数据装在一起列表是AutoLISP里最重要的数据结构甚至可以说AutoLISP程序运行的过程就是不断创建、解析、处理列表的过程。一个列表用一对圆括号包起来里面的元素用空格隔开(setq triangle (list 0 0 100 0 50 80))这个列表里有六个数字。你可以把它想象成六个数排成一队。存取列表里的元素最常用的两个函数是car和cdr。按惯例car返回列表的第一个元素cdr返回去掉第一个元素之后剩下的部分。这个命名很古老来自早期的LISP机器不用管来历先记住用法。(car triangle) ; 返回0 (cdr triangle) ; 返回(100 0 50 80)如果列表里每个元素本身都是一个点坐标比如(setq points (list (list 0 0) (list 100 0) (list 100 100)))那么(car points)返回(list 0 0)也就是第一个点。配合cadr、caddr这种组合函数可以很方便地取出坐标点里的x和y。cadr是car和cdr的嵌套缩写先取第二个元素再取它的第一个元素。了解了这三样基础之后你会发现AutoLISP其实就是在不停地做两件事把数据装进列表存着然后通过函数对列表里的数据进行加工。掌握了这个思维后面的选择集、图层操作、图元数据修改本质上都是在跟列表打交道。4. 第一个有实用价值的程序批量修改图层4.1 从需求出发拆分功能逻辑理论学习到这儿我们来点真枪实弹的。假设你收到一张外部单位发来的图纸上面所有门窗标注的文字都放在了0图层导致你图例分类、线宽控制、打印设置全都乱了几十张图不能每次都用“快速选择”手动改吧。那我们就写一个程序框选一批对象把它们全部改到一个指定的图层。先拆解这个任务在脑子里过一遍手动操作是怎么完成的。手动流程是先输入lay命令确认目标图层名称然后框选所有要改的对象最后在属性面板里把图层改成目标。换成编程语言对应的步骤是第一步让用户输入图层名第二步让用户框选对象并创建一个“选择集”第三步遍历选择集里的每个对象逐一修改它的图层属性。这个拆解过程在编程里叫“需求分析”。很多人一上来就闷头写代码写到一半发现这里少一步那里没考虑再回去补。正确的做法是先想清楚输入是什么、输出是什么、中间要经过几道处理然后再动手。4.2 完整代码逐行讲解根据拆解的逻辑我写出如下程序。复制到你的编辑器里保存为chglayer.lsp注意文件编码选择ANSI(defun c:chglayer (/ target-layer ss ent ent-data) (setq target-layer (getstring 请输入目标图层名称: )) (setq ss (ssget)) (if ss (progn (setq ent (ssname ss 0)) (while ent (setq ent-data (entget ent)) (setq ent-data (subst (cons 8 target-layer) (assoc 8 ent-data) ent-data)) (entmod ent-data) (setq ent (ssname ss (1 (fix (cdr (assoc 5 (entget ent))))))) ) ) (princ 未选中任何对象!) ) (princ) )别急着复制去运行这段代码里我故意留了一个初学者很容易犯的错误后面第5节会专门讲。先看逻辑结构。第一行defun定义了命令c:chglayer斜杠后面跟的target-layer、ss、ent、ent-data是局部变量函数执行完就自动释放不会污染全局变量。第二行用getstring让用户输入目标图层名注意这个函数在命令行输入的字符串如果你希望输入时支持中文建议改用getstring配合额外的提示参数。第三行ssget是最核心的函数之一它让用户在图形区域框选对象并返回一个选择集对象。如果用户按了ESC或者右键结束ss可能是nil所以第四行用if判断一下。接下来是一个循环。每一轮循环里ssname函数从选择集中取出第一个对象名然后entget函数把这个对象的所有属性以列表形式取出来。这个列表长这样((-1 . 图元名) (0 . LINE) (8 . 0) (10 x 100.0 y 100.0) ...)元素(8 . “0”)就是图层属性点对结构里8是属性组码代表图层。assoc函数负责在这个列表里找到组码为8的那一项然后subst函数用新的(8 . 目标图层)替换掉它。最后entmod把修改后的属性列表写回图形。循环的结束条件我用的是判断下一个对象名是否还存在。ssname在选择集越界时会返回nil正好作为循环终止标志。但这里有个坑我后面再说。4.3 运行演示和三种改进方向加载并运行chglayer输入目标图层名框选若干对象回车。你会在命令行看到“已选择N个对象”然后被选中的对象的图层属性全部被替换成你输入的名称。到这一步你已经拥有了一个“能干活”的AutoLISP程序。但这个程序还有很大的改进空间我自己实际用下来给三个优化方向。第一做成批量处理不单次框选而是直接“全图处理”把ssget的参数改成(setq ss (ssget X))它会选中图纸里所有对象包括关闭图层和冻结图层上的对象全图一次替换。第二加上容错判断当用户输入的目标图层名不存在时程序先用command函数新建一个图层再继续避免后期出现一堆散落在未定义图层上的对象。第三把功能做成“双向操作”除了批量改图层还能按图层批量选中对象这在清理图纸的时候尤其好用。这些扩展方向分别对应了AutoLISP在工程中的几个典型应用面参数化输入、全图批量修改、错误处理。第一篇先不展开但在后续系列里都会详细讲。5. 新手最容易踩的坑问题排查实录5.1 代码能加载但命令执行报错这里直接说回刚才程序里故意埋的雷。运行c:chglayer的时候第一次循环末尾我用了这样一行(setq ent (ssname ss (1 (fix (cdr (assoc 5 (entget ent)))))))这个写法是错的。我本意是取下一个对象但用了entget里边组码5的句柄值再加1去索引选择集句柄是一个十六进制字符串转成数字后根本不等于选择集序号。正确的做法是给当前对象编号每处理完一个就序号加1代码是这样(setq index 0) (setq ent (ssname ss index)) (while ent ; 中间处理省略 (setq index (1 index)) (setq ent (ssname ss index)) )所以新手在写循环遍历选择集的时候不要自己想当然地用对象名做算术老老实实用一个整数索引变量来推进。这个错误在程序运行时会表现为循环只处理了第一个对象或者干脆直接报错“参数类型错误”。5.2 括号不匹配排错的第一课AutoLISP报错里最常见的就是“括号不对称”。程序一长几个嵌套循环层层叠叠左括号和右括号数量不一致命令行就会给一个“malformed list”之类的提示。我一开始也经常犯这个错后来总结出一个笨办法把代码从左往右每个左括号标记一个递增数字右括号遇到就递减最终回到0就代表配平了。现代编辑器比如VS Code装了LISP插件以后会自动括号匹配强烈建议别用记事本写长程序。还有一个土办法用AutoCAD自带的编辑器。在命令行输入VLIDE回车打开Visual LISP编辑器里面自带括号配对检查、语法着色和调试器写起来比记事本舒服太多。虽然它长得很老但确实是AutoLISP开发利器。5.3 变量值变化异常和选择集处理细节AutoLISP的变量作用域是个容易踩的坑。如果你在defun的参数列表里没有把变量声明为局部那它在函数外就是全局的。某个变量叫name函数执行完还赖在内存里下次其他程序也用了name两边就打架。解决办法很简单所有临时变量一律写进defun参数列表的斜杠后面用前先setq用完不管。选择集还有一个经典问题程序里修改了对象属性entmod之后不要试图在同一个选择集里立即根据句柄重新取值那样很容易出错。各种原因在于entmod之后对象数据可能已经刷新不再那么“干净”。安全做法是先提取完所有需要的对象名再统一做修改处理或者修改完成后重新ssget一次。5.4 常见错误速查表错误现象常见原因快速解决方案加载时提示“load失败”文件路径包含非法字符或编码不是ANSI改用正斜杠路径用VLIDE另存为ANSI编码命令输入后提示“未知命令”函数名没有c:前缀或cad还没有加载该lsp检查defun是否写了c:重新APPLOAD运行到一半报“参数数目错误”调用函数时实参数量与定义时不匹配对照defun声明逐个核对参数图形被改后无法撤销没有用command-undo包裹程序开头加(command UNDO BE)结尾加(command UNDO E)中文注释变乱码文件保存成了UTF-8另存为ANSIWindows记事本选“ANSI”框选不到对象ssget的过滤条件写错把过滤表先单独测试确认返回的列表符合预期这张表也不用背等真遇到了回来翻一下就行。排错这个事本质上是一个“输入—输出”核对的过程把期望值和实际值摆在一起对比很快就定位到是哪一层出了问题。6. 写在这次学习之后的一点体会AutoLISP最让我觉得舒服的地方就是反馈快。写一段、加载、运行、看结果整个循环不超过十秒不像某些语言动辄要等编译。我一开始也就是抱着“把我的重复操作省掉”的念头后来慢慢发现它其实训练的是你把一个复杂任务拆成小步骤的能力。学完第一篇的这批基础内容你已经可以用AutoLISP做不少事了批量改特性、自动生成简单图形、统计数量全都建立在变量、函数、列表和选择集这四个核心概念之上。下周的系列第二篇我打算用“批量统计各类图元数量并生成表格”这个实际需求把字符串处理、文件写入和表格绘制串起来到时候你可以拿今天的基础直接往上垒。