戏男 发表于 2025-2-11 14:32:43

框选文字适应大小

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

attach://140221.dwg

loveu515 发表于 2025-2-11 14:32:44

已更改

uualice2020 发表于 2025-2-11 21:07:21

本帖最后由 uualice2020 于 2025-2-11 21:14 编辑



(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点坐标，明经上一大堆



戏男 发表于 2025-2-12 08:14:52

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

)               


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

loveu515 发表于 2025-2-12 09:10:39

你试试


戏男 发表于 2025-2-12 09:54:16

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

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

戏男 发表于 2025-2-12 11:04:54

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

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

XPG 发表于 2025-2-17 08:34:03

感谢大神分享，谢谢。
页: [1]
查看完整版本: 框选文字适应大小