MText Line Space 多行文字行间距修改

fangmin723

qazxswk 发表于 2025-4-23 11:49
我的想法，想找到控制这个行间距的系统变量，把它设为固定值。

如果有系统变量控制那最好了，不过如果要修改还是需要手动修改

qazxswk

我来更新一下，借花献佛，在浩辰CAD中，支持修改多行文字与多重引线文字。在AutoCAD里不支持修改多重引线文字。可能原因是，多重引线有两个304组码，AutoCAD读取混乱了。

2.   (defun c:11(/ dxf44 dxf45 edata ei ent n rdis si ss s0 str)
   
3.     (if (setq ss (ssget '((0 . "MTEXT,MULTILEADER"))))
   
4.       (progn
   
5.         (if (= nil (setq rdis (getreal "\n输入新行距【0.25～4.00】,默认<0.6>："))) (setq rdis 0.6))
   
6.         (if (< rdis 0.25) (setq rdis 0.25))
   
7.         (if (> rdis 4.0) (setq rdis 4.0))
   
8.         (setq n -1)
   
9.         (while (setq ent (ssname ss (setq n (1+ n))))
   
10.       (setq s0 (cdr (assoc 0 (entget ent))))
    
11.            (cond
    
12.       ((member s0 '("MTEXT"))
    
13.       (setq edata (entget ent) str (cdr (assoc 1 edata)))
    
14.           (if (wcmatch str "*\\psm#.##;*,*\\psm#.#;*,*\\psm#;*")
    
15.             (progn
    
16.               (setq si (1+ (vl-string-search "\\psm" str)))
    
17.               (setq ei (1+ (vl-string-search ";" str (1+ si))))
    
18.               (setq str (vl-string-subst "" (substr str si (- ei si -1)) str))
    
19.               (setq edata (subst (cons 1 str) (assoc 1 edata) edata))
    
20.             ) )
    
21.        (if (setq dxf44 (assoc 44 edata))
    
22.             (setq edata (subst (cons 44 rdis) dxf44 edata))
    
23.             (setq edata (append edata (list (cons 44 rdis))))
    
24.           )
    
25.       (entmod edata))
    
26.       
    
27.       ((member s0 '("MULTILEADER"))
    
28.       (setq edata (entget ent) str (cdr (assoc 304 edata)))
    
29.            (if (wcmatch str "*\\psm#.##;*,*\\psm#.#;*,*\\psm#;*")
    
30.             (progn
    
31.               (setq si (1+ (vl-string-search "\\psm" str)))
    
32.               (setq ei (1+ (vl-string-search ";" str (1+ si))))
    
33.               (setq str (vl-string-subst "" (substr str si (- ei si -1)) str))
    
34.               (setq edata (subst (cons 304 str) (assoc 304 edata) edata))
    
35.             ) )
    
36.       (if (setq dxf45 (assoc 45 edata))
    
37.             (setq edata (subst (cons 45 rdis) dxf45 edata))
    
38.             (setq edata (append edata (list (cons 45 rdis))))
    
39.           )
    
40.       (entmod edata))
    
41.       );;cond
    
42.         )
    
43.       )
    
44.     )
    
45.     (princ (strcat "共修改【" (rtos (sslength ss)) "】个多行文字！"))
    
46.     (princ))

  (defun c:11(/ dxf44 dxf45 edata ei ent n rdis si ss s0 str)<br />     (if (setq ss (ssget '((0 . "MTEXT,MULTILEADER"))))<br />       (progn<br />         (if (= nil (setq rdis (getreal "\n输入新行距【0.25～4.00】,默认<0.6>："))) (setq rdis 0.6))<br />         (if (< rdis 0.25) (setq rdis 0.25))<br />         (if (> rdis 4.0) (setq rdis 4.0))<br />         (setq n -1)<br />         (while (setq ent (ssname ss (setq n (1+ n))))<br />       (setq s0 (cdr (assoc 0 (entget ent))))<br />            (cond <br />       ((member s0 '("MTEXT"))<br />       (setq edata (entget ent) str (cdr (assoc 1 edata)))<br />           (if (wcmatch str "*\\psm#.##;*,*\\psm#.#;*,*\\psm#;*")<br />             (progn<br />               (setq si (1+ (vl-string-search "\\psm" str)))<br />               (setq ei (1+ (vl-string-search ";" str (1+ si))))<br />               (setq str (vl-string-subst "" (substr str si (- ei si -1)) str))<br />               (setq edata (subst (cons 1 str) (assoc 1 edata) edata))<br />             ) )<br />        (if (setq dxf44 (assoc 44 edata))<br />             (setq edata (subst (cons 44 rdis) dxf44 edata))<br />             (setq edata (append edata (list (cons 44 rdis))))<br />           )<br />       (entmod edata))<br />       <br />       ((member s0 '("MULTILEADER"))<br />       (setq edata (entget ent) str (cdr (assoc 304 edata)))<br />            (if (wcmatch str "*\\psm#.##;*,*\\psm#.#;*,*\\psm#;*")<br />             (progn<br />               (setq si (1+ (vl-string-search "\\psm" str)))<br />               (setq ei (1+ (vl-string-search ";" str (1+ si))))<br />               (setq str (vl-string-subst "" (substr str si (- ei si -1)) str))<br />               (setq edata (subst (cons 304 str) (assoc 304 edata) edata))<br />             ) )<br />       (if (setq dxf45 (assoc 45 edata))<br />             (setq edata (subst (cons 45 rdis) dxf45 edata))<br />             (setq edata (append edata (list (cons 45 rdis))))<br />           )<br />       (entmod edata))<br />       );;cond<br />         )<br />       )<br />     )<br />     (princ (strcat "共修改【" (rtos (sslength ss)) "】个多行文字！"))<br />     (princ))