아래 lsp 은 일부분입니다.
문제는 선택된 layer의 이름을 변경할 때 색상이 다른 걸로 (0) 바뀌게 됩니다.
색상을 유지하려고 아무리 머리를 써봐도 안되어서 고수 님들의 지적을 부탁드립니다.
(defun chg_line()
(setq m_layer “aaa^test”)
(setq se (ssget))
(setq se_Len (sslength se))
(set i 0)
(while (< i se_len)
; (setq name (ssanem se i))
(setq ed (entget (ssname se i)) old (assoc 8 ed) )
; (setq nc (cdr (assoc 62 ed))) ;; color
(setq e (subst (cons 8 m_layer) old ed))
(entmod e) ;;; <- 원 칼라는 빨강 인데 나중에 회색으로 바뀝니다.
(setq i (+ i 1))
)
)