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

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