(defun c:sd(/ fr p1 p2 ft mech pl tab sctb)

;->*error* start
(defun *error* (msg)
(princ)

(setvar “CMDECHO” 1) ;에코 on

(princ))
;-<*error* end

(setvar “CMDECHO” 0) ;에코 off
(setq mech “Samsung K3300NR (192.168.0.151)”) ;프린터이름
(setq sctb “선범식출력.ctb”) ;플롯스타일

(setq tab (getvar “ctab”)) ;현재 활성화된 영역(도면영역인지…배치영역인지..)

(if (= tab “Model”) (progn ;도면영역일때..

(setq pl (getvar “PSTYLEMODE”))
(if (= pl 0) (progn ;플롯스타일이 stb이면
(setvar “PSTYLEPOLICY” 1) ;ctb 스타일로 설정(0이면 stb)
(command “CONVERTPSTYLES”) ;플롯스타일적용
))

(princ ” 플롯할 범위 지정(위치를 지정하세요)”)
(setq p1 (getpoint))
(if (= p1 nil) (progn (setq ft 1))
(progn
(setq p2 (getcorner p1))
(if (= p2 nil) (setq ft 1))
))

(initget “V v”) ;대`소문자 v 만받아들임
(setq fr (getkword ” 가로출력(Enter)?…….세로출력(V)?”))
(if (= fr nil)
(progn (command “-plot” “y” “model” mech “a4” “m” “l” “n” “w” p1 p2 “f” “c” “y” sctb “y” “w” “n” “y” “y”))
(progn (command “-plot” “y” “model” mech “a4” “m” “p” “n” “w” p1 p2 “f” “c” “y” sctb “y” “w” “n” “y” “y”))
))

(progn ;배치영역일때..

(setq pl (getvar “PSTYLEMODE”))
(if (= pl 0) (progn ;플롯스타일이 stb이면
(setvar “PSTYLEPOLICY” 1) ;ctb 스타일로 설정(0이면 stb)
(command “CONVERTPSTYLES”) ;플롯스타일적용
))

(princ ” 플롯할 범위 지정(위치를 지정하세요)”)
(setq p1 (getpoint))
(if (= p1 nil) (progn (setq ft 1))
(progn
(setq p2 (getcorner p1))
(if (= p2 nil) (setq ft 1))
))

(initget “V v”) ;대`소문자 v 만받아들임
(setq fr (getkword ” 가로출력(Enter)?…….세로출력(V)?”))
(if (= fr nil)
(progn (command “-plot” “y” “” mech “a4” “m” “l” “n” “w” p1 p2 “f” “c” “y” sctb “y” “y” “n” “n” “n” “n” “y”))
(progn (command “-plot” “y” “” mech “a4” “m” “p” “n” “w” p1 p2 “f” “c” “y” sctb “y” “y” “n” “n” “n” “n” “y”))
)))

(setvar “CMDECHO” 1)

(princ)
(princ)
)

————————————————- 여기까지가 리습 코드 입니다

[ RENBL ]
명령:SD 플롯할 범위 지정(위치를 지정하세요) 가로출력(Enter)?…….세로출력(V)?
알수 없는 명령 “l”. F1를 눌러 도움말을 확인하세요.
알수 없는 명령 “n”. F1를 눌러 도움말을 확인하세요.
알수 없는 명령 “w”. F1를 눌러 도움말을 확인하세요.
알수 없는 명령 “44793.520773,-5732.214444”. F1를 눌러 도움말을 확인하세요.
알수 없는 명령 “45399.559723,-6108.782336”. F1를 눌러 도움말을 확인하세요.
알수 없는 명령 “f”. F1를 눌러 도움말을 확인하세요.
알수 없는 명령 “c”. F1를 눌러 도움말을 확인하세요.
알수 없는 명령 “y”. F1를 눌러 도움말을 확인하세요.
알수 없는 명령 “선범식출력.ctb”. F1를 눌러 도움말을 확인하세요.
알수 없는 명령 “y”. F1를 눌러 도움말을 확인하세요.
알수 없는 명령 “w”. F1를 눌러 도움말을 확인하세요.
알수 없는 명령 “n”. F1를 눌러 도움말을 확인하세요.
알수 없는 명령 “y”. F1를 눌러 도움말을 확인하세요.
알수 없는 명령 “y”. F1를 눌러 도움말을 확인하세요.

———-이렇게 메시지가 뜨면서 인쇄가 안되네요 도와주세요