-
【快速選擇】的方法，選擇同一個圖層的對象，在屬性里面修改圖層。
-
另外一個方法就是使用插件，代碼如下：
-
- (defun C:TES ( / &k1 &kw1 &ob1 &tc1)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(if (null vlax-dump-object) (vl-load-com) )
(if (setq &tc1 (entsel "n請選擇參考圖層或默認為當前圖層"))
(setq &tc1 (cdr (assoc 8 (entget (car &tc1)))))
(setq &tc1 (getvar "clayer"))
)
(if (setq &kw1 (ssget))
(progn
(while (setq &k1 (ssname &kw1 0))
(setq &kw1 (ssdel &k1 &kw1))
(setq &ob1 (vlax-ename->vla-object &k1))
(vla-put-layer &ob1 &tc1);修改圖層為指定圖層
(vla-put-color &ob1 256);改變顏色為圖層顏色
);while
)
)
(princ)
);復制到記事本，以【.lsp】為后綴命名，打開CAD，autolisp加載了，命令【TES】
- (defun C:TES ( / &k1 &kw1 &ob1 &tc1)