修改圖形後如何讓標註面積隨著圖形變化自動修正呢?
下面是我目前使用的標註面積程式,要如何修改呢?

(defun c:sqm (/ obj st1 st2 tp) ;area objects. Uses current text style.
(while
(setq obj (entsel))
(redraw (car obj) 3) ;highlight
(command "area" "o" obj)
(setq st1 (strcat (rtos (getvar "area") 2 2))
st2 (strcat (rtos (* (getvar "area") 0.0001) 2 2) "")
)
(princ st1)(princ " ")(princ st2)(princ "\n")
(if
(setq tp (getpoint "Insert label point: "))
(if (= (cdr (assoc 40 (tblsearch "style" (getvar "textstyle")))) 0)
;;(command "text" tp "" "" st2 "text" "" st2) ;;text height
(command "text" tp "" "" st2) ;;text height
(command "text" tp "" st2 "text" "" st2)
)
)
(redraw (car obj) 4) ;un-highlight
)
(princ))

 

或是各位大師有更好的方式快速標註面積

所以，唯一的辦法，大概就是 殺掉舊的標註，

重新 執行ㄧ次 程式吧？