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

BUBUBA918

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

yshf

2. (vl-load-com)
   
3.      (if (setq ent (car (entsel "\n请选取属性块:")))
   
4.          (if (= (cdr (assoc 0 (entget ent))) "INSERT")
   
5.              (if (= (vlax-get (setq obj (vlax-ename->vla-object ent)) "HasAttributes") -1)
   
6.                  (progn
   
7.                     (setq att (vlax-invoke obj "GetAttributes"))
   
8.                     (setq jgb (mapcar '(lambda(aobj) (list (vlax-get aobj "TagString")
   
9.                                                            (vlax-get aobj "TextString")
   
10.                                                      )
    
11.                                        )
    
12.                                        att
    
13.                               )
    
14.                     )
    
15.                     (princ "\n属性列表=")(princ jgb)
    
16.                  )
    
17.              )
    
18.          )
    
19.      )
    
20.      (princ)

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

BUBUBA918

谢，非常好用

434939575

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

betta_fish

收藏備用，謝謝分享

culiang10086

不知道怎么用

yshf

将以下保存为文件"tqksx.lsp"，加载后，在命令行输入tqksx，选取带属性的块即列其属性。

2. (defun c:tqksx()   
   
3.      (vl-load-com)
   
4.      (while (setq ent (car (entsel "\n请选取属性块:")))
   
5.          (if (= (cdr (assoc 0 (entget ent))) "INSERT")
   
6.              (if (= (vlax-get (setq obj (vlax-ename->vla-object ent)) "HasAttributes") -1)
   
7.                  (progn
   
8.                     (setq att (vlax-invoke obj "GetAttributes"))
   
9.                     (setq jgb (mapcar '(lambda(aobj) (list (vlax-get aobj "TagString")
   
10.                                                            (vlax-get aobj "TextString")
    
11.                                                      )
    
12.                                        )
    
13.                                        att
    
14.                               )
    
15.                     )
    
16.                     (princ "\n属性列表=")(princ jgb)
    
17.                  )
    
18.              )
    
19.          )
    
20.      )
    
21.      (princ)
    
22. )

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

skg123

学习的好案例

184632152

不知道怎么用

guankuiwu

学习中！