表格内多行的单行文字对齐

183017064

表格内多行的单行文字对齐[左中/中间/右中]
http://bbs.mjtd.com/forum.php?mo ... 685&fromuid=7333152
(出处: 明经CAD社区)

修改大佬lostbalance的代码，添加左右上下边距（字高倍数 ps:0.1字高），（可以按需修改）。强制文字宽度0.8（可以按需修改）

2. (setq texts lsti)
   
3.         (setq H_list (mapcar '(lambda (txt) (cdr (assoc 40 (entget txt)))) texts))
   
4.         (setq H_max (apply 'max H_list))
   
5.         (setq margin_top (* 0.2 H_max))   ; 上边距----------------------------------------------------------------------
   
6.         (setq margin_bottom (* 0.1 H_max)) ; 下边距---------------------------------------------------------------------
   
7.         (setq available_height (- (- py2 py1) margin_top margin_bottom))
   
8.         (setq py (/ available_height n))

(setq texts lsti)<br />         (setq H_list (mapcar '(lambda (txt) (cdr (assoc 40 (entget txt)))) texts))<br />         (setq H_max (apply 'max H_list))<br />         (setq margin_top (* 0.2 H_max))   ; 上边距----------------------------------------------------------------------<br />         (setq margin_bottom (* 0.1 H_max)) ; 下边距---------------------------------------------------------------------<br />         (setq available_height (- (- py2 py1) margin_top margin_bottom))<br />         (setq py (/ available_height n))

2. (defun AdjustTextWidth (txtent ty px1 px2 / current_41 tmp_txtdata tbox original_width available_width new_41 height)
   
3.     (setq current_41 (cdr (assoc 41 txtent)))
   
4.     (setq height (cdr (assoc 40 txtent))) ; 获取当前文字高度
   
5.     (setq tmp_txtdata (subst (cons 72 0) (assoc 72 txtent) txtent))
   
6.     (setq tmp_txtdata (subst (cons 73 0) (assoc 73 tmp_txtdata) tmp_txtdata))
   
7.     (setq tmp_txtdata (subst (cons 41 1.0) (assoc 41 tmp_txtdata) tmp_txtdata))
   
8.     (setq tmp_txtdata (subst (cons 10 (list 0 0 0)) (assoc 10 tmp_txtdata) tmp_txtdata))
   
9.     (setq tbox (textbox tmp_txtdata))
   
10.     (if (and tbox (car tbox) (cadr tbox))
    
11.         (progn
    
12.             (setq original_width (- (caadr tbox) (caar tbox)))
    
13.             (setq available_width
    
14.                 (cond
    
15.                     ((= ty "s") (- (- px2 px1) (* 0.2 height))) ; 左边距0.1H -------------------------------------------------------
    
16.                     ((= ty "d") (- (- px2 px1) (* 0.4 height))) ; 中间左右各0.2H边距----------------------------------------------------
    
17.                     ((= ty "f") (- (- px2 px1) (* 0.2 height))) ; 右边距0.1H ---------------------------------------------------------
    
18.                 )
    
19.             )
    
20.             (if (and (> original_width 0) (> (* original_width current_41) available_width))
    
21.                 (progn
    
22.                     (setq new_41 (min (/ available_width original_width) 0.8))
    
23.                     (setq txtent (subst (cons 41 new_41) (assoc 41 txtent) txtent))
    
24.                 )
    
25.             )
    
26.             ;; 强制宽度因子限制
    
27.             (setq current_41 (cdr (assoc 41 txtent)))
    
28.             (if (> current_41 0.8)
    
29.                 (setq txtent (subst (cons 41 0.8) (assoc 41 txtent) txtent))
    
30.             )
    
31.         )
    
32.     )
    
33.     txtent
    
34. )

(defun AdjustTextWidth (txtent ty px1 px2 / current_41 tmp_txtdata tbox original_width available_width new_41 height) <br />     (setq current_41 (cdr (assoc 41 txtent))) <br />     (setq height (cdr (assoc 40 txtent))) ; 获取当前文字高度 <br />     (setq tmp_txtdata (subst (cons 72 0) (assoc 72 txtent) txtent)) <br />     (setq tmp_txtdata (subst (cons 73 0) (assoc 73 tmp_txtdata) tmp_txtdata)) <br />     (setq tmp_txtdata (subst (cons 41 1.0) (assoc 41 tmp_txtdata) tmp_txtdata)) <br />     (setq tmp_txtdata (subst (cons 10 (list 0 0 0)) (assoc 10 tmp_txtdata) tmp_txtdata)) <br />     (setq tbox (textbox tmp_txtdata)) <br />     (if (and tbox (car tbox) (cadr tbox)) <br />         (progn <br />             (setq original_width (- (caadr tbox) (caar tbox))) <br />             (setq available_width <br />                 (cond <br />                     ((= ty "s") (- (- px2 px1) (* 0.2 height))) ; 左边距0.1H -------------------------------------------------------<br />                     ((= ty "d") (- (- px2 px1) (* 0.4 height))) ; 中间左右各0.2H边距----------------------------------------------------<br />                     ((= ty "f") (- (- px2 px1) (* 0.2 height))) ; 右边距0.1H ---------------------------------------------------------<br />                 ) <br />             ) <br />             (if (and (> original_width 0) (> (* original_width current_41) available_width)) <br />                 (progn <br />                     (setq new_41 (min (/ available_width original_width) 0.8)) <br />                     (setq txtent (subst (cons 41 new_41) (assoc 41 txtent) txtent)) <br />                 ) <br />             ) <br />             ;; 强制宽度因子限制<br />             (setq current_41 (cdr (assoc 41 txtent)))<br />             (if (> current_41 0.8)<br />                 (setq txtent (subst (cons 41 0.8) (assoc 41 txtent) txtent))<br />             )<br />         ) <br />     ) <br />     txtent <br /> )

183017064

欢迎大佬指正

jkop

简单、好用、适合目前工作所需，谢谢分享～

szhorse

太感谢了，已经有了表格文字居中，就缺楼主的这个，明早试试我
还需修改一下，不支持天正文字

lxl217114

谢谢楼主分享，点赞

心雨飞飞

支持一下，谢谢分享。

183017064

szhorse 发表于 2025-4-8 23:36
太感谢了，已经有了表格文字居中，就缺楼主的这个，明早试试我
还需修改一下，不支持天正文字

不好意思，我没接触过天正。

技术工作室

支持一下，谢谢分享。

paulpipi

感谢分享，确实好用