면적만 구하면 뭐하나요
결국 중량 계산해야 하는데
제가 짜집기한 중량 산출 리습입니다.
ta를 치고 면적을 구하고하 하는 도형의 속에서 클릭하면
무게가 나옵니다.
(DEFUN C:TA(/ A B POIN)
(setq a nil b nil)
(setq poin (getpoint “pick point!”))
(SETQ A (ENTLAST))
(command “bpoly” poin “”)
(SETQ B (ENTLAST))
(IF (/= (cdr (assoc 5 (entget a))) (cdr (assoc 5 (entget b))))
(progn
(grdrawx (entget b))
(COMMAND “AREA” “O” B)
(COMMAND “ERASE” B “” )
(alert (strcat “n **<면적 및 1t 무게>**nn = ”
(rtos (getvar “area”) 2 2) ” mm2 nn = “
(rtos (/ (/ (getvar “area”) 785) 162.278) 2 2) ” kg n “
))
;(SETQ A (GETPOINT “nPOINTPICK!”))
;(COMMAND “TEXT” A 1000 “” (rtos (/ (getvar “area”) 1000000) 2 2) )
(command “redraw”)
)
(alert (strcat “n 면적구하기 실패….!”
))
)
(princ)
)
(defun grdrawx(a / TY B- C-)
(setq b- nil)
(while (setq c- (assoc 10 a))
(if (NOT b-)
(setq b- c- TY C-)
(progn
(grdraw (cdr b-) (cdr c-) 1 1)
(setq b- c-)
)
)
(setq a (cdr (member (assoc 10 a) a)))
)
(grdraw (cdr TY) (cdr B-) 1 1)
)