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

mokson

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

paulpipi

kozmosovia

去·看帮助里面的SummaryInfo

muwind

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

1. (setq fyInf (vlax-get-property (vlax-get-property (vlax-get-acad-object) 'ActiveDocument) 'SummaryInfo))
   
2. (defun Iskey(K / V)   
   
3.   (null(vl-catch-all-apply 'vlax-invoke-method (list fyInf 'GetCustomByKey K 'V)))
   
4. );是否存在
   
5. (defun addkey(K V)
   
6.     (if(Iskey K)
   
7.         (vlax-invoke-method fyInf 'setCustomByKey K V);修改
   
8.         (vlax-invoke-method fyInf 'addCustomInfo K V);增加
   
9.     )   
   
10. )
    

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

mokson

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

HenryZiu

请问现在解决了吗？同求

guohq

参考这个地方：
https://help.autodesk.com/view/O ... 9-8307-FCDC7376D343