글자를 클릭할때 면적값으로 변환 되지 않을때가 있는데 원인좀..
;***********************************
; Program ; VV
;면적을 구하고 원하는 글자를 클릭하면
;면적값으로 글자 변환.
;***********************************
(defun C:VV( / TEX Q AR PT1 )
(graphscr)
(setvar “osmode” 16425)
(setvar “cmdecho” 0)
(setq number 0)
(while (setq dum (bpoly (getpoint “n Select pick point … : “)))
(command “AREA” “entity” dum)
(setq nu (getvar “AREA”))
(if ( = number nil)
(setq number 0)
)
(setq number ( + number nu))
(princ (strcat “area ==>”(rtos number 2 2)))
)
(setq AR (rtos number 2 2))
(princ “n>>Select change Text : “)
(setq TT (ssget))
(command “CHANGE” TT “” “” “” “” “” “” AR)
(setq number 0)
(setvar “cmdecho” 1)
(setvar “osmode” 41)
)
(princ)