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

414249149

第一次发帖

在论坛找了一个计算线密度的lisp，得到的线密度数据刷不了属性文字，
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)
)

ssyfeng

试试这个，直接选择属性文字

bai2000

多个图形应该做成面域，计算面域面积

414249149

ssyfeng 发表于 2024-5-8 09:58
试试这个，直接选择属性文字

很好用，论坛还是好人多；

昨天忘提1条需求了，默认刷文字，在刷文字的时候可否增加一个写文字的选项，不选写文字就默认刷米重文字

ssyfeng

414249149 发表于 2024-5-8 11:47
很好用，论坛还是好人多；

昨天忘提1条需求了，默认刷文字，在刷文字的时候可否增加一个 ...

不明白你的意思.

414249149

ssyfeng 发表于 2024-5-8 14:34
不明白你的意思.

        (princ "\n选择线密度值替换：")     就是在这步操作的时候增加一个写线密度值选型，但是默认是选择线密度值替换