lisp chuyển các đối tượng về 1 layer

(defun c:o2l ( / ss pp lstoblayer)
(setq
lstoblayer
(list
(cons "DIMENSION" "DIM"); chuyen doi tuong Dimension ve layer DIM
(cons "HATCH" "HATCH")
(cons "INSERT" "BLOCK"); BLOCK (la doi tuong insert) ve layer BLOCK
(cons "*TEXT" "TEXT"); TEXT va MTEXT ve layer text
)
)

(foreach pp lstoblayer
(setq ss (ssget "X" (list (cons 0 (car pp)))))
(if (not (tblsearch "layer" (cdr pp)))
(command ".layer" "m" (cdr pp) "")
)
(command ".chprop" ss "" "la" (cdr pp) "")
)
(princ)
)

Lisp O2L (Object to layer) dưới đây sẽ giúp bạn. Nếu bạn muốn chuyển các đối tượng khác, bạn hãy copy rồi thêm dòng lệnh (cons "KIEUDOITUONG" "TENLAYER") vào cụm các lệnh cons phía dưới.

Nguồn bài viết : https://www.cadviet.com/forum/topic/13677-y%C3%AAu-c%E1%BA%A7u-lisp-chuy%E1%BB%83n-c%C3%A1c-%C4%91%E1%BB%91i-t%C6%B0%E1%BB%A3ng-v%E1%BB%81-1-layer/

(defun c:x1 () (vl-cmdf "clayer" "DEFPOINTS" ))
(defun layset (/ LAY) (setvar "cmdecho" 0)
(setq LAY (entsel "\nChon doi tuong cho Layer hien hanh : "))
(if LAY     (progn    
(setq LAY (cdr (assoc 8 (entget (car LAY)))))
(command "_.layer" "set" LAY "") (princ (strcat "\nLayer : " LAY " da la hien hanh."))  )
           (progn
    (if (not ddlop) (load "ddlop"))  (if (setq LAY (ddlop))
           (progn
          (command "_.LAYER" "ON" LAY "THAW" LAY "SET" LAY "")  (princ (strcat "\nLayer : " LAY " da la hien hanh.")) ) ) ) )(princ) )
(defun c:cg     () (layset))

Lisp chuyển đối tượng được chọn về 1 layer xác định :

;; free lisp from cadviet.com
;;; this lisp was downloaded from https://www.cadviet.com/forum/topic/31222-lisp-chuy%E1%BB%83n-layer/


(Defun c:x11 ( )
(Prompt "\nChon doi tuong muon chuyen lop...")
(Setq chuyen (Ssget))
(command "chprop" chuyen "" "la" "daoduongcu" "")
(Princ)
)


Nguồn bài viết :https://www.cadviet.com/forum/topic/31222-lisp-chuy%E1%BB%83n-layer/