(DEFUN C:Nu ()
(setvar “orthomode” 0)
(SETQ W3 (getvar “DIMSCALE”)
w4 (* 5 w3)
w5 (* 2 w3)
w6 (* 8 w3)
r2 (* 1 w3)
fd2 (* 4.2 w3)
r1 0
H1 (* 4 W3))
(while (/= (setq po1 (getpoint “nPick Donut point: “)) nil)
(setq po2 (getpoint po1 “nTo point: “))
(setq t1 (rtos w4 2 0)
t_2 (strcat “T” T1))
;(command “text” “s” T_2 “50,50” “0” “”)
(setq p_a po2
rad_ang (angle p_a po1)
po2 (polar po2 rad_ang w4))
(command
“layer” “M” “DIM” “C” “1” “” “”
“donut” r1 r2 po1 “”
“pline” po1 “w” “0” “0” po2
)
(setq p1 (getvar “lastpoint”))
(while (setq po2 (getpoint “nTo point: ” po2))
(setq p_a po2
rad_ang (angle p_a p1)
po2 (polar po2 rad_ang w4))
(command po2)
(setq p1 (getvar “lastpoint”))
);while end
(command “”)
(COMMAND “change” “l” “” “p” “c” “1” “”)
(if (= nu_old nil)(setq nu_old (strcat “1”)))
(setq p1 p_a
rad_ang (angle p1 p_a)
P3 (polar p1 rad_ang w4))
(setq nu (getstring (strcat “Number String <" nu_old ">:”)))
(if (or (= nu “”)(= nu ” “))(setq nu nu_old))
(setq nu2 (strcat nu))
(setq nu_old nu)
(command
“circle” p1 p3
“change” “l” “” “p” “c” “1” “”
“text” “j” “m” p1 H1 0 nu2)
(command “.change” “l” “” “p” “c” “3” “”)
);while end
(prin1)
);defun end
도넛으로 나오는 부분을 화살표로 바꾸고 싶은데 도움좀 부탁드립니다.