제가 작성한 lisp인데 무엇이 잘못 되었는지 모르겠네요.
고수님들 조언좀 부탁드립니다.
(defun C:DJ()
(setq insp (getpoint”/ninsert point : “)
cd (rtos (getvar “cdate”)2 8 )
cdate (strcat (substr cd 1 4) “.” (substr cd 5 2) “.” (substr cd 7 2) )
tih (atoi (substr cd 10 2) )
tim (atoi (subatr cd 12 2) )
_ang (+ (* 15 (1-tih)) (*3.75(/tim 15.0)))
)
(command “style” “romans” “romans” “0” “0.85” “0” “” “” “”)
(command “text” “J” “M” insp 3.5 “0” cdate)
(command “insert” “c:/LISP/date.dwg” insp 1 1 0)
(command “insert” “c::/LISP/time.dwg” insp 1 1 _ang)
)
공유