(defun c:test ( )
(defun dtr(a) (* pi (/ a 180.0)))
(defun rtd(b) (/ (* b 180) pi))
(setq dix 0.0)
(setq diy 0.0)
(setq diz 0.0)
(setq ele (getstring “n 돌출높이 입력:”))
(setq p1 (list dix diy diz))
(setq p2 (polar p1 (dtr 0.0) 2000))
(setq p3 (polar p2 (dtr 90.0) 2000))
(setq p4 (polar p3 (dtr 180.0) 4000))
(setq p5 (polar p4 (dtr 270.0) 4000))
(setq p6 (polar p5 (dtr 0.0) 4000))
(command “pline” p3 p4 p5 p6 p3 “”)
(command “extrude” “l” “” ele “”)
(setq p10 (polar p3 (dtr 90.0) 2000))
(setq p11 (polar p5 (dtr 180.0) 2000))
(command “dimlinear” p3 p4 p10 “”)
(command “dimlinear” p4 p5 p11 “”)
(setq ele (atoi ele))
(setq pc (list dix diy ele))
(setq pz2 (polar pc (dtr 0.0) 2000))
(setq pz3 (polar pz2 (dtr 90.0) 2000))
(setq pz4 (polar pz3 (dtr 180.0) 4000))
(setq pz5 (polar pz4 (dtr 270.0) 4000))
(setq pz6 (polar pz5 (dtr 0.0) 4000))
(command “ucs” “n” “3” p5 p6 pz5 “”)
(command “dimlinear” p5 pz5 p10 “”)
)
첨부된 도면을 보시면 z축으로 그림을 돌출시켰습니다.
그런데 돌출된 높이를 치수를 표현해주고 싶은데 좌측에 나와있는데로 이상하게 치수가 나오는군요 ㅡㅡ;; 우측에 있는 치수는 제가 입력한 치수입니다 lisp으로 이치수를 나오게 하려면 어떻게 해야될까요?..
머리의 한계인지 이틀째 고민하고 있습니다. ^^ 도움부탁드립니다