아래와 같이 리습을 만들었는데요 뭐가 잘못된건지 아무리 APPLOAD를 해도 먹질 않아요..
고수님들 부탁드립니다..
파일도 첨부해서 올립니다..
; 사각형을 그리고 면적 구하기
(defun C:QQ (/ RECAREA)
(setq bp (getpoint “n사각형의 왼쪽아래 하단점을 지정하시오:”))
(setq w (getdist bp “n직사각형의 가로길이를 입력하시오:”))
(setq h (getdist bp “n직사각형의 높이값을 입력하시오:”))
(setq p2 (list (+ w (car bp))(cadr bp)))
(setq p3 (list (+ w (car bp))(+ h (cadr bp))))
(setq p4 (list (car bp))(+ h (cadr bp))))
(command “pline” bp p2 p3 p4 “c”)
(setq td (distance bp p3))
(setq d (/ td 2))
(setq d (distance bp p3))
(setq ang (angle bp p3))
(setq mp (polar bp ang d))
(setq area (* w h))
(setq n-area(rtos area 2 3))
(command “text” “j” “m” mp 10 0 n-area)
)