BUBUBA918 发表于 2013-7-23 17:52:17

如何用LSP语言提取块属性？图块如下

如何用LSP语言提取块属性？

tempasdf 发表于 2024-10-17 21:36:08

感谢 源码的分享

184632152 发表于 2021-4-22 20:16:56

不知道怎么用

yshf 发表于 2013-7-23 21:32:37

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

BUBUBA918 发表于 2013-7-24 17:44:30

谢，非常好用

434939575 发表于 2014-9-17 20:23:44

确实好用。太感谢了！正好需要。

betta_fish 发表于 2015-8-11 19:36:35

收藏備用，謝謝分享

culiang10086 发表于 2015-11-13 21:21:38

不知道怎么用

yshf 发表于 2015-12-17 19:32:05

将以下保存为文件"tqksx.lsp"，加载后，在命令行输入tqksx，选取带属性的块即列其属性。(defun c:tqksx()   
   (vl-load-com)
   (while (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)
)

skg123 发表于 2016-5-12 18:10:37

学习的好案例

guankuiwu 发表于 2021-4-23 21:32:49

学习中！
页: [1] 2
查看完整版本: 如何用LSP语言提取块属性？图块如下