如何让文字回到正确的位置？

scnc001

如图所示，以白色竖线为基准线，第一个是正确的位置，更换字体后会错位，当双击文字编辑时，文字又会回到正确的位置。这样会带来困扰。

如何写一段代码，运行后文字自动回到正确的位置？

ps：我目前在用的软件里面的修改文字样式命令，选中文字后，修改文字字体、大小后都是正确的位置。

dabingrain

2. (defun ss2lst (ss / i e lst)
   
3.   (setq i -1)
   
4.   (repeat (sslength ss)
   
5.     (setq e (ssname ss (setq i (1+ i)))
   
6.       lst (cons e lst)
   
7.     )
   
8.   )
   
9. )
   
10. (defun en2obj (ename)
    
11.   (vlax-ename->vla-object ename)
    
12. )
    
13. (defun C:DB-Text-InsertionPoint(  / en ss obj InsertionPoint)
    
14.   (if (setq ss (ssget "X" '((0 . "INSERT")(66 . 1))))
    
15.     (foreach en (ss2lst ss)
    
16.       (setq obj (en2obj en))
    
17.       (if (setq InsertionPoint (vlax-get-property obj 'InsertionPoint) )
    
18.         (vlax-put-property obj 'InsertionPoint InsertionPoint)
    
19.       )
    
20.     )
    
21.   )
    
22. )

(defun ss2lst (ss / i e lst)<br />   (setq i -1)<br />   (repeat (sslength ss)<br />     (setq e (ssname ss (setq i (1+ i)))<br />       lst (cons e lst)<br />     )<br />   )<br /> )<br /> (defun en2obj (ename)<br />   (vlax-ename->vla-object ename)<br /> )<br /> (defun C:DB-Text-InsertionPoint(  / en ss obj InsertionPoint)<br />   (if (setq ss (ssget "X" '((0 . "INSERT")(66 . 1))))<br />     (foreach en (ss2lst ss)<br />       (setq obj (en2obj en))<br />       (if (setq InsertionPoint (vlax-get-property obj 'InsertionPoint) )<br />         (vlax-put-property obj 'InsertionPoint InsertionPoint)<br />       )<br />     )<br />   )<br /> )

dabingrain

2. 
   
3. (defun ss2lst (ss / i e lst)
   
4.   (setq i -1)
   
5.   (repeat (sslength ss)
   
6.     (setq e (ssname ss (setq i (1+ i)))
   
7.       lst (cons e lst)
   
8.     )
   
9.   )
   
10. )
    
11. (defun en2obj (ename)
    
12.   (vlax-ename->vla-object ename)
    
13. )
    
14. (defun C:DB-Text-InsertionPoint(  / en ss obj InsertionPoint)
    
15.   (if (setq ss (ssget "X" '((0 . "*TEXT"))))
    
16.     (foreach en (ss2lst ss)
    
17.       (setq obj (en2obj en))
    
18.       (if (setq InsertionPoint (vlax-get-property obj 'InsertionPoint) )
    
19.         (vlax-put-property obj 'InsertionPoint InsertionPoint)
    
20.       )
    
21.     )
    
22.   )
    
23. )

<br /> (defun ss2lst (ss / i e lst)<br />   (setq i -1)<br />   (repeat (sslength ss)<br />     (setq e (ssname ss (setq i (1+ i)))<br />       lst (cons e lst)<br />     )<br />   )<br /> )<br /> (defun en2obj (ename)<br />   (vlax-ename->vla-object ename)<br /> )<br /> (defun C:DB-Text-InsertionPoint(  / en ss obj InsertionPoint)<br />   (if (setq ss (ssget "X" '((0 . "*TEXT"))))<br />     (foreach en (ss2lst ss)<br />       (setq obj (en2obj en))<br />       (if (setq InsertionPoint (vlax-get-property obj 'InsertionPoint) )<br />         (vlax-put-property obj 'InsertionPoint InsertionPoint)<br />       )<br />     )<br />   )<br /> )

scnc001

我发现选中文字后，再在 “文字样式控制” 工具栏里选择一个样式，就不会错位，可以考虑在切换字体后，模拟一下选择文字样式。大神们，如何实现呢？

战神凯哥

也许可以，选中文字，稍微移动一下，可能就归位了、

scnc001

战神凯哥 发表于 2025-9-25 23:43
也许可以，选中文字，稍微移动一下，可能就归位了、

移了之后再编辑，或者换字体，位置就更加不对了

不一样地设计

感谢分享。  

andymong

使用效果很好，感谢分享。

scnc001

dabingrain 发表于 2025-9-26 08:36

感谢分享。。实际应用中还有一些文字其实是块属性文字，一炸开就什么都没了。如何能对块属性文字生效呢

scnc001

战神凯哥 发表于 2025-9-25 23:43
也许可以，选中文字，稍微移动一下，可能就归位了、

请原谅我的武断，我试了一下，所有对象（包括块属性文字）移动 0,0 就能归位。

scnc001

dabingrain 发表于 2025-9-26 08:36

我又试了一下，把块移动一个 0,0 的距离，全部也能归位。能在代码里增加一个属性块吗