块属性值替换

狂刀无痕 · 发表于 2008-5-27 23:30:00

本帖最后由作者于 2008-5-27 23:37:16 编辑

用不着写这么长

;|attm = 刷属性值 ---by lxx.2008.5|;
(defun c:attm (/ ATT1 ATTV1 E I SS1 SS2)
(if (and (setq ss1 (ssget ":S:E" '((0 . "INSERT") (66 . 1))))
(setq ss2 (ssget '((0 . "INSERT") (66 . 1))))
)
(progn (setq att1 (vlax-invoke(vlax-ename->vla-object (ssname ss1 0))'getattributes)
attv1 (mapcar 'vla-get-textstring att1)
i -1
)
(while (setq e (ssname ss2 (setq i (1+ i))))
(mapcar 'vla-put-textstring(vlax-invoke(vlax-ename->vla-object e)'getattributes)attv1)
)
)
)
)

yuhaibotao · 发表于 2012-1-4 14:46:22

重点学习！谢谢各位高手

yuhaibotao · 发表于 2012-1-4 14:47:27

严厉打击借此地收费者。。。

unicon · 发表于 2012-11-9 17:44:39

学习啦。~~~

zhaovlee · 发表于 7 天前

学习啦学习啦

账号		自动登录	找回密码
密码			注册