*点取斜线起点(即文字排列方向线) *点取斜线终点 (结果所选文字在斜线起点和终点间等分排列)。 四、源程序如下: 1.多文字的对齐 199603.04 ( defun c: iddq(/i ntxsize ent entI ol o2 03 o4 a aa oldsiaze newsize index bb cc po pl p pp ento b ss al a2 a3 a4 a5 a6) ( princ"ln") princ"选择对齐方式如下:") princ) (etqa( getstring"nL左R右C中心M中点<L>:") (setq a( strcase a)) (cond((=a"L")(setq al 0 a2 11 a4 10 a5 10)) ((=aM)(setq al I a2 10 a4 11 a5 ID)) ( =a"R"(setq al 2 a2 10 a4 11 a5 Il)) (=a C"(setq al 4 a2 10 a4 11 a5 Il)) ( setq b( getint"hnl.横向对齐(使Y座标一样)2.纵向对齐(使X座标一样)<2>:") ( setq txsize( setpoint"n点取对齐点<点取参照实体>:") ( princ"ln") princ"选取文字(自动滤去非文字实体)") (princ) (whie(<i10000 (setq ss(ssget)) (setq index 0) (setq ento(entget(ssname ss index))) if(=(edr(assoc 72 ento))O) (if (=al o)(setq a5 11)(setq a5 10)) (setq index(+ I index) setq type(assoc O ento)) if(="TEXT"(cdr type) ( setq p(cons(car pO)al) (setq pp(subst p po entO) (setq old (assoc 1l pp)) (if(=a"L")* 点取斜线起点(即文字排列方向线)。 * 点取斜线终点。 (结果所选文字在斜线起点和终点间等分排列)。 四、源程序如下： 1．多文字的对齐： ;-------------------- ; 1996.03.04 ; (defun c:zddq ( / i n txsize ent ent1 o1 o2 o3 o4 a aa oldsiaze newsize index bb cc p0 p1 p pp ent0 b ss a1 a2 a3 a4 a5 a6) (setq i 1) (princ "\n")(princ "选择对齐方式如下:")(princ) (setq a (getstring "\n L 左/R 右/C 中心/M 中点 < L >: ")) (if (= a "")(setq a "L")) (setq a (strcase a)) (cond ((= a "L")(setq a1 0 a2 11 a4 10 a5 10)) ((= a "M")(setq a1 1 a2 10 a4 11 a5 11)) ((= a "R")(setq a1 2 a2 10 a4 11 a5 11)) ((= a "C")(setq a1 4 a2 10 a4 11 a5 11)) ) (setq b (getint "\n1.横向对齐(使 Y 座标一样) 2. 纵向对齐(使 X 座标一样) <2>: ")) (setq txsize (getpoint "\n 点取对齐点<点取参照实体>: ")) (princ "\n")(princ "选取文字(自动滤去非文字实体):")(princ) (while (< i 10000) (setq ss (ssget)) (setq n (sslength ss)) (setq index 0) (repeat n (setq ent0 (entget (ssname ss index))) (if (= (cdr (assoc 72 ent0)) 0) (progn (setq a4 10) (if (/ = a1 0)(setq a5 11)(setq a5 10)) ) ) (setq index (+ 1 index)) (setq type (assoc 0 ent0)) (if (= "TEXT" (cdr type)) (progn (setq p0 (assoc 72 ent0)) (setq p (cons (car p0) a1)) (setq pp (subst p p0 ent0)) (setq old (assoc 11 pp)) (if (= a "L")