最好上个演示图比较好把
功能是选择要变动图层的图元,然后再选择你所要的图层(选你所要的图层上的任意图元即可实现) (defun c:tt ()
"图层刷"
(while (and (setq s1 (car (entsel "\n选择样板图层<退出>: ")))
(setq ss (ssget))
)
(setq la (cdr (assoc 8 (entget s1))))
(command "chprop" ss "" "la" la "")
)
(princ)
)
感谢分享,继续支持
页:
1
[2]