[求助]：请教eachy斑竹:如何用lsp提取属性块的属性

zyun0169

请教如何用lsp提取属性块的属性

marcoyuwen

用ENTNEXT可以。

xyp1964

2. [FONT=courier new]
   
3. (setq att (vla-get-textstring
   
4.             (car (vlax-invoke
   
5.                    (setq obj (vlax-ename->vla-object
   
6.                                (car (entsel))
   
7.                              )
   
8.                    )
   
9.                    'getattributes
   
10.                  )
    
11.             )
    
12.           )
    
13. )[/FONT]

[FONT=courier new]<br /> (setq att (vla-get-textstring<br />             (car (vlax-invoke<br />                    (setq obj (vlax-ename->vla-object<br />                                (car (entsel))<br />                              )<br />                    )<br />                    'getattributes<br />                  )<br />             )<br />           )<br /> )[/FONT]

zyun0169

谢谢斑竹，但是我用
  (setq blk_date (tblnext "block" t));;;从头搜索块
  (while blk_date
    (setq blk_list (assoc 2 blk_date))
    (setq ss (ssget "X" (list blk_list)))
    (setq blk_no (sslength ss))              
    (setq blk_name (cdr blk_list))
;;;如何利用上面的代码,提取属性块的属性att1 att2 att3 ...
    (command "insert" "块名" 1 1 0 blk_name blkno att1 att2 att3 ...)
  )
    (setq blk_date (tblnext "block"))

gucci218

能用cad中的命令，干嘛要写语句.用attext提取属性数据。

zxc001975cvb

值得学习，感谢分享