(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 “Brother DCP-T300”) ;프린터이름
(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)
)

위에코드가 기존 쓰던 코드인데 다른곳에서 쓰던건데 회사 옮기고 나서 다른리습은 되는데 이리습만 알수없는 명령이라고 나옵니다.. 아래는 캐드화면에서 나오는 메세지 입니다

명령: SD
플롯할 범위 지정(위치를 지정하세요) 가로출력(Enter)?…….세로출력(V)?
알 수 없는 명령 “M”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “L”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “N”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “W”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “F”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “C”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “Y”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “CTB”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “Y”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “W”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “N”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “Y”. 도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “Y”. 도움말을 보려면 F1을 누르십시오.

어떻게 해야 할까요…ㅠㅠ 도와 주세요…

autocad 2020  한글판 입니다 프로 페셔날