[求助]如何设定自行更改字体高度呢

wang8091 · 发表于 2010-7-11 20:53:00

本帖最后由作者于 2010-7-11 23:49:38 编辑

(defun c:zigao (/ len old new ed i)
       (setq ss (ssget '((-4 . "<xor") (0 . "TEXT") (0 . "MTEXT") (-4 . "xor>"))))
       (setq len (sslength ss) i 0)
       (while (< i len)
              (setq ed (entget (ssname ss i)))
              (setq old (assoc 40 ed) new '(40 . 0.8))
              (setq ed (subst new old ed))
              (entmod ed)
              (setq i (1+ i))
       )
       (princ "已将选中字体字高设为0.8")
       (setq ss nil)
       (princ)
)

就是增加一个我要什么高度就什么高度的@@

AMTONNY · 发表于 2010-7-12 10:56:00

偶顶，期待高手出招

ZZXXQQ · 发表于 2010-7-12 11:46:00

(defun c:zigao (/ ss hh ed i)
(if (and (setq hh (getdist "\n新字高 :"))
(setq ss (ssget '((0 . "*TEXT"))))) (progn
(setq i 0)
(repeat (sslength ss)
(setq ed (entget (ssname ss i)))
(setq ed (subst (cons 40 hh) (assoc 40 ed) ed))
(entmod ed)
(setq i (1+ i))
)
(princ "\n已将选中字体字高设为:") (princ hh) (princ "\n")
))
(princ)
)

liu_kunlun · 发表于 2010-7-12 11:48:00

(defun c:zigao (/ len old new ed i h)

(setq h (getdist "字高/<0.8>:"))

      (if (null h) (setq h 0.8))
       (setq ss (ssget '((-4 . "<xor") (0 . "TEXT") (0 . "MTEXT") (-4 . "xor>"))))
       (setq len (sslength ss) i 0)
       (while (< i len)
              (setq ed (entget (ssname ss i)))
              (setq old (assoc 40 ed) new (cons 40 h))
              (setq ed (subst new old ed))
              (entmod ed)
              (setq i (1+ i))
       )
       (princ (strcat "已将选中字体字高设为" (rtos h 2 2) ))
       (setq ss nil)
       (princ)
)

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