文字对正，对齐工具

棉花糖_one

插件来自明经，很不错的工具，感谢作者！！！

遗憾的是对正文字后文字会跑位，其它都很不错！！！
有老鸟路过帮忙优化一下，对正文字不跑位就感谢了

cq4920

2. ;; 获取图元包围盒的最小点坐标
   
3.         (setq old_min (cadr (mc:ent-max-min obj)))
   

;; 获取图元包围盒的最小点坐标<br />         (setq old_min (cadr (mc:ent-max-min obj)))<br />

先获取原始图元包围盒点坐标

再根据新的图元包围盒点坐标计算偏移量，修改11 单行文字有效，多行文字未测试，

2. ;; 刷新实体数据
   
3.         (setq ent (entget obj))
   
4.         (setq new_min (cadr (mc:ent-max-min obj))) ; 确保mc:ent-max-min能够正确处理新状态
   
5. 
   
6.         ;; 计算平移补偿
   
7.         (setq dx (- (car old_min) (car new_min)))
   
8.         (setq dy (- (cadr old_min) (cadr new_min)))
   
9. 
   
10.         ;; 更新插入点
    
11.         (setq pt (cdr (assoc 11 ent))) ; 原始插入点
    
12.         (setq new_pt (list (+ (car pt) dx) (+ (cadr pt) dy))) ; 新的插入点
    
13.         (entmod (subst (cons 11 new_pt) (assoc 11 ent) ent))

;; 刷新实体数据<br />         (setq ent (entget obj))<br />         (setq new_min (cadr (mc:ent-max-min obj))) ; 确保mc:ent-max-min能够正确处理新状态<br /> <br />         ;; 计算平移补偿<br />         (setq dx (- (car old_min) (car new_min)))<br />         (setq dy (- (cadr old_min) (cadr new_min)))<br /> <br />         ;; 更新插入点<br />         (setq pt (cdr (assoc 11 ent))) ; 原始插入点<br />         (setq new_pt (list (+ (car pt) dx) (+ (cadr pt) dy))) ; 新的插入点<br />         (entmod (subst (cons 11 new_pt) (assoc 11 ent) ent))

PS 不知道 直接对比新旧图元的 11 的坐标有没有效

棉花糖_one

Bao_lai 发表于 2024-12-12 12:49
用cad的command调整，位置不会变。

command "justifytext"

在这个代码中不知道怎么去修改

Bao_lai

用cad的command调整，位置不会变。

command "justifytext"

429014673

CAD原命令最好用了

fangmin723

修改前记录文字位置，修改后移动下位置就行了

timmy521

好东西，谢谢，

saint008

类似插件不少，还可以搞实体等

w379106181

好东西，谢谢，

自贡黄明儒

买源码，送带式输送机（开矿用哈）

yk1216

好东西，谢谢

jake2017

谢谢大师分享。