wangph 发表于 2008-11-4 23:34:00

textstyle问题

<p>我在程序中定义了以下函数，要生成一个图，与其它函数一起加载运行时就会出错，如果把以下函数再重新加载一次就可以了，请问是什么方面的原因，我查了很久，就是根这个函数有关。</p><p>(defun SetTextStyle (stylename&nbsp;&nbsp;&nbsp; fontfile&nbsp; bigfontfile<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; height&nbsp;&nbsp;&nbsp; wfactor&nbsp; /<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; textstyles&nbsp;&nbsp;&nbsp; textstyleObj<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; (setq&nbsp;textstyles&nbsp;&nbsp; (vla-get-TextStyles *AcadADocument*)<br/>&nbsp;textstyleObj (vla-add textstyles stylename)<br/>&nbsp; )<br/>&nbsp; (vla-put-ActiveTextStyle *AcadADocument* textstyleObj)<br/>&nbsp; (vla-put-FontFile textstyleObj fontfile)<br/>&nbsp; (if (/= bigfontfile "")<br/>&nbsp;&nbsp;&nbsp; (vla-put-BigFontFile textstyleObj bigfontfile)<br/>&nbsp; )<br/>&nbsp; (vla-put-height textstyleObj height)<br/>&nbsp; (vla-put-Width textstyleObj wfactor)<br/>)</p>

phoenixdjq 发表于 2008-11-5 13:07:00

<p>也许你的变量定义重了</p><p></p>
页: [1]
查看完整版本: textstyle问题