如何用autolisp代码获得属性块中自定义的属性信息

zxc001975cvb · 发表于 2024-2-27 11:05:41

如何用autolisp代码获得属性块中自定义的属性信息，谢谢！
如下图块中的属性值：

xiaohai2 · 发表于 2024-2-29 17:43:54

顶一下，坐等高手！

lrw123 · 发表于 2024-5-16 00:29:47

(vl-load-com) (if (setq ent (car (entsel "\n请选取属性块:"))) (if (= (cdr (assoc 0 (entget ent))) "INSERT") (if (= (vlax-get (setq obj (vlax-ename->vla-object ent)) "HasAttributes") -1) (progn (setq att (vlax-invoke obj "GetAttributes")) (setq jgb (mapcar '(lambda(aobj) (list (vlax-get aobj "TagString") (vlax-get aobj "TextString") ) ) att ) ) (princ "\n属性列表=")(princ jgb) ) ) ) ) (princ)

lrw123 · 发表于 2024-5-16 07:51:07

(vl-load-com)
   (if (setq ent (car (entsel "\n请选取属性块:")))
      (if (= (cdr (assoc 0 (entget ent))) "INSERT")
         (if (= (vlax-get (setq obj (vlax-ename->vla-object ent)) "HasAttributes") -1)
               (progn
                  (setq att (vlax-invoke obj "GetAttributes"))
                  (setq jgb (mapcar '(lambda(aobj) (list (vlax-get aobj "TagString")
                                                         (vlax-get aobj "TextString")
                                                   )
                                    )
                                    att
                           )
                  )
                  (princ "\n属性列表=")(princ jgb)
               )
         )
      )
   )
   (princ)

		自动登录	找回密码
密码			立即注册

如何用autolisp代码获得属性块中自定义的属性信息

最佳新人

活跃会员

宣传达人