lllllja 发表于 2019-1-10 09:37:32

购买以下看看，感谢

friendship 发表于 2019-1-10 20:37:23

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

pop159 发表于 2019-1-24 16:14:58

谢谢。太好用了

baitang36 发表于 2019-1-25 08:11:16


;;;;;;;;;;;;;;;;;;;;左对齐文字 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 发表于 2019-1-25 08:28:51

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

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

renyonghua2014 发表于 2019-2-13 20:13:06

这个好，谢谢提供！

得瑟的猫 发表于 2019-2-13 22:22:35

谢谢分享！

talentzf 发表于 2019-2-15 17:47:08

有点用，有均分就更佳

war3_undead 发表于 2019-10-17 22:49:44

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

wolaixuexi 发表于 2019-12-5 10:20:51

谢谢分享，好东西
页: 1 [2] 3 4
查看完整版本: 文字对正对齐（2019.1.8）