CH 选物变图层

caoyongjun

15623788285 发表于 2024-9-5 11:54
最好上个演示图比较好把

功能是选择要变动图层的图元，然后再选择你所要的图层（选你所要的图层上的任意图元即可实现）

xyp1964

1. (defun c:tt ()
   
2.   "图层刷"
   
3.   (while (and (setq s1 (car (entsel "\n选择样板图层<退出>: ")))
   
4.               (setq ss (ssget))
   
5.          )
   
6.     (setq la (cdr (assoc 8 (entget s1))))
   
7.     (command "chprop" ss "" "la" la "")
   
8.   )
   
9.   (princ)
   
10. )
    

(defun c:tt ()<br />   "图层刷"<br />   (while (and (setq s1 (car (entsel "\n选择样板图层<退出>: ")))<br />               (setq ss (ssget))<br />          )<br />     (setq la (cdr (assoc 8 (entget s1))))<br />     (command "chprop" ss "" "la" la "")<br />   )<br />   (princ)<br /> )<br />

paulpipi

感谢分享，继续支持