文字对正对齐（2019.1.8）

lllllja

购买以下看看，感谢

friendship

谢谢。太好用了。
不过对齐后撤销，会自动多撤销一步操作、

pop159

谢谢。太好用了

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 ...

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

renyonghua2014

这个好，谢谢提供！

得瑟的猫

谢谢分享！

talentzf

有点用，有均分就更佳

war3_undead

这代码有心了。。。我本想自己写个，看了下，还达不到你这水平。。。学习了。

wolaixuexi

谢谢分享，好东西