[求助]：CAD中多个多行文字或多个文字怎么对齐？

南宫腾

*-*9 各位大哥，大姐，叔叔、婶婶。

在CAD画图时要输入好多的文字进行说明，可是由于不是起打的（好多个多行文字，参差不齐），
我想让他们都对齐（如全部左对齐）怎么办？？？

782150yhm

用对齐命令你看看行不行啊。

鬼魔

如果不用程序的话
先justifytext,把对齐点改统一
然后选择要修改的文字,在特性里面把X坐标改一样
单行,多行要分开

60191

属性里选多个单行文本的话，改不了X坐标值

可能我的操作不对，请鬼魔说详细些，是每行都分别改X坐标值？

鬼魔

改对齐点可以单多行混着改,改特性不行
ctrl+1
几何图形
位置X坐标,
可以找个你觉得满意的坐标,用复制粘贴

lxch

我在写文字时只使用单行文字，从图框中复制过来，用编辑命令更改内容，然后用程序将它们对齐。

dqwb的含义为对齐文本

;;;程序名 :dqwb.LSP
;;;对齐单行文本，自定义行距程序
;;;
;;;编制者:lxch
;;;编制日期:2005.10.20

(defun c:dqwb ()
(setq a (ssget (list (cons 0 "text"))))
(setq n (sslength a))
(setq all nil)
(setq m 0)
(while (< m n)
(setq all (append all (list (entget (ssname a m)))))
(setq m (1+ m))
)

(setq l 0);按y坐标降序排列
(setq m 1)
(while (< l n)
(setq b (nth l all))
(while (< m n)
(setq c (nth m all))
(if (> (nth 2 (assoc '10 c)) (nth 2 (assoc '10 b)))
(progn
(setq all (subst 'aa (nth l all) all ) )
(setq all (subst 'bb (nth m all) all ) )
(setq all (subst c 'aa all ) )
(setq all (subst b 'bb all ) )
(setq b c)
)
)
(setq m (1+ m))
)
(setq l (1+ l))
(setq m (1+ l))
)

(setq val (getdist "\n行距："))
(setq p (getpoint "\n首行的插入点："))
(setq x0 (car p))
(setq y0 (cadr p))

(setq m 0)
(while (< m n)
(setq b (nth m all))
(setq y (- y0 (* m val)))
(setq z (nth 3 (assoc '10 b)))
(setq xyz_new (list '10 x0 y z))
(setq b (subst (cons '72 0) (assoc '72 b) b))
(setq b (subst (cons '73 0) (assoc '73 b) b))
(setq b (subst xyz_new (assoc '10 b) b ) )
(entmod b)
(setq m (1+ m))
)
)
(princ "\n＝＝＝对齐单行文本，自定义行距程序成功加载！命令行以dqwb启动！")

民工

试了楼上的程序，还不错。
以前我为了这个文本对齐还专门装了“大型”外挂工具集，其实像这样的小程序就足够了。
有点意见：行距能否根据字高x系数来确定，默认一个系数，就像Word的单倍行距、N倍行距的概念。因为有时并不清楚文字字高，对齐前还要查看清楚就有点麻烦。

782150yhm

民工说得极是，将两者结合更好。

lxch

修改了程序，定义了单倍行距。如不适用，可自己更改。

(defun c:dqwb ()
(setq a (ssget (list )))
(setq n (sslength a))
(setq all nil)
(setq m 0)
(while (< m n)
(setq all (append all (list (entget (ssname a m)))))
(setq m (1+ m))
)


(setq l 0);按y坐标降序排列
(setq m 1)
(while (< l n)
(setq b (nth l all))
(while (< m n)
(setq c (nth m all))
(if (> (nth 2 (assoc '10 c)) (nth 2 (assoc '10 b)))
(progn
(setq all (subst 'aa (nth l all) all ) )
(setq all (subst 'bb (nth m all) all ) )
(setq all (subst c 'aa all ) )
(setq all (subst b 'bb all ) )
(setq b c)
)
)
(setq m (1+ m))
)
(setq l (1+ l))
(setq m (1+ l))
)


(setq p (getpoint "\n首行的插入点："))
(setq x0 (car p))
(setq y0 (cadr p))

(setq m 0)
(while (< m n)
(setq b (nth m all))

(setq val (cdr (assoc '40 b)))
(setq val (* val 2))  ;;;val为字高，2相当于单倍行距

(setq y (- y0 (* m val)))
(setq z (nth 3 (assoc '10 b)))
(setq xyz_new (list '10 x0 y z))
(setq b (subst (cons '72 0) (assoc '72 b) b))
(setq b (subst (cons '73 0) (assoc '73 b) b))
(setq b (subst xyz_new (assoc '10 b) b ) )
(entmod b)
(setq m (1+ m))
)
)
(princ "\n＝＝＝对齐单行文本，自定义行距程序成功加载！命令行以dqwb启动！")

民工

试了新程序，有点问题：

1. 对于单行文本和多行文本混杂的情况，对齐后的行距有错；

2. 最好能有个行距确认、输入的步骤，首先默认的是单倍行距，可选的是多倍或者数值形式。

总的说来不错，再改进一下就完美了。

HLB_Konan

这个程序还是比较爽的 民工想法比较好 就是动手比较少

782150yhm

没办法，想动手但是对这些不懂啊。

民工

最初由 HLB_Konan 发布
[B]这个程序还是比较爽的 民工想法比较好 就是动手比较少 [/B]

我打了这么多的字，动手已经很多了

柔柔

lxch长老的程序没试用（电脑忘了带回家），不过民工说好用，那一定好用了，尽管他是假民工，又喜欢偷鸡摸狗，倒是从不说假话，这点柔柔还是比较肯定的。

民工的要求可以达到，把那个2作为缺省值，保留输入行距的功能，比如命令行上这么显示提示：

行距=2.0（单倍），对齐方式=Left
选择文字 或 [Mg/行距 Jmg/ 对齐方式] <全部选择>：

你键入M   (Mg--民工)，出来提示：
输入行距 <2.0> ：

你键入J   (Jmg--假民工)，出来提示：
选择对齐方式[Left/左,Middle/中,Right/右] < Left >：

完后又回到第一个提示，如果你没有选到文字，提示为：
死民工，你眼睛瞎了，连文字也选不到，去死吧！

在输入行距时，如果民工输入1.0，提示;
死民工，文字有叠起来放的吗？你会不会画图？

请lxch长老帮你改一下程序吧，
我改也行呀，就按上面的提示（给你VLX文件，叫你改不了提示，哈哈～～～）

HLB_Konan

最初由 民工 发布
[B]

我打了这么多的字，动手已经很多了 [/B]

民工哭吧！不是罪