修改属性块 属性宽度因子

xudongchu

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

hzyhzjjzh

谢谢楼主分享

chixun99

来学习一下

蓝天cayuer

感谢楼主分享 收藏了

zhoupeng220

学习一下感谢楼主分享

嘒彼小星

2. (defun c:wwd (/ en1 en1_data oldr_list oldr  newr  newr_rr en1_data   )
   
3.   ;更改文字宽度因子
   
4.   
   
5.   (or
   
6.     *newr-var*
   
7.     (setq *newr-var* 1.0)
   
8.   )
   
9.   (or
   
10.     (and
    
11.       (setq newr (getreal (strcat "\n新宽度<" (vl-princ-to-string *newr-var* )">")))
    
12.       (setq *newr-var* newr)
    
13.     )
    
14.     (setq newr *newr-var*)
    
15.   )
    
16.   (while
    
17.   (setq en1(nentsel "\n更改宽度因子"))
    
18.   (setq en1_data (entget (car en1)))
    
19.   (setq oldr_list (assoc 41 en1_data))
    
20.   (setq oldr (cdr oldr_list))
    
21.   (princ "\n当前宽度因子为：")(princ oldr)
    
22.   
    
23.   (setq newr_rr(cons 41 newr))
    
24.   (setq en1_data(subst newr_rr oldr_list en1_data))
    
25.   (entmod en1_data)
    
26.   (princ "\n宽度因子改为：")
    
27.   (princ newr)
    
28.   )
    
29. (princ)
    
30. )

(defun c:wwd (/ en1 en1_data oldr_list oldr  newr  newr_rr en1_data   )<br />   ;更改文字宽度因子<br />   <br />   (or <br />     *newr-var*<br />     (setq *newr-var* 1.0)<br />   )<br />   (or<br />     (and<br />       (setq newr (getreal (strcat "\n新宽度<" (vl-princ-to-string *newr-var* )">")))<br />       (setq *newr-var* newr)<br />     )<br />     (setq newr *newr-var*)<br />   )<br />   (while<br />   (setq en1(nentsel "\n更改宽度因子"))<br />   (setq en1_data (entget (car en1)))<br />   (setq oldr_list (assoc 41 en1_data))<br />   (setq oldr (cdr oldr_list))<br />   (princ "\n当前宽度因子为：")(princ oldr)<br />   <br />   (setq newr_rr(cons 41 newr))<br />   (setq en1_data(subst newr_rr oldr_list en1_data))<br />   (entmod en1_data)<br />   (princ "\n宽度因子改为：")<br />   (princ newr)<br />   )<br /> (princ)<br /> )

自己的，加上必强大佬更改的一下，

lxl217114

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

谢谢分享，收藏了。

simonking

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

yefei812678

谢谢楼主分享

wangjiangling

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