제가 다운 받은 법면 그리는 리습인데요
그리기는 잘 되는데, 그리고 나면 객체 색이 흰색으로 고정되거든요
객체 선택하면 레이어랑 색은 레이어 창에 magenta색으로 나오기는 해요
근데 왜 제 콤터 화면에는 흰색으로만 나오는지 답답해서 리습 잘하시는 분들께 도움을 청하게 됐어요 수정할 부분 좀 갈켜 주세요
(defun *ERROR* (st)
(COMMAND “LAYER” “S” Q:LAINIT “”)
(SETVAR “BLIPMODE” 0)
(SETVAR “CMDECHO” 1)
(terpri)
(princ “nerror: “)
(princ st)
(prin1)
)
(DEFUN C:L1(/ scf bl Z A1 A2)
(SETVAR “CMDECHO” 0)
(SETQ Q:LAINIT (GETVAR “CLAYER”))
(setq scf (getvar “ltscale”))
(if (<= scf 10.0)
(setq bl “c:/program files/autocad 2004/support/LINE”)
)
(if (null Q:DIST) (setq Q:DIST 5.0))
(SETQ Z (GETDIST (strcat “n>>> Width <"
(rtos Q:DIST 2 0) “> : “)))
(IF Z (SETQ Q:DIST Z))
(SETQ A1 (GETPOINT “n>>> Start Point : “))
(SETQ A2 (GETPOINT A1 “n>>> End Point : “))
(SETVAR “BLIPMODE” 0)
(command “layer” “M” “M-INSUL” “c” “6” “” “”)
(if (<= scf 10.0)
(SETQ Z (FIX (/ (DISTANCE A1 A2) (* Q:DIST 0.6))))
(SETQ Z (FIX (/ (DISTANCE A1 A2) (* Q:DIST 0.6))))
)
(COMMAND “MINSERT” bl A1 Q:DIST “” (/ (* (ANGLE A1 A2) 180.0) PI)
“” Z (if (<= scf 10.0) (SETQ Z (* Q:DIST 0.6))
(SETQ Z (* Q:DIST 0.6)))
)
(command “layer” “s” Q:LAINIT “”)
(SETVAR “CMDECHO” 1)
(SETVAR “BLIPMODE” 0)
(PRIN1)
)