社区 › AutoCAD工具插件 › 修改属性块 属性宽度因子

xudongchu 发表于 2023-9-21 10:58:45

修改属性块 属性宽度因子

修改属性块属性文字的宽度因子 需要的可以试试。
新手练手程序。

hzyhzjjzh 发表于 2023-9-21 12:47:55

谢谢楼主分享

chixun99 发表于 2023-9-21 13:47:52

来学习一下

蓝天cayuer 发表于 2023-9-21 14:20:06

感谢楼主分享 收藏了

zhoupeng220 发表于 2023-9-27 14:42:55

学习一下感谢楼主分享

嘒彼小星 发表于 2023-10-20 18:00:52

(defun c:wwd (/ en1 en1_data oldr_list oldrnewrnewr_rr en1_data   )
;更改文字宽度因子

(or
    *newr-var*
    (setq *newr-var* 1.0)
)
(or
    (and
      (setq newr (getreal (strcat "\n新宽度<" (vl-princ-to-string *newr-var* )">")))
      (setq *newr-var* newr)
    )
    (setq newr *newr-var*)
)
(while
(setq en1(nentsel "\n更改宽度因子"))
(setq en1_data (entget (car en1)))
(setq oldr_list (assoc 41 en1_data))
(setq oldr (cdr oldr_list))
(princ "\n当前宽度因子为：")(princ oldr)

(setq newr_rr(cons 41 newr))
(setq en1_data(subst newr_rr oldr_list en1_data))
(entmod en1_data)
(princ "\n宽度因子改为：")
(princ newr)
)
(princ)
)
自己的，加上必强大佬更改的一下，

lxl217114 发表于 2023-10-20 18:25:41

嘒彼小星 发表于 2023-10-20 18:00
自己的，加上必强大佬更改的一下，

谢谢分享，收藏了。

simonking 发表于 2024-3-21 11:28:53

请问能实现某一特定块的某一特定属性修改宽度吗。

yefei812678 发表于 2024-3-21 18:05:24

谢谢楼主分享

wangjiangling 发表于 2024-3-25 16:09:08

楼主可以改个选择全部块的吗

查看完整版本: 修改属性块 属性宽度因子