사선을 선택하고 사선의 끝점을 지적하면 그 사선에 대한
BASE/RISER/ANGLE을 표시하는 LISP인데 어제까지 LISP 정리할때는 잘 되었는데
오늘 제목과 같은 구문이 뜨면서 실행이 안됩니다.
오류: no function definition: TAN
요런 구문이요
LISP 중에
(defun c:agd ()
(setvar “orthomode” 0)
(setvar “osmode” 0)
(setq w 0)
(setq a (car (entsel)))
(setq bs (entget a))
(setq bj (cdr (assoc 10 bs)))a
(setq c (cdr (assoc 11 bs)))
(setq d (distance bj c))
(setq ang1 (angle bj c))
(setq ang2 (angle c bj))
(setq aa1 (tan ang1))
(setq aa2 (tan ang1))
(setq aa (* aa1 1000.0))
(setq aaa (* aa1 (* scale 12.0)))
(setq ab (/ 1000.0 aa2))
(setq abb (/ (* scale 12.0) aa2))
(setq acc (* aa1 (- 1000.0)))
(setq accc (* aa1 (- (* scale 12.0))))
(setq ad (/ (- 1000.0) aa2))
(setq aad (/ (- (* scale 12.0)) aa2))
(setq ac “1000”)
(setq gg (rtos aa 2 0))
(setq agg (rtos ab 2 0))
(setq cc (rtos acc 2 0))
(setq dgg (rtos ad 2 0))
(setvar “osmode” 161)
(setq b (getpoint “nPick Text point :”))
(setvar “osmode” 0)
(if (and (< ang1 (dtr 90))
(>= ang1 (dtr 45))
)
위에 aa1값에서 에러가 걸리는거 같은데 어떤 문제 인지 조언 부탁드립니다.
오 감사합니다. 해결되었네요.