AutoCAD AutoLisp 脚本编写

脚本调用

1. 可以修改 C:Program FilesAutodeskAcadM2011Acadm 目录下的acad.lsp文件，载入脚本。AutoCAD 版本为2011 机械版，其它版本路径略有不同。

;(load "Update_EL_block.lsp")

2. 脚本保存为文本格式，可以存放在上述目录中。

3. 使用 vl-load-com 载入 AutoCAD 自动化库。

(vl-load-com)   ; Load com library

---

脚本说明

定义一个名为 modify 的函数，用于修改图块中属性。

此函数有两个参数：col 用于指定修改的属性名，data 为属性值。

(defun modify (col data) 
    (foreach a
        (vlax-invoke (vlax-ename->vla-object (ssname (ssget "_x" '((2 . "EPCB000"))) 0)) 'GetAttributes)
        ( if (eq(vlax-get-property a 'TagString) col)
            (vlax-put-property a 'TextString data)
        )
    )
)

1. 查找名为 EPCB000 的图块，返回入口名：

ssname (ssget "_x" '((2 . "EPCB000"))) 0

2. 将入口名转化为对象：

vlax-ename->vla-object ( ... )

3. 以获取的对象为目标，调用 GetAttributes 方法：

vlax-invoke ...  'GetAttributes

4. 遍历得到的属性集：

foreach a ... 

5. 对属性名进行判断，如与 col 参数吻合，则修改属性值：

if (eq(vlax-get-property a 'TagString) col) (vlax-put-property a 'TextString data)

  

---

补充

1. AutoCAD 附带的 AutoLisp 编辑环境可以 Debug。

2. 注意检查括号匹配。