社区 › AutoLISP/Visual LISP 编程技术 › LEE MAC 大师最新力作【 Batch Attribute Editor】 批量修改块属性

lvrenfei 发表于 2012-4-4 22:17:17

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

longlongfe 发表于 2012-4-4 23:03:50

看看好用不 谢谢提供

ORCHI 发表于 2012-4-5 19:25:46

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

pop159 发表于 2012-4-5 19:33:20

谢谢，非常实用。

lvrenfei 发表于 2012-4-6 20:29:40

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

ebigsong 发表于 2012-4-29 21:52:04

本帖最后由 ebigsong 于 2012-4-29 21:54 编辑

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

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




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

asdrt 发表于 2012-7-20 18:34:07

有最新的1.3了 更好用！

pimgu 发表于 2012-7-21 22:26:54

下载学习了      谢谢

spring007_22 发表于 2012-8-2 14:46:47

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

unicon 发表于 2012-11-9 17:57:13

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

查看完整版本: LEE MAC 大师最新力作【 Batch Attribute Editor】 批量修改块属性