脚本调用
1. 可以修改 C:\Program Files\Autodesk\AcadM2011\Acadm 目录下的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. 注意检查括号匹配。