mokson 发表于 2020-8-22 15:23:42

文档的自定义属性，能用 lisp 实现吗？

我想用 lisp 代码去实现对文档自定义属性的添加和修改。
初学lisp的新生，不知道何处下手。




paulpipi 发表于 2020-8-23 09:18:19

kozmosovia 发表于 2020-8-23 10:16:31

去·看帮助里面的SummaryInfo

muwind 发表于 2020-8-23 12:44:57

本帖最后由 muwind 于 2020-8-25 22:18 编辑

以前收集的应该能用，调用方式(addkey"名称" "值")

(setq fyInf (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'ActiveDocument) 'SummaryInfo))
(defun Iskey(K / V)   
(null(vl-catch-all-apply 'vlax-invoke-method (list fyInf 'GetCustomByKey K 'V)))
);是否存在
(defun addkey(K V)
    (if(Iskey K)
      (vlax-invoke-method fyInf 'setCustomByKey K V);修改
      (vlax-invoke-method fyInf 'addCustomInfo K V);增加
    )   
)

mokson 发表于 2020-8-24 08:02:30

谢谢各位大将，我要花一点时间慢慢消化才行。
感谢不尽！

HenryZiu 发表于 2023-12-21 11:54:00

请问现在解决了吗？同求:loveliness:

guohq 发表于 2023-12-23 14:49:43

参考这个地方：
https://help.autodesk.com/view/OARX/2023/DEU/?guid=GUID-3A6A7572-5A76-4119-8307-FCDC7376D343
页: [1]
查看完整版本: 文档的自定义属性，能用 lisp 实现吗？