块属性提取

流_星

请前辈高手帮个忙
我有个tk图块，里面有个tf属性，属性是12
想把这个12赋给tt
请前辈帮个忙

ll_j

图块中的属性也是一种“实体跟随”，用entnext可以得到，种类为ATTRIB，然后再根据组码来判别你需要的就行了。
我这里现在没有CAD，只能提一点思路，你可以自己再看看。

流_星

ll_j 发表于 2013-5-3 19:55
图块中的属性也是一种“实体跟随”，用entnext可以得到，种类为ATTRIB，然后再根据组码来判别你需要的就行了 ...

首先谢谢您
我是刚刚才学习的lisp 想找了例子看看

流_星

前辈们帮帮忙啦

Gu_xl

1. (if (setq atts (vlax-invoke
   
2.                  (vlax-ename->vla-object (car (entsel "\n选择属性块:")))
   
3.                  'GetAttributes
   
4.                )
   
5.     )
   
6.   (setq
   
7.     tt (cdr (assoc (strcase "tf")
   
8.                    (mapcar '(lambda (x)
   
9.                               (cons (strcase (vla-get-TagString x))
   
10.                                     (vla-get-TextString x)
    
11.                               )
    
12.                             )
    
13.                            atts
    
14.                    )
    
15.             )
    
16.        )
    
17.   )
    
18. )

(if (setq atts (vlax-invoke<br />                  (vlax-ename->vla-object (car (entsel "\n选择属性块:")))<br />                  'GetAttributes<br />                )<br />     )<br />   (setq<br />     tt (cdr (assoc (strcase "tf")<br />                    (mapcar '(lambda (x)<br />                               (cons (strcase (vla-get-TagString x))<br />                                     (vla-get-TextString x)<br />                               )<br />                             )<br />                            atts<br />                    )<br />             )<br />        )<br />   )<br /> )

vlisp2012

gu版的程序，总是很经典。

zyhandw

这个应该不难，可以自己动手写写

流_星

Gu_xl 发表于 2013-5-3 22:42

太感谢您了，我现在手头上没有cad回去试试

流_星

zyhandw 发表于 2013-5-4 10:54
这个应该不难，可以自己动手写写

这个对于会lisp语言的不难小菜一碟，
我现在正在学习中
以后会尝试写写小程序的
学习学习

zhouren_cmi

留个记号，需要时学习。