lisp如何调用dwgprops命令添加或者修改自定义图形属性？

leafif · 发表于 2013-4-15 18:17:44

leafif · 发表于 2013-4-15 19:00:04

算了，还是我自己来回答吧！
(defun C:Test (/ App Doc DwgProps)
(vl-load-com)
(setq App (vlax-Get-Acad-Object)
Doc (vla-Get-ActiveDocument App)
DwgProps (vla-Get-SummaryInfo Doc))
(vla-AddCustomInfo DwgProps "Sample1" "No Data")
(vla-AddCustomInfo DwgProps "Sample2" "No Data")
(vla-SetCustomByIndex DwgProps 0 "Sample1" "Some data")
(vla-SetCustomByKey DwgProps "Sample2" "2000")
(princ))

ynhh · 发表于 2013-5-15 14:51:39

leafif 发表于 2013-4-15 19:00
算了，还是我自己来回答吧！
(defun C:Test (/ App Doc DwgProps)
(vl-load-com)

还有用啊
能把作者这一类的也加上去吗

账号		自动登录	找回密码
密码			注册

[函数] lisp如何调用dwgprops命令添加或者修改自定义图形属性？

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源