(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”)
)