框选文字适应大小

戏男

如图，比如把文字选择后，框选红色框大小后，文字大小变成框一样大小并放在框里面，原来文字自动删掉

http://bbs.mjtd.com/forum.php?mod=attachment&aid=MTQwMjIxfDE2MDU0NzBmMGU0OTExMDFmODgzNWVkNWE5MzU3ZWY3fDE3NDAyNDU1MDU%3D&request=yes&_f=.dwg

loveu515

已更改

uualice2020

(defun tt(en1 en2 / d1_1 d1_2 p51 p52 d2_1 d2_2

bl1 bl2

)                 
        (setq d1_1 (distance (9pofent2 en1 1)(9pofent2 en1 3)))
        (setq d1_2 (distance (9pofent2 en1 1)(9pofent2 en1 7)))
        (setq p51(9pofent2 en1 5))
        (setq d2_1 (distance (9pofent2 en2 1)(9pofent2 en2 3)))
        (setq d2_2 (distance (9pofent2 en2 1)(9pofent2 en2 7)))
        (setq p52(9pofent2 en2 5))        
        (setq bl1 (/ d1_1 d2_1 )) (setq bl2 (/ d2_1 d2_2 ))
        (vl-cmdf "move" en2 "" p52 p51)
        
        
        
                (if ( <= bl1 bl2)               
              (vl-cmdf "SCALE" en2 "" p51 bl1)
              (vl-cmdf "SCALE" en2 "" p51 bl2)
               
               
        )
)

代码中9pofent2 是图元的9点坐标，明经上一大堆

戏男

uualice2020 发表于 2025-2-11 21:07
(defun tt(en1 en2 / d1_1 d1_2 p51 p52 d2_1 d2_2 bl1 bl2

)                 

不是选择一个框，是点两点框选的意思

loveu515

你试试

戏男

loveu515 发表于 2025-2-12 09:10
你试试

不想选一个框，可以点两个点来确认范围大小吗？

戏男

loveu515 发表于 2025-2-11 14:32
已更改

可以了，适合了宽度点选了，

XPG

感谢大神分享，谢谢。