[練習]變更物件圖層運用

主題回顧 :

請大家一起分享您的方式或是使用心得!


本影片說明三種工具方法供大家參考:
1.「複製性質」MATCHPROP指令：將所選物件的性質套用至其他物件。
說明:
http://docs.autodesk.com/ACD/2011/CHT/filesACR/WS1a9193826455f5ffa23ce210c4a30acaf-4a26.htm

2.「圖層相符」LAYMCH指令：變更所選物件的圖層，以與目標圖層相符。
說明:
http://docs.autodesk.com/ACD/2011/CHT/filesACR/WS1a9193826455f5ffa23ce210c4a30acaf-4a85.htm

3.「將物件複製到新圖層」COPYTOLAYER指令：將一個或多個物件複製到其他圖層。
說明:
http://docs.autodesk.com/ACD/2011/CHT/filesACR/WS1a9193826455f5ffa23ce210c4a30acaf-4ce8.htm

AutoCAD 2D 變更物件圖層工具運用

小弟不才，對於變更物件圖層運用還不太會操作。趕緊學習蘋果爸的方法囉!

我用自己寫的lisp

到某層知道就輸入層名,不知道去選要去那一層的物件
通常看到物件想去那層

代碼:

(defun LAYERR();公用程式
 (setvar "cmdecho" 0) (setvar "menuecho" 1)
    (setq ajs nil)
  (setq ajs (getstring "\n< Name > / Select :"))
  (if (= ajs "")
      (setq FLS (cdr (assoc 8 (entget (ssname (ssget) 0)))))
      (setq FLS ajs)
  )
)
(defun c:LL(/ FLS);到某層
 (LAYERR)
 (command "LAYER" "T" FLS "S" FLS "")(prin1)
)

(defun C:V(/ Ss);將摸到的物件移層,若不知道可以摸要去層的物件
  (prompt "\Ch Layer")
 (setq Ss (ssget))
 (LAYERR)
 (command "change" Ss "" "P" "la" FLS  "")(SETQ SS NIL FLS NIL)(PRIN1)
)

(defun C:`(/ Ss);覆製相同物件到某層,"`"即1的左邊鍵
  (prompt "\Copy * Layer")
 (setq Ss (ssget))
 (LAYERR)
 (command "copy" Ss "" "0,0" "0,0")
 (command "change" Ss "" "P" "la" FLS "")(PRIN1)
)

(defun C:DL(/ FLS);整層刪除物件
 (LAYERR)
 (command "erase" (ssget "X" (list (cons 8 FLS))) "")
 (prompt "\Del Layer: ")(princ FLS)(prin1)
)

defun C:FF(/ FLS);關層
 (SETQ FLL (GETVAR "CLAYER"))
 (LAYERR)
 (if (= fll fls)
    (PROGN
    (prompt "\nSorry it's now layer!")
    (prompt "\nPlease set new layer :")
    (layerr)
    (command "LAYER" "ON" FLS "S" FLS "OFF" FLL "")
    (setq fls fll)
    )
    (command "LAYER" "OFF" FLS "")
 )
 (prompt "\OFF Layer: ")(princ fls)(prin1)
)

(defun C:FG();層全關
  (SETQ FLL (GETVAR "CLAYER"))
(command "LAYER" "OFF" "*" "ON" FLL "")
(prin1)
)
(defun C:TG();層全開
 (command "LAYER" "ON" "*" "")
 (prin1)
)

tooth525 寫到:我用自己寫的lisp
到某層知道就輸入層名,不知道去選要去那一層的物件
通常看到物件想去那層

謝謝您的分享~

回報：程式試過不能使用。
建議：不要使用跟AutoCAD預設指令名稱相同的自訂指令名稱。(如V及DL)