여러고수님들께 부탁드립니다..
지금 첨부되어있는 리습은 여러개으 폴리라인을 한번에 선택헤서 그 폴리
라인 중심이 되는곳에 텍스트로 각각의 면적이 표기되는 리습입니다..
제가 알고 싶은건 지금 밑에 적을 리습을 이용해서 평수도 같이 나올 수
있을런지 알고싶어서요..
현재는 면적(숫자만)뿐이 표기안되서 작업할때 좀 힘들어서요..
면적과 평수둘다 나오는 밑의 리습처럼 나왔으면 하는데 고수님들 제가 아무
리 대입을 해도 잘안되서요.. 좀 부탁드립니다…
(defun c:ar(/ d_s ent_p ar_1 ar_2 py_1 py_2 t_p n_p)
(graphscr)
(setvar “cmdecho” 0)
(setq d_s (getvar “dimscale”))
(command “units” “” “8” “” “” “” “”)
(setq ent_p (entsel “n PLINE을 선택하세요!! :”))
(command “area” “e” ent_p)
(setq ar_1 (/ (getvar “area” ) 1.0e+06))
(setq ar_2 (rtos ar_1 2 3))
(setq py_1 (* ar_1 0.3025))
(setq py_2 (rtos py_1 2 3))
(command “units” “” “0” “” “” “” “”)
(prompt “nArea (M2):”)(princ ar_2)
(prompt “nArea (Py):”)(princ py_2)(princ)
(setq t_p (getpoint “nText 삽입 Point:”))
(if (not t_h) (setq t_h 100))
(setq t_h1 (getreal (strcat “nText Height 입력<" (rtos t_h) ">:”)))
(if t_h1 (setq t_h t_h1))
(setq n_p (list (car t_p) (- (cadr t_p) (* t_h 2))))
(command “text” t_p t_h “” (strcat “* Area (M2) : ” ar_2))
(command “text” n_p t_h “” (strcat “* Area (Py) : ” py_2))
(setvar “cmdecho” 1)
(princ)
)