textstyle问题

wangph

我在程序中定义了以下函数，要生成一个图，与其它函数一起加载运行时就会出错，如果把以下函数再重新加载一次就可以了，请问是什么方面的原因，我查了很久，就是根这个函数有关。

(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)
)

phoenixdjq

也许你的变量定义重了