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

leafif

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

leafif

算了，还是我自己来回答吧！
(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

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

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