文字对正对齐（2019.1.8）

fangmin723

话不多说，直接上图（注意：可以选择对齐点，不支持文字均布！！！）

baitang36

;;;;;;;;;;;;;;;;;;;;左对齐文字 99.5.8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:zdq (/ ss txpoint n index OLD72 new72 old11 new11 oldpoint newpoint entl ent type1  )
   (SETVAR "CMDECHO" 0)
  (princ "\n左对齐文字 (c)SYZ 1999.5.8\n请选择需对齐的字符串:")
  (setq ss (ssget))
  (setq txpoint (getpoint "\n输入左起始点: "))
  (setq n (sslength ss))
  (setq index 0)
    (repeat n
    (setq ent (entget (setq aaaa(ssname ss index))))
    (setq index (+ 1 index))
    (setq type1 (assoc 0 ent))
    (if (= "TEXT" (cdr type1))
      (progn
      (setq oldpoint (assoc 10 ent))
      (setq newpoint ( cons (car oldpoint)  (cons(car txpoint) (cdr (cdr oldpoint)))))
      (setq entl (subst newpoint oldpoint ent))
      (setq old72(ASSOC 72 ent))
      (setq new72(cons 72 (cdr(assoc 71 ent))))
      (setq entl (subst new72 old72 entl))
      (setq old11(ASSOC 11 ent))
      (setq new11(list 11 0.0 0.0 0.0))
      (setq entl (subst new11 old11 entl))
      ;(entdel aaaa)
      (entmod entl)
      )
    )
    (if (= "MTEXT" (cdr type1))
      (progn
      (setq oldpoint (assoc 10 ent))
      (setq newpoint ( cons (car oldpoint)  (cons(car txpoint) (cdr (cdr oldpoint)))))
      (setq entl (subst newpoint oldpoint ent))
      (setq old72(ASSOC 72 ent))
      (setq new72(cons 72 (cdr(assoc 71 ent))))
      (setq entl (subst new72 old72 entl))
      (setq old11(ASSOC 11 ent))
      (setq new11(list 11 0.0 0.0 0.0))
      (setq entl (subst new11 old11 entl))
      ;(entdel aaaa)
      (entmod entl)
      )
    )
)
(SETVAR "CMDECHO" 1)
   (prin1)
)

fangmin723

baitang36 发表于 2019-1-25 08:11
;;;;;;;;;;;;;;;;;;;;左对齐文字 99.5.8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:zdq (/ ss txp ...

左中右，上中下，还有五中呢

fangmin723

mikewolf2k 发表于 2019-1-8 15:23
不知道楼主这个有没有均布功能，以及选择对齐点功能。这两个功能一般同类的都有。

没有均布的功能，需要的话可以在这基础上加

mikewolf2k

不知道楼主这个有没有均布功能，以及选择对齐点功能。这两个功能一般同类的都有。

mikewolf2k

fangmin723 发表于 2019-1-8 15:55
没有均布的功能，需要的话可以在这基础上加

建议加个，比较实用的。另外没必要限制文字，别的类型都可以这么对齐的。

fangmin723

mikewolf2k 发表于 2019-1-8 16:01
建议加个，比较实用的。另外没必要限制文字，别的类型都可以这么对齐的。

嗯，谢谢版主的建议，后期有时间在慢慢优化！

yoyoho

谢谢! fangmin723 分享学习!!!!

mokson

好工具收藏了。

xfjiamy

能加个qq吗？定制

bai2000

能加个均分的功能更好

taoyi0727

为啥看到不回复  仅作者见