레이어를 변경하는 리습인데요
하얀색은 전부 레이어 0번으로
사이언은 2번으로 빨간색은 1번으로요
부탁할께요
;;; Layer 변환 시작 ;;;
(setq selall (ssget “X”))
(setq i1 0 e1 nil)
(setq e1 (sslength selall))
(while (/= i1 e1)
(setq e2 (entget (ssname selall i1)))
(cond ((or (= (cdr (assoc 62 e2)) 3) (= (cdr (assoc 62 e2)) 72))
(setq elis5 (subst (cons 8 “0”) (assoc 8 e2) e2))
(setq
elis6
(subst (cons 6 “bylayer”) (assoc 6 elis5) elis5)
)
(setq elis7 (subst (cons 62 256) (assoc 62 elis6) elis6))
(entmod elis7)
)
((or (= (cdr (assoc 62 e2)) 2) (= (cdr (assoc 62 e2)) 53))
(setq elis5 (subst (cons 8 “Default_2”) (assoc 8 e2) e2))
(setq elis6 (subst (cons 6 “bylayer”) (assoc 6 elis5) elis5))
(setq elis7 (subst (cons 62 256) (assoc 62 elis6) elis6))
(entmod elis7)
)
((or (= (cdr (assoc 62 e2)) 22) (= (cdr (assoc 62 e2)) 213))
(setq elis5 (subst (cons 8 “CL”) (assoc 8 e2) e2))
(setq elis6 (subst (cons 6 “bylayer”) (assoc 6 elis5) elis5))
(setq elis7 (subst (cons 62 256) (assoc 62 elis6) elis6))
(entmod elis7)
)
((or (= (cdr (assoc 62 e2)) 5) (= (cdr (assoc 62 e2)) 163))
(setq elis5 (subst (cons 8 “0L”) (assoc 8 e2) e2))
(setq
elis6
(subst (cons 6 “bylayer”) (assoc 6 elis5) elis5)
)
(setq elis7 (subst (cons 62 256) (assoc 62 elis6) elis6))
(entmod elis7)
)
((= (cdr (assoc 62 e2)) nil)
)
(t
(setq elis5 (subst (cons 8 “Pl”) (assoc 8 e2) e2))
(setq
elis6
(subst (cons 6 “bylayer”) (assoc 6 elis5) elis5)
)
(setq elis7 (subst (cons 62 256) (assoc 62 elis6) elis6))
(entmod elis7)
)
)
(setq i1 (+ 1 i1))
)
(setq selall nil)
;;; Layer 변환 끝 ;;;