动态块怎么读取信息？

熊颖

可以指教一下怎么才能读取动态块信息吗？

菜卷鱼

(defun dyn-prpinfo (obj / vbj pros info npro)
  (setq vbj (vlax-ename->vla-object obj))
  (setq Pros (vlax-invoke vbj 'GetDynamicBlockProperties))
  (setq npro (vl-remove-if
               '(lambda (x)
                  (or
                    (= (vlax-get x 'Show) 0)
                    (= (vlax-get x 'ReadOnly) -1)
                  )
                )
               pros
             )
  )
  (mapcar
    '(lambda (X)
       (list (vlax-get X 'PropertyName) (vlax-get X 'Value) x)
     )
    nPro
  )
)