[编程交流] 如何通过l管理阵列步骤

_$ (setq ent (vlax-ename->vla-object (car (entsel))))
#<VLA-OBJECT IAcadBlockReference 0000000047467ed8>
_$ (SETQ props (VLAX-INVOKE ent 'getdynamicblockproperties))
(#<VLA-OBJECT IAcadDynamicBlockReferenceProperty 0000000046df3af8> #<VLA-OBJECT IAcadDynamicBlockReferenceProperty 0000000046df6c78>)

(defun c:test (/ d i s)
;;; Tharwat 09.Apr.2015    ;;;
 (if (and (setq s (ssget "_:L" '((0 . "INSERT") (2 . "`*U*"))))
          (setq d (getdist "\n Specify Distance :"))
     )
   (repeat (setq i (sslength s))
     (foreach x (vlax-invoke
                  (vlax-ename->vla-object (ssname s (setq i (1- i))))
                  'getdynamicBlockproperties
                )
       (if (eq "Distanze1" (vla-get-propertyname x))
         (vlax-put x 'value d)
       )
     )
   )
 )
 (princ)
)
(vl-load-com)