[原创]：调整文字行间距

david96007

[PHP]
(defun c:Td (/ TxtSS  L_TxtSS            ct           MY_ALL txt         FY        TH
               MY     MY_ALL ct            index  Y_min  Y_max         key        ct
               num    txtEnt txt    gc72   gc73          U_O         U_FX        U_FY
               U_FZ   W_O    NewFP  txt
              )
  (princ "\n请选择需要排列的文字:")
  (setq        TxtSS        (ssget '((0 . "TEXT")))
        L_TxtSS        (sslength TxtSS)
        ct        0
        MY_ALL        nil
  ) ;_ end of setq
  (while (< ct L_TxtSS)
    (setq txt         (entget (ssname TxtSS ct))
          FY         (cadr (trans (cdr (assoc 10 txt)) 0 1))
          TH         (cdr (assoc 40 txt))
          MY         (+ FY (/ Th 2))
          MY_ALL (append MY_ALL (list MY))
          ct         (1+ ct)
    )
  ) ;_ end of while
  (setq        index (vl-sort-i MY_ALL '<)
        Y_min (nth (nth 0 index) MY_ALL)
        Y_max (nth (nth (1- L_TxtSS) index) MY_ALL)
  )
  (initget 128 "S I")
  (setq
    key        (getkword "\n[输入行间距(I)/根据所选文字确定行间距(S)]<S>: "
        ) ;_ end of getkword
  ) ;_ end of setq
  (if (/= key nil)
    (setq key (strcase key))
  ) ;_ end of if
  (if (or (= key "S") (= key nil)) ;_ end of or
    (setq deta_y (/ (- Y_max Y_min) (1- L_TxtSS)))
    (if        (= key "I")
      (progn (princ "请输入行间距:") (setq deta_y (getdist))) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of if
  (setq ct 1)
  (while (< ct L_TxtSS)
    (setq num         (nth ct index)
          txtEnt (ssname TxtSS num)
          txt         (entget txtEnt)
          gc72         (cdr (assoc 72 txt))
          gc73         (cdr (assoc 73 txt))
    ) ;_ end of setq
    (setq Y_Y (- (nth num MY_ALL) (+ y_min (* ct deta_y))) ;_ end of -
    ) ;_ end of setq
    (if        (and (= 0 gc72) (= 0 gc73))
      (progn (setq U_O         (trans (cdr (assoc 10 txt)) 0 1)
                   U_FX         (car U_O)
                   U_FY         (- (cadr U_O) Y_Y)
                   U_FZ         (caddr U_O)
                   W_O         (trans (list U_FX U_FY U_FZ) 1 0)
                   NewFP (list 10 (car W_O) (cadr W_O) (caddr W_O))
                   txt         (subst NewFP (assoc 10 txt) txt)
             )
             (entmod txt)
             (entupd txtent)
      ) ;_ end of progn
      (progn (setq U_O         (trans (cdr (assoc 11 txt)) 0 1)
                   U_FX         (car U_O)
                   U_FY         (- (cadr U_O) Y_Y)
                   U_FZ         (caddr U_O)
                   W_O         (trans (list U_FX U_FY U_FZ) 1 0)
                   NewFP (list 11 (car W_O) (cadr W_O) (caddr W_O))
                   txt         (subst NewFP (assoc 11 txt) txt)
             )
             (entmod txt)
             (entupd txtent)
      ) ;_ end of progn
    ) ;_ end of if
    (setq ct (1+ ct))
  ) ;_ end of while
  (princ)
) ;_ end of defun
[/PHP]

xyp1964

试试wbbj命令：http://www.xdcad.net/forum/showthread.php?s=&threadid=352703

jinsong-liao

晓东工具箱有此功能，学习学习楼主的思路！

hnfsf

楼主这个比小东的好用，对73代码也进行了处理。

zhangzongwei

谢谢我很需要这个程序

xyp1964

适合任意实体的自动“等距分布”程序：
http://p4.xdcad.net/forum/showthread.php?s=&threadid=520816

93090089

谢谢，很好用，如果能靠一边对齐就太完美了

ynjzlzd

我是菜鸟，不知道如何使用这种程序，烦请大家指点下．