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

lvrenfei

感谢楼主，，E文不是很好，待仔细研究研究

longlongfe

看看好用不 谢谢提供

ORCHI

好东西，正要学习批处理这部分，这个可以参考下。

pop159

谢谢，非常实用。

lvrenfei

我觉得最好写个示例，比较好，，感谢楼主了

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 />

asdrt

有最新的1.3了 更好用！

pimgu

下载学习了        谢谢

spring007_22

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

unicon

这个东西太帅啦。。。。。。谢谢楼主提供。