写入自定义信息能不能用LISP程序来实现?

xing979020

在ACAD文件菜单下有一个图纸属性选项.之后会有一个关于当前文件的属性,其中有栏为自定义.
现在能在那里添加一些信息在那里,不知道各位高手知不知道那个LISP函数可以访问?
谢谢.
家里电脑没有装ACAD所以不能抓图,不好意思了.

xiaojinwen

; IAcadSummaryInfo: IAcadSummaryInfo 接口
;特性值:
;   Author = "作者"
;   Comments = "说明"
;   HyperlinkBase = "超链接"
;   Keywords = "关键字"
;   LastSavedBy = "最后编辑者"
;   RevisionNumber = "版本号"
;   Subject = "主题"
;   Title = "标题"
;支持的方法:
;   AddCustomInfo (2)
;   GetCustomByIndex (3)
;   GetCustomByKey (2)
;   NumCustomInfo ()
;   RemoveCustomByIndex (1)
;   RemoveCustomByKey (1)
;   SetCustomByIndex (3)
;   SetCustomByKey (2)
    (DEFUN XET-SUMMARY-SET(Author Comments HyperlinkBase Keywords RevisionNumber Subject Title / SUMMARY)

      (VL-LOAD-COM)
      (SETQ SUMMARY (VLA-GET-SUMMARYINFO (VLA-GET-ACTIVEDOCUMENT (VLAX-GET-ACAD-OBJECT))))
      (VLA-PUT-AUTHOR SUMMARY author)
      (VLA-PUT-COMMENTS SUMMARY COMMENTS)
      (VLA-PUT-HyperlinkBase SUMMARY HyperlinkBase)
      (VLA-PUT-Keywords SUMMARY Keywords)
      (VLA-PUT-RevisionNumber SUMMARY RevisionNumber)
      (VLA-PUT-Subject SUMMARY Subject)
      (VLA-PUT-Title SUMMARY Title)
      )

xing979020

没有一个人知道吗?

太差了

狂刀无痕

二楼的兄弟不是已经告诉你了么？