型材线密度如果刷属性文字

kun123322

1、希望大神改造一下 可以刷属性块内的属性文字
2、推出程序会出现错误提示，希望大神也升级一下


(defun c:mz ()
(prompt "\n*请选择对象*: ")
(setq ENT (car (entsel)))
(setq ent (vlax-ename->vla-object ent))
(setq area (vlax-get ent 'area))
(setq wei (* area 0.0027))
(setq wei1 (rtos wei 2 3))
(setq P4 (* 2.5 (getvar "dimscale")))
(princ "\n--->模图重量=  ")
(princ wei1)
(princ "kg/m " )
(princ "\n选择线密度值替换：")
(setq ss (entget (car (entsel))))
(setq ss (subst (cons 1 (strcat wei1 "kg/m")) (assoc 1 ss) ss))
(entmod ss)
(princ)
)

梨子·桃

同行铝型材，好像可以算米重啊，为什么要刷属性块呢？固定的图框属性块？