정확히 어느지점인지 모르겠는데요…
리습은..
(defun c:kk()
(if (= jd1 nil)
(progn
(setq jd1 (getreal “ninput text height”))
);of progn
);of if
(graphscr)
(setvar “cmdecho” 0)
(setq os (getvar “osmode” ))
(setvar “osmode” 0)
(setq p1 (getpoint “n면적구할 위치 찌거! “))
(setq p2 (polar p1 (* pi 1.5) (* jd1 2)))
(command “COLOR” “blue” “”)
(command “bpoly” p1 “”) ; CHECK!
(command “area” “o” “l” “”)
(setq e1 (/ (getvar “area”) 1000000))
(setq d1 (* e1 0.3025))
(setq dm (rtos e1 2 1))
(setq dp (rtos d1 2 1))
(setq bm (strcat “Am =” dm “m2”))
(setq bp (strcat “Ap =” dp “평”))
; (setq bn (strcat “Area=” d2 “ha”))
(command “COLOR” “yellow” “”)
(command “text” p1 jd1 “” bm)
(command “text” p2 jd1 “” bp)
(setvar “osmode” os)
);