文本对齐工具

自贡黄明儒

;;关于文本对齐工具，记得版主也搞了一个
;;这是我在别的网站下载，经使用发现，这个程序不错。缺点是没有对话框和运行有点慢，在此与大家分享
(defun c:ju (/ alf     ali     axis    b1      b2      col     dis     disc
        disr    e0      e00     ei      en      ent     etx     h
        i       ii      ix      iy      j72     j73     ju72    ju73
        jus     l1      list0   list1   lx      mc      num     obl
        olderr  oldsnp  oldzin  pre     pt_list pt0     pt1     pti
        ptx     ptxy    pty     rc      row     s       se      se3
        se4     set0    set1    set2    si      sign    ss      ss0
        sta     tname   tmp     x       x0      xi      xy      ym
        ju_array        ju_col  ju_column_row   ju_dist ju_in   ju_m_pt
        ju_mktext       ju_sorten       ju_out  ju_rc   ju_row  ju_set
        ju_sta  ju_stas ju_txt  ju_vset
       )
  (command "color" (getvar "cecolor"))
  (setq olderr *error*)
  (setq oldsnp (getvar "osmode"))
  (setq oldzin (getvar "dimzin"))
  (setvar "osmode" 0)
  (setvar "dimzin" 0)
  (setq *error* newerr)
  (princ "\n选取文本: ")
  (setq se1 (ssget '((0 . "TEXT"))))
  (if se1
    (progn
      (princ "\n请稍候...\n")
      (ju_defun)
      (ju_set se1)
      (ju_row)
      (princ "...\n")
      (ju_col)
      (ju_rc)
      (ju_vset)
      (ju_in)
      (ju_out)
    )
    (princ "\n空选择集。")
  )
  (if oldsnp
    (setvar "osmode" oldsnp)
  )
  (if oldzin
    (setvar "dimzin" oldzin)
  )
  (setq *error* olderr)
  (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(princ "\n**文本对齐工具,自由软件,版本号 1.21,作者: 南京市市政设计研究院 嵇龙。**")
(princ "\n**命令：ju")

梦里水香

试用了一下，非常好用，可以将单行文本自由对齐。

自贡黄明儒

梦里水香 发表于 2012-6-7 13:36
试用了一下，非常好用，可以将单行文本自由对齐。

http://bbs.mjtd.com/thread-92449-1-1.html
这个似乎效率更高

革天明

顶一下，谢谢楼主分享

42142

梦醒才知原是梦