读取自定义图形特性

winabcd

我用

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

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

可当我用

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

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

caoyin

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

(list pKey pValue)

winabcd

原来问题出在这儿

谢谢楼上的指教！！！

z16

2.   (repeat (vla-NumCustomInfo DwgProps)
   
3. 
   
4.      (vla-GetCustomByIndex DwgProps i 's1 's2)
   
5. 
   
6.      (princ (strcat "\n" s1 " ->> " s2))
   
7. 
   
8. ;;;vla-RemoveCustomByIndex DwgProps i)
   
9. 
   
10.      (setq i (1+ i))
    
11. 
    
12.    )
    

  (repeat (vla-NumCustomInfo DwgProps)<br /> <br />      (vla-GetCustomByIndex DwgProps i 's1 's2)<br /> <br />      (princ (strcat "\n" s1 " ->> " s2))<br /> <br /> ;;;vla-RemoveCustomByIndex DwgProps i)<br /> <br />      (setq i (1+ i))<br /> <br />    )<br />

z16

2.   (setq        DwgProps (vla-Get-SummaryInfo
   
3.                    (vla-Get-ActiveDocument (vlax-Get-Acad-Object))
   
4.                  )
   
5.    )
   
6.    (vla-Put-Author DwgProps "Author")
   
7. 
   
8.    (vla-Put-Subject DwgProps "Subject")
   
9. 
   
10.    (vla-Put-Title DwgProps "Title")
    
11. 
    
12.    (vla-Put-RevisionNumber DwgProps "Revision")
    
13. 
    
14.    (vla-AddCustomInfo DwgProps "Item" "Value")
    
15. 
    
16.    (repeat (vla-NumCustomInfo DwgProps)
    
17. 
    
18.      (vla-GetCustomByIndex DwgProps i 's1 's2)
    
19. 
    
20.      (princ (strcat "\n" s1 " ->> " s2))
    
21. 
    
22. ;;;vla-RemoveCustomByIndex DwgProps i)
    
23. 
    
24.      (setq i (1+ i))
    
25. 
    
26.    )
    
27. ;;;end repeat
    
28. 
    

  (setq        DwgProps (vla-Get-SummaryInfo<br />                    (vla-Get-ActiveDocument (vlax-Get-Acad-Object))<br />                  )<br />    )<br />    (vla-Put-Author DwgProps "Author")<br /> <br />    (vla-Put-Subject DwgProps "Subject")<br /> <br />    (vla-Put-Title DwgProps "Title")<br /> <br />    (vla-Put-RevisionNumber DwgProps "Revision")<br /> <br />    (vla-AddCustomInfo DwgProps "Item" "Value")<br /> <br />    (repeat (vla-NumCustomInfo DwgProps)<br /> <br />      (vla-GetCustomByIndex DwgProps i 's1 's2)<br /> <br />      (princ (strcat "\n" s1 " ->> " s2))<br /> <br /> ;;;vla-RemoveCustomByIndex DwgProps i)<br /> <br />      (setq i (1+ i))<br /> <br />    )<br /> ;;;end repeat<br /> <br />