LEE MAC 大师最新力作【 Batch Attribute Editor】 批量修改块属性

qcw911

大家好！
我个人非常喜欢LEE MAC 大师
所以给大家分享最新力作 Batch Attribute Editor

ebigsong

应该就是个读取属性块属性、修改属性块属性的东西吧，应该不是很复杂

1. ;|VxSetAtts - Sets?attribute values to block
   
2. 函数名: VxSetAtts
   
3. 功  能: 设置块中属性
   
4. Copyright: ?000 MENZI ENGINEERING GmbH, Switzerland
   
5. 参数 [类型]:
   
6.     Obj = Object [VLA-OBJECT]
   
7.     Lst = 点表 '(("Tag1" . "Val1")...) [LIST]
   
8. 返回值[类型]: nil
   
9. |;
   
10. (defun VxSetAtts (Obj Lst / AttVal)
    
11.   (setq Obj (vlax-ename->vla-object Obj));将 AutoLISP 类型的对象名转换为 VLA 对象
    
12.   (mapcar
    
13.     '(lambda (Att)
    
14.        (if (setq AttVal (cdr (assoc (vla-get-TagString Att) Lst)))
    
15. (vla-put-TextString Att AttVal)
    
16.        )
    
17.      )
    
18.     (vlax-invoke Obj "GetAttributes")
    
19.   )
    
20.   (vla-update Obj)
    
21.   (princ)
    
22. )
    

;|VxSetAtts - Sets?attribute values to block<br /> 函数名: VxSetAtts<br /> 功  能: 设置块中属性<br /> Copyright: ?000 MENZI ENGINEERING GmbH, Switzerland<br /> 参数 [类型]:<br />     Obj = Object [VLA-OBJECT]<br />     Lst = 点表 '(("Tag1" . "Val1")...) [LIST]<br /> 返回值[类型]: nil<br /> |;<br /> (defun VxSetAtts (Obj Lst / AttVal)<br />   (setq Obj (vlax-ename->vla-object Obj));将 AutoLISP 类型的对象名转换为 VLA 对象<br />   (mapcar<br />     '(lambda (Att)<br />        (if (setq AttVal (cdr (assoc (vla-get-TagString Att) Lst)))<br /> (vla-put-TextString Att AttVal)<br />        )<br />      )<br />     (vlax-invoke Obj "GetAttributes")<br />   )<br />   (vla-update Obj)<br />   (princ)<br /> )<br />

1. 
   
2. ;输入属性块名称，得到属性列表
   
3. (defun VxGetAtts (Obj)
   
4.   (setq Obj (vlax-ename->vla-object Obj))
   
5.   (mapcar
   
6.     '(lambda (Att)
   
7.        (cons (vla-get-TagString Att)
   
8.      (vla-get-TextString Att)
   
9.        )
   
10.      )
    
11.     (vlax-invoke Obj "GetAttributes")
    
12.   )
    
13. )
    

<br /> ;输入属性块名称，得到属性列表<br /> (defun VxGetAtts (Obj)<br />   (setq Obj (vlax-ename->vla-object Obj))<br />   (mapcar<br />     '(lambda (Att)<br />        (cons (vla-get-TagString Att)<br />      (vla-get-TextString Att)<br />        )<br />      )<br />     (vlax-invoke Obj "GetAttributes")<br />   )<br /> )<br />

lhyvn

ebigsong 发表于 2012-4-29 21:52
应该就是个读取属性块属性、修改属性块属性的东西吧，应该不是很复杂

老大，这个命令是什么？

echo19810404

是个软件吗， 哪有下载的吗

myjping

不错，便能说说是做什么用的吗

参股银行

谢谢,就是没有说明啊
自己研究吧

【KAIXIN】

已下载参考，支持一下

zbwei120

lee mac lisp程序的大师，很佩服

来武影

看不懂是做什么的

357785513

高明高明高明高明高明高明高明高明

mac

Lee mac 的确牛

T_T

好东东啊,.谢谢,下载来慢慢学习,

ps122hb

谢谢分享，下载了