有没有大神帮忙实现一下这个命令

那一抹微笑 · 发表于 2019-3-25 09:25:13

(defun c:hh()
(setvar "cmdecho" 0)
(princ "\n请选择:")
(setq ss(SSGET  '((0 . "text"))))
(setq n 0)
(repeat (sslength ss)
   (setq ent(ssname ss n))
   (setq en(entget ent))
   (setq en(subst'( 7 . "2.5-100")(assoc 7 en)en));;修改字体样式
   (setq en(subst'(40 . 250)(assoc 40 en)en));;修改字高
   (setq en(subst'(41 . 0.7)(assoc 41 en)en));;修改宽度比例
   (setq en(subst'( 1 . %%1328@100/200)(assoc 1 en)en));;替换文字内容
   (setq en(subst'( 8 . S-BEAM-REIN-TEXT )(assoc 8 en)en));;修改文字图层
   (entmod en)
(setq n(1+ n))
)
  (princ)
)

fengyun7000 · 发表于 2019-3-28 10:49:55

(defun c:hh()
(setvar "cmdecho" 0)
(princ "\n请选择:")
(setq ss(SSGET '((0 . "text"))))
(setq n 0)
(repeat (sslength ss)
(setq ent (ssname ss n))
(setq en (entget ent))
(setq en (subst'(7 . "2.5-100") (assoc 7 en) en));;修改字体样式
(setq en (subst'(40 . 250.0) (assoc 40 en) en));;修改字高
(setq en (subst'(41 . 0.7) (assoc 41 en) en));;修改宽度比例
(setq en (subst'(1 . "%%1328@100/200") (assoc 1 en) en));;替换文字内容
(setq en (subst'(8 . "S-BEAM-REIN-TEXT") (assoc 8 en) en));;修改文字图层
(entmod en)
(entupd ent)
(setq n (1+ n))
)
(princ)
)

fengyun7000 · 发表于 2019-3-28 10:55:49

这是运行结果

fengyun7000 · 发表于 2019-3-28 10:57:30

图片加不上去呢？

那一抹微笑 · 发表于 2019-3-29 09:08:53

额，你这个是啥情况

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

[已解决] 有没有大神帮忙实现一下这个命令