vt(면적구하는리습)…. 수정하구 싶은데 가능한가요~
이 리습은 소숫점 둘째 자리까지 나오는데 면적 1.20⇒1.2 , 1.00⇒1 이렇게 뒷자리가 0 이면 텍스트에는 나오지 않는데
어느부분을 수정해야 하는지 자세한 설명 부탁드립니다.
리습을 만들어 올려주신분 감사합니다. 유용하게 잘 쓰고있네요.
————————————————————————————-
(defun C:VT( / TEX Q AR PT1 )
(graphscr)
(setvar “cmdecho” 0)
(setq number 0)
(while (setq dum (bpoly (getpoint “n Select pick point … : “)))
(command “AREA” “object” dum)
(setq nu (getvar “AREA”))
(if ( = number nil)
(setq number 0)
)
(setq number ( + number nu) )
(princ (strcat “area ==>”(rtos number 2 2)))
)
(setq tt (entsel “n>>Select change Text : “)
tt1 (car tt)
; ett (substr (cdr (assoc 1 (entget tt1))) 1 6)
)
; (setq AR (strcat ett ” ” (rtos (* number 1) 2 2)) )
(setq AR (rtos (* number 1) 2 2))
(command “CHANGE” TT “” “” “” “” “” “” AR)
(setq number 0)
(setvar “cmdecho” 1)
(command “erase” “L” “”)
)
(defun c:zz()
(setq pz0 (getpoint “npick base of arrowhead “))
(setq pz1 (getpoint “npick tip of arrowhead “))
(command “insert” “2z” pz0 “” “” “”)
(command “explode” “l”)
(command “insert” “2z2” pz1 “” “” “”)
(command “explode” “l”)
)