用VLISP存取动态块的属性

newer

问题：
Is there an example showing how to access dynamic block properties?

解决方案：
Here is a Visual Lisp example that iterates through dynamic properties of a selected block reference. If the property name is "Bolt Length" the value is printed on the command line. This shows the general approach to using ActiveX from Visual Lisp to access dynamic properties.

1. (defun c:test (/ appAcad docCurrent utilObj oBkRef pt oProps i obj oPVar
   
2.                  oPValue str
   
3.               )
   
4.   (vl-load-com)
   
5.   (setq appAcad (vlax-get-acad-object)
   
6.         docCurrent (vla-get-ActiveDocument appAcad)
   
7.         utilObj (vla-get-utility docCurrent)
   
8.   )
   
9.   (vla-getentity utilObj 'oBkRef pt "Select a dynamic block reference")
   
10.   (setq oProps (vlax-variant-value (vla-GetDynamicBlockProperties oBkRef)))
    
11.   (setq i (vlax-safearray-get-l-bound oProps 1))
    
12.   (while (<= i (vlax-safearray-get-u-bound oProps 1))
    
13.     (progn
    
14.       (setq obj (vlax-safearray-get-element oProps i)) ; (princ obj)
    
15.       (princ "\n")
    
16.       (princ (vla-get-PropertyName obj))
    
17.       (princ "\n")
    
18.       (if (= (vla-get-PropertyName obj) "Bolt Length")
    
19.         (progn
    
20.           (setq oPVar (vla-get-value obj))
    
21.           (setq oPValue (vlax-variant-value oPVar))
    
22.           (setq str (vla-get-propertyname obj))
    
23.           (setq str (strcat str " = "))
    
24.           (setq str (strcat str (rtos oPValue)))
    
25.           (princ str)
    
26.           (princ "\n")
    
27.         )                               ; progn
    
28.       )                                       ; if
    
29.       (setq i (1+ i))
    
30.     )                                       ; progn
    
31.   )                                       ; while
    
32.   (princ)
    
33. )
    
34. 
    

(defun c:test (/ appAcad docCurrent utilObj oBkRef pt oProps i obj oPVar<br />                  oPValue str<br />               )<br />   (vl-load-com)<br />   (setq appAcad (vlax-get-acad-object)<br />         docCurrent (vla-get-ActiveDocument appAcad)<br />         utilObj (vla-get-utility docCurrent)<br />   )<br />   (vla-getentity utilObj 'oBkRef pt "Select a dynamic block reference")<br />   (setq oProps (vlax-variant-value (vla-GetDynamicBlockProperties oBkRef)))<br />   (setq i (vlax-safearray-get-l-bound oProps 1))<br />   (while (<= i (vlax-safearray-get-u-bound oProps 1))<br />     (progn<br />       (setq obj (vlax-safearray-get-element oProps i)) ; (princ obj)<br />       (princ "\n")<br />       (princ (vla-get-PropertyName obj))<br />       (princ "\n")<br />       (if (= (vla-get-PropertyName obj) "Bolt Length")<br />         (progn<br />           (setq oPVar (vla-get-value obj))<br />           (setq oPValue (vlax-variant-value oPVar))<br />           (setq str (vla-get-propertyname obj))<br />           (setq str (strcat str " = "))<br />           (setq str (strcat str (rtos oPValue)))<br />           (princ str)<br />           (princ "\n")<br />         )                               ; progn<br />       )                                       ; if<br />       (setq i (1+ i))<br />     )                                       ; progn<br />   )                                       ; while<br />   (princ)<br /> )<br /> <br />

wwnn

咋用