lisp강좌 17번 그래로 코딩을 하고
———– 코딩 내용 ————-
(defun c:userrec()
(setq pt1 (getpoint “first point:”))
(setq pt2 (getcorner pt1 “nsecond point:”))
(setq x1 (min (car pt1) (car pt2)))
(setq x2 (max (car pt1) (max pt2)))
(setq y1 (min (cadr pt1) (cadr pt2)))
(setq y2 (min (cadr pt1) (cadr pt2)))
(setq p1 (list x1 y1) p2 (list x2 y1) p3 (list x2 y2) p4 (list x1 y2))
(command “line” p1 p2 p3 p4 “c”)
(princ)
)
————————————————
위와 같이 코딩하고, 로딩 후 실행하니까 다음과 같은 에러가 발생하네요.
—— 에러내용 ——–
first point:
second point:; error: bad argument type: numberp: (7.38803 8.15997 0.0)
——————
자료형이 잘못 되었다는 것 같은데 어떻게 해결하야할지 모르겠네요.
파일로 로딩하지 않고 그냥 command line에서 입력해 사용하면 제데로 실행되네요.
이 내용을 보시는 분 중 아시는 분이 계시면 꼭 해결답 부탁드립니다.