;
(defun c:pyt (/ ar pyung ar1 sc ds)
(setvar “cmdecho” 0)
(prompt “nArea Check! >>> “)
(setq sc (getvar “ltscale”))
(setq ds (* sc 8.0))
(setq pt1 (getpoint “nPick a point ->”))
(setq pt2 (list (car pt1) (- (cadr pt1) ds)))
(command “bpoly” pt1 “” )
(command “area” “e” “l”)
(setq ar (getvar “area”))
(setq ar1 (/ ar 1))
(setq pyung (/ (/ ar 1) 3.3058))
(setq pyung (rtos pyung 2 2))
(setq ar1 (rtos ar1 2 2))
(princ “n Area : “)
(princ ar1)
(princ ” M^2″)
(princ “n Area : “)
(princ Pyung)
(princ ” Pyung”)
(setq disp (strcat “(” Pyung “)” ))
(setq Z (getdist))
(if Z
(setq dsh Z)
)
(setq dsh (getvar “textsize”))
(COMMAND “TEXT”
(SETQ Z PT1)
(SETQ Z dsh)
(SETQ Z 0.0)
(SETQ Z ar1)
)
(COMMAND “TEXT”
(SETQ Z PT2)
(SETQ Z dsh)
(SETQ Z 0.0)
(SETQ Z disp)
)
(prin1)
)
;**************************
밑에 어느 분이 올려 주신건데요
수치는 제곱미터 단위로 안나오길래 ar 1 로 줘 버렸습니다
그런데 처음엔 잘되던게 다른 도면 열고 하려니까
0.000000000 요렇게 텍스트가 삽입이 되네요
이거 머 때문에 그러는 거죠?
도움 부탁 드리겠습니다