도움 많이 받고 있습니다 감사드립니다!
리습 수정을 하고싶은데 잘 모르겠습니다..
박스 치는 리습인데 레이어는 두고 색상을 빨간색으로 나오게 하고 싶은데 수정 방법을 잘 모르겠습니다
도움 부탁드립니다

(defun c:BX (/ os cl pt1 pt2 pt3 pt4)
(setq os (getvar “osmode”))
(setvar “osmode” 6163)
(setq cl (getvar “clayer”))
(prompt “\nCommand: X-line…”)
(setq pt1 (getpoint “\n Lower left corner-> int of “))
(setq pt3 (getcorner pt1 “\n Upper right corner-> int of “))
(setvar “osmode” 6163)
(setq pt2 (list (car pt1)(cadr pt3)))
(setq pt4 (list (car pt3)(cadr pt1)))
; (laset “a-note-symb-lgt”)
(command “line” pt1 pt3 “”)
(command “line” pt2 pt4 “”)
(command “layer” “s” cl “”)
(setvar “osmode” os)
(prin1)