cad自动加点lisp vba_AutoLisp学习与自己第一个小程序

其实自己很早以前就想学习AutoLisp了。因为众所周知，要想高效利用Excel必须学VBA，那么高效利用AutoCAD，Autolisp也算是当之无愧的首选了。对于Excel来说主要是财务用的多，对于AutoCAD来说，设计院用的多。我自己从事自控仪表设计，少不了和各种表格数据打交道，例如仪表索引啦，数据表选型啦，监控数据表啦，电缆清册啦。虽说数据量不大，一般几百到上千而已。在摸索中学会了VBA之后，觉得实在是太提高效率了。从此看Excel都不是之前的Excel了。之后很顺理成章的用VBA写过几个AutoCAD的小程序，看了下AutoCAD ActiveX的帮助文档，加上一些现成的代码，改改也就出来了。AutoCAD VBA程序是读取AutoCAD绘制的P&ID图纸中的仪表位号以及管线号以及各种报警设置值到Excel中。后来还并从Excel中右键跳转到所选位号所在的PID图纸指定位置中。刚写完很激动，但是想想这个程序虽然功能强悍，但是实际上并没有什么用。因为没有人按照你的制图规则来，总是有例外，这也是AutoCAD作为一款通用制图软件的通病，必须深度二次开发，定义好各项规则才可以，像天正之类。

那还是刚工作不到两年的时候写的。并没有想太多，写完之后也没有发布应用，就两三个人知晓。直到今年，终于十一月份的时候终于闲下来了。于是想起来之前想学的AutoCAD VBA的二次开发，想看看有没有什么视频教程可以看看。恰巧同时也发现了AutoLisp的视频教程，于是一起买了。看了一个星期的教程，大致了解了语法，于是就上手开始干了。

由于之前有了学习VBA的经验，所以学起来明显快很多。我已经知道，看视频可以减少入门的困难，但是要真正掌握是必须亲手去写代码，去思考才行的。自己的第一个标注软件就出来了。虽然用VBA同样也能实现，但是AutoCAD VBA对于版本的支持，写起来也要复杂一些，操作上也不便。

接下来再看看相关的资料，先把AutoCAD的操作从头到尾熟悉一遍，了解下运行的基本对象和方法。像之前学习的那样，然后再配合着Autolisp的学习。我想两三个月之后，也会像学会VBA之后看Excel都是透明的感觉了吧。

附上带椭圆圆圈标注lisp源代码

;椭圆圈标注

(defun zcx2()

(setvar "osmode" 0)

(command "line" p1 pause "")

(setq p2 (getvar "lastpoint"))

(setq e1 (entlast))

(entdel e1)

(setq

a1 (car p1 )

b1 (cadr p1)

a2 (car p2)

b2 (cadr p2)

)

(if (> a1 a2)

(setq pp (polar p2 pi le))

(setq pp (polar p2 0 le))

)

(if (> a1 a2)

(setq p3 (polar pp (/ pi 2) zj))

(setq p3 (polar p2 (/ pi 2) zj))

)

(command "ellipse" "C" p1 (polar p1 (angle p1 p2) 1.8) (polar p1 (- pi (angle p1 p2)) 0.8))

(command "line" (polar p1 (angle p1 p2) 1.8) p2 pp "")

(command "text" p3 ht 0 "Text")

)

;带椭圆圈标注主程序

(defun c:bz2()

(setvar "texteval" 1)

(setvar "cmdecho" 0)

(setq vv (getvar "osmode"))

(setq ht (getreal "\n标注字高(3):"))

(if (= ht nil) (setq ht 3))

(setq le (getreal "\n横线长度(20):"))

(if (= le nil) (setq le 20))

(setq zj (/ ht 3))

(setq n 0)

(while (= n 0)

(setvar "osmode" 33)

(setq p1 nil)

(setq p1 (getpoint "\n 指定点坐标:"))

(if (= p1 nil) (setq n 1) (zcx2))

)

(setvar "osmode" vv)

(princ)

)