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

那一抹微笑 · 发表于 2019-3-22 16:48:58

本帖最后由那一抹微笑于 2019-3-25 09:28 编辑

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

newer · 发表于 2019-3-22 17:19:35

建议去看看如何提问的帖子。

你从哪来，来做什么，要到哪去

tzfcn · 发表于 2019-3-22 21:33:25

你的代码是想表达什么呢？
姑且不论代码是错误的，是正确的，就能够表达你的意图吗？

sicky111 · 发表于 2019-3-23 00:02:03

不知道楼主想要干嘛

yangjian001 · 发表于 2019-3-25 07:47:32

谢谢楼主分享

那一抹微笑 · 发表于 2019-3-25 08:34:22

tzfcn 发表于 2019-3-22 21:33
你的代码是想表达什么呢？
姑且不论代码是错误的，是正确的，就能够表达你的意图吗？

这个是用不了的，就怎么改可以用的了

那一抹微笑 · 发表于 2019-3-25 08:36:16

sicky111 发表于 2019-3-23 00:02
不知道楼主想要干嘛

这个是用不了的，就想有大神能否帮忙帮忙改一下，改可以用就好了

那一抹微笑 · 发表于 2019-3-25 08:37:43

tzfcn 发表于 2019-3-22 21:33
你的代码是想表达什么呢？
姑且不论代码是错误的，是正确的，就能够表达你的意图吗？

我就想看有没有大神帮忙改一下然后可以用就好，不太懂这个

那一抹微笑 · 发表于 2019-3-25 08:38:50

newer 发表于 2019-3-22 17:19
建议去看看如何提问的帖子。

你从哪来，来做什么，要到哪去

好的，谢谢

tzfcn · 发表于 2019-3-25 08:42:00

在命令行直接输入HH，再回车或空格就可以运行了

那一抹微笑 · 发表于 2019-3-25 08:44:24

tzfcn 发表于 2019-3-25 08:42
在命令行直接输入HH，再回车或空格就可以运行了

哦，这个我知道，但是那代码有问题的

王鹏_pBZlo · 发表于 2019-3-25 08:55:03

本帖最后由王鹏_pBZlo 于 2019-3-25 09:02 编辑

请确保存在字体样式"2.5-100",下面2句缺引号,改为
(setq en(subst'( 1 . "%%1328@100/200")(assoc 1 en)en));;替换文字内容
(setq en(subst'( 8 . "S-BEAM-REIN-TEXT" )(assoc 8 en)en));;修改文字图层

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

王鹏_pBZlo 发表于 2019-3-25 08:55
请确保存在字体样式"2.5-100",下面2句缺引号,改为
(setq en(subst'( 1 . "%%1328@100/200")(assoc 1 en)en ...

好了,谢谢

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

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

点评

点评

点评

点评

点评