[LISP程序]： 对多行文本进行排序

xing979020

大家好,我有个问题希望大家帮一下忙:

    在某些方面AUTOCAD2002  中,我想对多行的的文字给它一定的距离排列好,不知道有没有好的方法.

  谢谢

lsjjm

排序还是排列? 说清楚已知条件, 具体要求!

自由的鱼

如果是排列的话论坛有这样的程序，你找找！

ruan_gdqf

“对多行的的文字给它一定的距离排列好”晓东工具有　这个　工具

xing979020

就是说:在cad中有好多行文字,每一行都不等距, 现在希望有一个命令能让它们按等距的排好,

lsjjm

请参考:
[php]
(defun c:test ()
  ;(vl-load-com)
  (setq ss (ssget '((0 . "TEXT"))))
  (setq dis (getreal "\nInput Space Between Rows: "))
  (setq nss (acet-ss-sort ss 'getx))
  (defun getx (ent)(cadr (cdr (assoc 10 ent))))
  (setq ssl (reverse (acet-ss-to-list nss)))
  (setq n 0)
  (setq p0 (cdr (assoc 10 (entget (car ssl)))))
  (foreach i ssl
    (setq obj (vlax-ename->vla-object i))
    (vla-put-insertionpoint obj (vlax-3d-point (list (car p0)(cadr p0))))
    (setq p0 (list (car p0)(- (cadr p0) dis)))
  )
)
[/php]
功能: 垂直方向以最高的文本为基础依次向下按给定间隔排列;
          水平方向以最高的文本对齐;
          垂直方向次序保留原次序.

coolzhb

文字修改大师有此功能，还有均分字距功能等。