[求助]：读取自定义图形特性

winabcd

我用

(vlax-invoke-method objPros 'SetCustomByIndex 0 pKey pValue)

可以设置一个自定义图形特性。

可当我用

(vlax-invoke-method objPros 'GetCustomByIndex 0 pKey pValue)

读自定义图形特性时，却读不到。读完以后的pKey、pValue的值还是我在读特性以前设置的值，我设置的值明显和对话框中的值不一样。不知道问题出在哪，请各位指教。

carrot1983

试试！我也还没有搞懂。呵呵
[php]
(defun c:tt ()
  (vl-load-com)
  (setq doc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
  (setq db (vla-get-Database doc))
  (setq si (vla-get-SummaryInfo db))
  (vlax-invoke-method si 'SetCustomByIndex 0 "s" "d")
  (vlax-invoke-method si 'GetCustomByIndex 0 'pKey 'pValue)
  (eval pKey)
  (eval pValue)
)
[/php]