[求助]：文字对齐

6623674

除了运用专用工具，例如晓东工具箱之外，在acad里面有什么命令可以把上下错开的文字垂直对齐呢？

lsjjm

参考:
;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)

6623674

谢谢，很不错的lsp程序。不用lsp在cad里面可以实现吗？

lt_zzy

下载地址：http://www.xdcad.net/modrator/fi ... 031031084926_dq.swf

<embed src=http://www.xdcad.net/modrator/file_upload/17510/20031031084926_dq.swf quality=high width=800 height=600 loop=true type="application/x-shockwave-flash">
</embed>

prettyseth

这是一个很实用的方法哦。上面的lsp我一点都看不明白，还不如就 用这种土方法来得轻松。

6623674

太好了，谢谢4楼的兄弟！

番茄炒蛋

二楼的能把这个lsp解释一下吗？在哪里需要加载？命令敲入是不是“TAV”？

wyh

提供一个：rd-xyTEXT1
(这个程序来自中望R14汉化程序里面，经过修改，可以单独使用）