[求助]：如何对其字符数不同的文本

YKH

如何对其字符数不同的文本.例如:
                                                          AAAAA
                                                          BBB

离开

能不能说清楚些！
不知道你在问什么？

wax03

俺也不明白你是想把他们左对齐还是右对齐还是...........那么多的文本对齐方式必有一种适合你，不行的话就再说具体一点让大家帮忙。

nore

在多行文字中可以控制，如果是单行文字就难些了

lsjjm

最初由 nore 发布
[B]在多行文字中可以控制，如果是单行文字就难些了 [/B]

单行文字也可以:
  ;Text_Align_Vert.LSP                    May 19, 2003        Donald B. Smith, P.E.
;REV: LU.LSP                                JUL 27, 1997        Greg Bernotas
;REV: LINE-UP.LSP                      OCT 9, 1991         Kent Keller
;REV: DINTER                                OCT 9, 1991         P. Legoy
;
;REVISED:  This header and ability to line up any justification
;                     type text along the x-axis more efficently.  The x and
;                     y line-up options were broken out into 2 seperate lisp
;                     files for quick pick action.  See Text_Align_Horz.LSP
;                     for lining up text more efficiently along the y-axis.
;
;PURPOSE: This routine allows user to line up ANY existing
;                      text within a drawing along the Vertical (X) axis.
;
;ACTION:  Initate routine with "tav".
;
(prompt "\nText_Align_Vert.lsp is loaded.")

(defun c:TAV (/ XORY PSET NU OLDECHO LINE-UP ENT VALUE
               NU CT X X2 Y Y2 f f2)
   
   (= XORY "X")

   (setq VALUE (car (getpoint "\nSelect Vertical Location: ")))

   (grdraw (list value (cadr (getvar "vsmin")))
       (list value (cadr (getvar "vsmax"))) -3 1)

   (defun LINE-UP (ENT XORY VALUE)
      (setq x (cadr (assoc 10 ENT)))
      (setq x2(cadr (assoc 11 ENT)))
      (setq y (caddr (assoc 10 ENT)))
      (setq y2(caddr (assoc 11 ENT)))
      (setq f (cdr (assoc 72 ENT)))
      (setq f2(cdr (assoc 73 ENT)))
     
      (= XORY "X")

      (and (= f 0) (= f2 0))
      (setq ENT (subst (list 10 VALUE y) (assoc 10 ENT) ENT))
      (setq ENT (subst (list 11 VALUE y2) (assoc 11 ENT) ENT)) (entmod ENT)
      
     )

   (setq PSET (ssget))
   (if (/= PSET nil)
       (progn
          (SETQ NU 0)
          (while (/= (ssname pset NU) nil)
                 (setq CT (ENTGET (ssname PSET NU)))
                 (if (equal (cdr (assoc 0 CT)) "TEXT")
                     (LINE-UP CT XORY VALUE)
                 )
                 (SETQ NU (+ NU 1))
          )
       )
   )
   (redraw)
   (setvar "cmdecho" 1)
   (princ)
)
(prompt "\nStart command with TAV")
(princ)

YKH

原谅我可能没表达清楚,我得意思是让两行不同字符数的多行文本左右自动对其.谢谢!

jxhaha

分析一下：如果加空格还满足不了你这种对齐要求，那么“单行文本”也只好变成“单个文本”，这样即便编程能做到你的要求，那么对编辑修改文本就十分麻烦～～～
再说，为什么要如此排版文字呢？一段文字具有多行也只有最后一行可能少字数；如果多段文字每段都只有一行且字数不同，那么左对齐是最合理的，一定要把它们拉开到右也对齐？哪有这种不伦不类的排版法？

zhynt

最初由 jxhaha 发布
[B]分析一下：如果加空格还满足不了你这种对齐要求，那么“单行文本”也只好变成“单个文本”，这样即便编程能做到你的要求，那么对编辑修改文本就十分麻烦～～～
再说，为什么要如此排版文字呢？一段文字具有多行也只... [/B]

也有啊，比如在填表格时为了使外观整齐，好看就这样排版。