用AUTOLISP怎么实现批量修改“已有”的样式和字体呢？？

yzl_good

在很多板块中，斑竹介绍了“新建”字体样式的例子，我试验也很成功，


但是在修改已有文字样式时，我确遇到了问题：


已有文字的        样式： style1； 字体名称：         txt        。我直接修改字体为


“仿宋gb32”时老是提示说找不到字体名。


该怎么实现呢？


这种方法行么？要不就干脆新建一个                 XXX名称的字体样式（字体为仿宋gb32），然后，


所有文字只要是原来         字体名是txt的字体，全部将字体替换成         xxx样式。

meflying

将style1字体改为宋体 (defun c:test( / stls)
(setq stls (entget (tblobjname "style" "style1")))
(setq stls (subst (cons 3 "宋体") (assoc 3 stls) stls))
(entmod stls)
)

yzl_good

先谢谢了，但是我想用“仿宋gb32”，


我在你的代码中将“宋体”替换成“仿宋gb32”。这没有象使用


（command "style" "style1" "仿宋gb32" 0 0.9 "n" "n" "n")         这样提示“没有找到字体”


但是在regen以后，中文全部成了 “？？”


这是怎么回事？？

yzl_good

又试了一下，用上面说的两种方法都可以实现字体改为“宋体”，但是都不能实现改为“仿宋_GB2312",


这个问题怎么解决呢？

meflying

我也搞不明白了，我查看它原来的字体，按它的一模一样的去修改都还是不行