textstyle问题
 

textstyle问题
www.dimcax.com
textstyle问题
我在程序中定义了以下函数，要生成一个图，与其它函数一起加载运行时就会出错，如果把以下函数再重新加载一次就可以了，请问是什么方面的原因，我查了很久，就是根这个函数有关。
(defun settextstyle (stylename fontfile bigfontfile
height wfactor /
textstyles textstyleobj
)
(setq textstyles (vla-get-textstyles *acadadocument*)
textstyleobj (vla-add textstyles stylename)
)
(vla-put-activetextstyle *acadadocument* textstyleobj)
(vla-put-fontfile textstyleobj fontfile)
(if (/= bigfontfile "")
(vla-put-bigfontfile textstyleobj bigfontfile)
)
(vla-put-height textstyleobj height)
(vla-put-width textstyleobj wfactor)
)
d
也许你的变量定义重了
工资真的要涨了，心里更加爱党了，能给孩子奖赏了，见到老婆敢嚷了，敢尝海鲜鹅掌了，闲时能逛商场了，遇见美女心痒了，结果物价又涨了！
d