请教如何制作：线长度随字长变化的动态块

zyz398298804

天正里有个图名标注，输入文字，下方线长度会自动跟随文字长度而变化，但转T3就会炸开，想请教下，用CAD动态块可以实现这样的操作么，或者其他方法

freedom_ice

可以用反应器，字变化以后，用包围盒获取新的单行文字的长度，然后更新下划线长度。

foolishzy

可以加一个%%U，但是不知道怎么调整下划线线宽。

2. (defun c:xhx(/ ss n )
   
3.         ;下划线
   
4.         (setq ss (ssget '((0 . "*text"))))
   
5.         (while(setq n (ssname ss 0))
   
6.                 (progn
   
7.                         (setq ss (ssdel n ss))
   
8.                         (vlax-put-property (vlax-ename->vla-object n) "TextString"
   
9.                                 (strcat "%%U" (Vlax-Get (Vlax-Ename->Vla-Object n) 'TextString    )))
   
10.                 )
    
11.         )
    
12. )

(defun c:xhx(/ ss n )<br />         ;下划线<br />         (setq ss (ssget '((0 . "*text"))))<br />         (while(setq n (ssname ss 0))<br />                 (progn<br />                         (setq ss (ssdel n ss))<br />                         (vlax-put-property (vlax-ename->vla-object n) "TextString"<br />                                 (strcat "%%U" (Vlax-Get (Vlax-Ename->Vla-Object n) 'TextString    )))<br />                 )<br />         )<br /> )

zyz398298804

foolishzy 发表于 2022-7-13 09:51
可以加一个%%U，但是不知道怎么调整下划线线宽。

想要个块 跟天正图名标注那样 就是转T3不会打散 ，自己做了个动态块但是下划线需要手动拉伸，比例也要自己移动位置

zyz398298804

效果像附件展示的这样子

sandyvs

我也在找，没找到。。应该是这种效果

陨落

我用反应器做过一个，不好用，还挺麻烦

decemc

之前找过，没找到，现在都是自己加

tiancao100

双下划线，和文字长度自动变化

zyz398298804

sandyvs 发表于 2022-7-12 19:09
我也在找，没找到。。应该是这种效果

嗯 就是找下划线事先做好的能随字体长度变化 不用后期生成的

zyz398298804

tiancao100 发表于 2022-7-13 10:32
双下划线，和文字长度自动变化

就是这个效果 不知道怎么实现