如何修改文字样式

张大锤

(defun c:tt()
   (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 . "standard")(assoc 7 en)en))
     (setq en(subst'(40 . 125)(assoc 40 en)en))
     (setq en(subst'(41 . 1)(assoc 41 en)en))
     (entmod en)
   (setq n(1+ n))
   )
  (princ)
)


为什么我更改了standard 和125 在输入命令的时候字体还是standard 和125而不是我更改的  求能帮帮我吗 我想改成MSP明朝字体

lizagen

比如说你如果已经建有文字样式是:“仿宋体”，现在想把选中的字体 改为这个“仿宋体”、字高改为200、宽度比例改成0.7，那就这样写：
(setq en(subst'( 7 . "仿宋体") (assoc 7 en)en))
     (setq en(subst'(40 . 200) (assoc 40 en)en))
     (setq en(subst'(41 . 0.7) (assoc 41 en)en))   
把新的文字样式放到紧挨subst之后的括号里。

lizagen

(setq en(subst'( 7 . "standard")(assoc 7 en)en))
     (setq en(subst'(40 . 125)(assoc 40 en)en))
你的这两段的意思是把当前你所选择字体的样式改为“standard"，当前所选字体字高改为125，当然在输入命令的时候字体还是没有更改了，subst 后面第一项是新的，第二项是旧的，不知道我理解你的意思了没有？

张大锤

lizagen 发表于 2015-11-27 08:29
(setq en(subst'( 7 . "standard")(assoc 7 en)en))
     (setq en(subst'(40 . 125)(assoc 40 en)en))
你 ...

没太明白 是把( 7 . "standard")(assoc 7 en)en))  这前后改掉吗

张大锤

lizagen 发表于 2015-11-27 08:29
(setq en(subst'( 7 . "standard")(assoc 7 en)en))
     (setq en(subst'(40 . 125)(assoc 40 en)en))
你 ...

我大概明白了 "standard  - assoc    这俩个都是一个字体的名字对吗？ 改第一个 不改第二个还是standard字体

松树石头哥