流_星 发表于 2013-5-3 19:47:12

块属性提取

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

ll_j 发表于 2013-5-3 19:55:12

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

流_星 发表于 2013-5-3 20:02:28

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

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

流_星 发表于 2013-5-3 22:17:28

前辈们帮帮忙啦

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

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

vlisp2012 发表于 2013-5-4 10:28:31

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

zyhandw 发表于 2013-5-4 10:54:44

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

流_星 发表于 2013-5-4 17:22:07

Gu_xl 发表于 2013-5-3 22:42 static/image/common/back.gif


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

流_星 发表于 2013-5-4 17:39:19

zyhandw 发表于 2013-5-4 10:54 static/image/common/back.gif
这个应该不难，可以自己动手写写

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

zhouren_cmi 发表于 2013-5-5 09:08:21

留个记号，需要时学习。
页: [1] 2
查看完整版本: 块属性提取