文字对正，对齐工具

棉花糖_one

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

command "justifytext"

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

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 的坐标有没有效