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

qcw911 发表于 2012-2-2 08:30:03

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

本帖最后由 qcw911 于 2012-2-2 10:22 编辑

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

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")
)
)

lhyvn 发表于 2019-6-13 19:54:08

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

老大，这个命令是什么？

echo19810404 发表于 2019-1-19 00:10:15

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

myjping 发表于 2012-2-2 10:00:50

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

参股银行 发表于 2012-2-2 10:22:29

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

【KAIXIN】 发表于 2012-2-2 10:35:59

已下载参考，支持一下

zbwei120 发表于 2012-2-2 11:15:23

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

来武影 发表于 2012-2-2 11:29:26

看不懂是做什么的

357785513 发表于 2012-2-2 12:28:57

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

mac 发表于 2012-2-2 12:48:24

Lee mac 的确牛

T_T 发表于 2012-2-2 13:43:59

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

ps122hb 发表于 2012-2-2 15:07:30

谢谢分享，下载了

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