안녕하십니까
아래 리습은 축척따라……글자의 색깔을 구분할려고 기존리습을
제가 수정해봤습니다
제가 초보인지라..이상데가 없는지 좀 봐주십시오..
cond는 첨 해봐서요…
(defun C:DF (/ s1)
(setvar “cmdecho” 0)
(setq s1 (getreal”n≫≫≫치수 축척비율을 입력하시오: “))
(if (= s1 nil)(setq s1 1))
(cond ((= s1 1) (SETVAR “DIMCLRT” 7))
((= s1 0.1) (SETVAR “DIMCLRT” 140))
((= s1 0.2) (SETVAR “DIMCLRT” 60))
((= s1 0.25) (SETVAR “DIMCLRT” 240))
((= s1 0.5) (SETVAR “DIMCLRT” 41))
((SETVAR “DIMCLRT” 245))
)
(SETVAR “DIMLFAC” s1)
(princ)
)