动态字宽

hubeiwdlue

     最近需要一个动态字宽的插件，在论坛中找了几个，感觉都不是自己想要了，就自己写了一个简单的单行文本动态字宽的代码。
-----2023.11.14
    修复了一个bug，原先子函数wdl_wzboxdown算法有问题，现已更新。已经下载的朋友，可以直接将子函数替换一下就可以了。

2. (defun wdl_wzboxdown(en / END PTS ANG ZG PT LENTXT PTE)
   
3.     (setq end (entget en))
   
4.     (setq pts (cdr (assoc 10 end)))
   
5.     (setq ang (cdr (assoc 50 end)))
   
6.     (setq zg (cdr (assoc 40 end)))
   
7.     (setq pt (textbox end))  
   
8.     (setq lentxt (caadr pt))
   
9.     (setq pte (polar pts ang lentxt))
   
10.     (list pts pte)
    
11.   )

(defun wdl_wzboxdown(en / END PTS ANG ZG PT LENTXT PTE)<br />     (setq end (entget en))<br />     (setq pts (cdr (assoc 10 end)))<br />     (setq ang (cdr (assoc 50 end)))<br />     (setq zg (cdr (assoc 40 end)))<br />     (setq pt (textbox end))  <br />     (setq lentxt (caadr pt))<br />     (setq pte (polar pts ang lentxt))<br />     (list pts pte)<br />   )

d1742647821

hubeiwdlue 发表于 2023-11-15 11:43
字宽啊。我一般是调整图纸名称的时候用这个，有的图纸编号太长了，图名框放不下，动态的调起来方便一些。

多行的时候，字宽变窄了，就有可能3行变2行，实际宽度并没有发生改变

hubeiwdlue

d1742647821 发表于 2023-11-15 16:54
多行的时候，字宽变窄了，就有可能3行变2行，实际宽度并没有发生改变

哦，是的。我就是想学习下，大神们都是怎么操作多行文字的字宽的，能发一段代码给我学习下吗？

hubeiwdlue

d1742647821 发表于 2023-11-15 11:39
多行文本到底应该调整字宽还是栏宽呢

字宽啊。我一般是调整图纸名称的时候用这个，有的图纸编号太长了，图名框放不下，动态的调起来方便一些。

戏男

这样调节字的宽度就方便多了，很历害的功能

wangsr

我试用了好用，如能再支持多行文字就更好了。

潘成祥2015

如果也能输入值就好了

hubeiwdlue

wangsr 发表于 2023-11-13 17:03
我试用了好用，如能再支持多行文字就更好了。

我不知道多行文字的宽度因子怎么调用，组码、属性里面好像都没有。

wangsr

hubeiwdlue 发表于 2023-11-13 17:46
我不知道多行文字的宽度因子怎么调用，组码、属性里面好像都没有。

我们群内的高手有时间完善一下谢谢。

paulpipi

感谢分享，简单实用

菜鸟初来乍到

感谢楼主分享

tiancao100

怎么会有这种需求

szhorse

看着不错的功能，明早试试