fangmin723 发表于 2019-1-8 15:16:26

文字对正对齐（2019.1.8）

本帖最后由 fangmin723 于 2019-1-21 15:07 编辑

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

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

开心无惧 发表于 2024-11-22 17:38:30

baitang36 发表于 2019-1-25 08:11
;;;;;;;;;;;;;;;;;;;;左对齐文字 99.5.8 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun C:zdq (/ ss txp ...
左对齐有时文字会飞到坐标0点附近，请问是什么原因？

fangmin723 发表于 2019-1-25 08:28:51

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

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

mikewolf2k 发表于 2019-1-8 15:23:57

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

fangmin723 发表于 2019-1-8 15:55:49

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

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

mikewolf2k 发表于 2019-1-8 16:01:57

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

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

fangmin723 发表于 2019-1-8 16:06:11

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

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

yoyoho 发表于 2019-1-8 19:13:36

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

mokson 发表于 2019-1-8 21:35:18

好工具收藏了。

xfjiamy 发表于 2019-1-9 11:07:24

能加个qq吗？定制

bai2000 发表于 2019-1-9 14:17:25

能加个均分的功能更好

taoyi0727 发表于 2019-1-10 08:54:04

为啥看到不回复仅作者见
页: [1] 2 3 4
查看完整版本: 文字对正对齐（2019.1.8）