안녕하세요 고수님들의 도움이 필요합니다.
캐드 버전을 이번에 2018로 갈아타게 되었습니다.
기존 2011,2016버전에서도 문제없이 잘되는 리습인데 2018에서만 오류가 납니다..ㅠㅠ
; 오류: no function definition: DTR
메세지 오류입니다.
도저히 제가 수정할수 있는 부분이 아닌거 같아서 고수님들의 도움이 필요합니다.
코드 전문입니다.
(defun c:12 (/ os ds cl #1 #2 #3 #4 #5 #6 #7 #8 #9 #10 #11 #12 #13 #14 #15 #16 #17 #18 #19 #20 #21 #22 #23)
(setvar “cmdecho” 0)
(setq ds (getvar “dimscale”))
(setvar “textsize” (* ds 1))
(setq os (getvar “osmode”))
(setq cl (getvar “clayer”))
(setvar “osmode” 4157)
(setq #1 (getpoint “nStartpoint : “))
(setvar “osmode” 4285)
(setq #2 (getpoint #1 “nEndpoint : “))
(setvar “osmode” 4157)
(setq #33 (getint “n피복<50>: “))
(if (= #33 nil)(setq #33 50))
; (setq #34 (* #33 2))
(setq #4 (getint “n간격<300>: “))
(if (= #4 nil)(setq #4 300))
(setvar “osmode” 0)
(setq #3 (distance #1 #2))
(setq #5 (/ #3 #4))
(setq #6 (fix #5))
(setq #7 (- #5 #6))
(if (< #7 0.5)(setq #8 (+ #6 1))(setq #8 (+ #6 2))
);if
(setq #9 (- #8 1))
(setq #10 (polar #1 (dtr 0) #33))
; (setq #11 (polar #10 (dtr 270) 10))
(setq #12 (/ #3 2))
(setq #12 (polar #1 (dtr 0) #12))
(setq #13 (polar #12 (dtr 90) 100))
(setq #14 (getvar “textsize”))
; (setq #15 (+ #14 100))
; (setq #16 (polar #13 (dtr 270) #14))
; (setq #17 (polar #13 (dtr 270) #15))
(setq #18 (itoa #8))
(setq #20 (itoa #4))
(setq #19 (strcat #18 “EA @” #20))
; (setq #21 (strcat “(@” #20 “)”))
; (command “ucs” “z” #1 #2)
; (command “-layer” “N” “DOT” “C” “3” “DOT” “P” “N” “DOT” “S” “DOT” “”) ;레이어생성 도트레이어
(command “-layer” “N” “슬래브간격” “C” “1” “슬래브간격” “P” “N” “슬래브간격” “S” “슬래브간격” “”) ;레이어생성 도트레이어
(command “CIRCLE” #10 (* ds 0.1))
; (command “donut” “0” “40” #10 “”)
(setq #22 (ssget “l”))
(command “array” #22 “” “r” “” #9 #4)
(command “mirror” #22 “” #12 #13 “”)
(command “-layer” “s” “슬래브간격” “”)
(command “text” “J” “BC” #13 “” “” #19 )
; (command “text” #17 “” “” #21 “”)
(command “ucs” “”)
(setvar “osmode” os)
(setvar “clayer” cl)
(prin1)
)
(defun dtr(a)(* pi(/ a 180.0)))
정말 감사합니다~~