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

水是这样灌溉的

民工为什么要哭？民工的钻研精神，你根本无法比，
看过你的许多帖子，如果有民工一半卖力就够了。

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 zg (cdr (assoc '40 b)))
(prompt "\n当前的文字高度为: <")
(princ zg)
(prompt ">  要求输入的行距=字高+间隙")
(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启动！")

民工

现在这个版本怎么成了火药枪，打一枪装一次火药。

用appload加载以后，按回车不能重复执行程序，还得再加载，输入dqwb提示未知命令。

lxch

真对不起，程序的第一行漏了部分字符，现在已经更正了。

水是这样灌溉的

(setq a (ssget (list )))

(list )可以去掉

gxqshi456

^_^,柔柔好爱你啊

pipeng611

如果能按选择顺序来排序更好哈！

wwddzz

用对齐命令

ljfei800501

最初由 lxch 发布
[B]在程序中增加了一个所选文字高度的提示（因为所选的文字高度是相同的）。
要求输入的行距=字高+间隙。
******注意：本程序不适用于多行文字。

(defun c:dqwb ()
(setq a (ssget (list )))
(setq n (sslength ... [/B]

真的很感谢你,郁闷已久的问题终于解决了!!

谢谢!

ddsue

对程序不懂啊，语法看不懂咋个办呀！

南宫腾

真牛，谢谢 了，这段时间天天在外面跑，也没有时间 上来看，真是太好
谢谢LXCH，柔柔 还有民工