[编程申请]：急需AUTOLISP版的文字对齐程序

gzlpwyyy

请求编一个文字对齐程序,该程序可以把一列文字按要求实现左,中,右方式对齐或水平对齐,天正电气3.0里有一个程序,只是离开天正,该程序就不能用了,求哪位大侠帮小弟一把,谢谢!

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)))
  )
)
(defun getx (ent)(car (cdr (assoc 10 ent))))
[/PHP]

xyp1964

用2004中_properties 的对话框！