[编程申请]：字符对齐方式修改

lengliqun · 发表于 2007-12-16 17:16:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

将图中字符对齐方式为　左上、左中、左下　的字符改成对齐方式为　左　对齐方式，字符对齐方式为　右上、右中、右下　的字符改成对齐方式为　右　对齐方式

zxq0220 · 发表于 2007-12-16 19:33:26

[php]
;更改文字对齐方式晓东 zxq0220 2007.12.16
(defun c:tt ()
(if (and (princ "\nSelect Text(s) 选择文字 :") (setq ss (ssget '((0 . "TEXT"))))) (progn
  (setq i -1)
  (repeat (sslength ss)
(setq ent (entget(ssname ss (setq i (1+ i))))
      ent (subst '(73 . 0) (assoc 73 ent) ent))
(if (/= (cdr (assoc 72 ent)) 0)
(setq ent (subst '(72 . 2) (assoc 72 ent) ent))
)
(entmod ent)
  )
))
(princ)
)
[/php]

cy956 · 发表于 2007-12-17 17:32:20

这个不行，会移位。你到“明经通道”去下载。

lengliqun · 发表于 2007-12-21 09:13:43

呵呵，都可以啦，谢谢zxq0220 大侠。

idchris · 发表于 2008-7-27 20:38:02

一直在找这个东西！！太好了！！

账号		自动登录	找回密码
密码			立即注册

[编程申请]：字符对齐方式修改

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子