아래처럼 하였는데
다른건 다 잘되는데 갑자시 빨간색으로 표시한 부분이 인직이 안되네요
캐드에서 오류: 잘못된 인수 유형: numberp: “878” 이런식으로 나와요..
왜 (setq l (RTOS (+ d f) 2 0)) 이 부분을 인식하지 못할까요??ㅠ
이 부분만 빼면 동작이 잘되는데…
(defun c:11()
(setvar “cmdecho” 0)
(initget 1 “6 8 9 10 11 13 15 17 20 24”)
(setq ks (getkword “n인승[6,8,9,10,11,13,15,17,20,24]:”))
(initget 2 “D P”)
(setq s (getkword “n바닥재종류[대리석(D),폴리싱타일(p)]:”))
(setq o
(cond
((= s “D”) 2.7)
((= s “P”) 2.45)
)
)
(setq j (getint “n바닥재두께:”))
(setq a
(cond
((= ks “6”) 450)
((= ks “8”) 550)
((= ks “9”) 600)
((= ks “10”) 680)
((= ks “11”) 750)
((= ks “13”) 900)
((= ks “15”) 1000)
((= ks “17”) 1150)
((= ks “20”) 1350)
((= ks “24”) 1600)
)
)
(setq k
(cond
((= ks “6”) (* 1.4 0.85))
((= ks “8”) (* 1.4 1.03))
((= ks “9”) (* 1.4 1.13))
((= ks “10”) (* 1.4 1.25))
((= ks “11”) (* 1.4 1.35))
((= ks “13”) (* 1.6 1.35))
((= ks “15”) (* 1.6 1.5))
((= ks “17”) (* 1.8 1.5))
((= ks “20”) (* 1.8 1.7))
((= ks “24”) (* 2 1.75))
)
)
(setq b (* k o j))
(setq c (+ a b))
(setq d (RTOS (+ 0.4 c) 2 0))
(setq f (RTOS (* 0.45 a) 2 0))
(setq l (RTOS (+ d f) 2 0))
(command “-style” “” “” “120” “0.7” “” “” “” “text” “0,0” “0” (strcat (RTOS(+ 0.4 a)2 0) “(카 자중)+” (RTOS (+ 0.4 b) 2 0) “(바닥재)=” d) “text” “0,600” “0” l)
(princ)
)