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

funny64

多重引线内的文字无法归位，大师能写个代码吗

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 /> )

scnc001

dabingrain 发表于 2025-9-26 14:15

感谢回复。

scnc001

此方法也可以解决低版本cad选不中文字对象的bug

你有种再说一遍

scnc001 发表于 2025-9-27 02:03
此方法也可以解决低版本cad选不中文字对象的bug

把显示切换做出来了吗?是不是和你原本想象的出入很大?是不是准备放弃了?

scnc001

你有种再说一遍 发表于 2025-9-27 16:23
把显示切换做出来了吗?是不是和你原本想象的出入很大?是不是准备放弃了?

做出来了呀。左右的偏差可以忽略，上下的距离，稍稍有点靠上，还可以接受。现在解决了选不中和错位的问题，基本上就这样了。
手势用duotab，属性转文字等功能用谜你，自己修改了网友的lsp，也通过AI编写了lsp，缝合到一起，感觉 还行。

你有种再说一遍

scnc001 发表于 2025-9-27 23:36
做出来了呀。左右的偏差可以忽略，上下的距离，稍稍有点靠上，还可以接受。现在解决了选不中和错位的问题 ...

我记得shx和ttf字高不一样,难道你直接缩放了?

scnc001

你有种再说一遍 发表于 2025-9-27 23:45
我记得shx和ttf字高不一样,难道你直接缩放了?

不是一直要降shx距基线的高度吗，就是因为缩放过呀，原来130%，现在126%