[求助]在vlisp中(vla-setfont)函数的参数如何运用?

chg · 发表于 2002-9-3 14:21:00

我在用(vla-setfont)函数设置textstyle时出现错误，返回提示是参数不可选择，
我是这样写的：(setq textstyle (vla-get-activetextstyle (active-document)))
(vla-setfont textstyle "romans.shx" false false 1 0)
各位大侠是否能帮助在下解决这个问题，多谢！！

陈伯雄 · 发表于 2002-9-3 16:46:00

龙龙仔 · 发表于 2002-9-3 16:54:00

本帖最后由作者于 2002-9-3 16:54:16 编辑

(vla-setfont TEXTSTYLE "romans" "false" "false" 1 0)[br](defun C:YY ()
  (vl-load-com)
  (setq ACADOBJECT (vlax-get-acad-object))
  (setq ACADDOCUMENT (vla-get-activedocument ACADOBJECT))
  (setq TEXTSTYLE (vla-get-activetextstyle ACADDOCUMENT))
  (vla-setfont TEXTSTYLE "romans" "false" "false" 1 0)
  ;(vla-put-bigfontfile textstyle "dayuxp")
  ;(vla-put-fontfile textstyle "txt")
)

chg · 发表于 2002-9-3 18:02:00

多谢龙龙仔大侠的指点，我一定努力学习！以后还请您多多指教才是！
另答陈老师的提问，我用这个方法只是想了解它的用法，在lisp中用
autocad的命令的方法我已经掌握了，现在想学点activex和vba方面的
知识，然而在cad的帮助中只有vba的用法，没有介绍activex在lisp中
的用法，所以特此求教。

龙龙仔 · 发表于 2002-9-4 08:02:00

chg · 发表于 2002-9-4 08:59:00

龙大侠，那以后还请多多指点了！我还想请教一个问题，关于在
lisp中运用activex的书籍我在网上找不到，您有什么好的推荐吗？我现在
买书不方便，只有在网上找，您可以告诉我哪里有吗？谢谢！

chg · 发表于 2002-9-4 09:01:00

龙大侠，那以后还请多多指点了！我还想请教一个问题，关于在
lisp中运用activex的书籍我在网上找不到，您有什么好的推荐吗？我现在
买书不方便，只有在网上找，您可以告诉我哪里有吗？谢谢！

龙龙仔 · 发表于 2002-9-4 12:32:00

chg · 发表于 2002-9-5 11:09:00

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

[求助]在vlisp中(vla-setfont)函数的参数如何运用?

为何不走直接引用Style命令的捷径？

(vla-setfont TEXTSTYLE "romans" "false" "false"&nbs

多谢！

其实我跟你一样,正想要进阶到activex和vba方面

多多帮助我！

多多帮助我！

我手上也没有书,只能看原厂那些VBA的例子及多参与国外论坛

看来只有自己慢慢琢磨和请教各位了！