社区 › AutoLISP/Visual LISP 编程技术 › 动态块怎么读取信息？

熊颖 发表于 2022-4-12 20:44:36

动态块怎么读取信息？

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

菜卷鱼 发表于 2022-4-14 10:16:54

(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
)
)

查看完整版本: 动态块怎么读取信息？