vb、cad二次开发，图案填充

lxyflr

高手帮忙，我用VB结合AutoCAD制作了一个地质方面画柱状图的程序，就是根据不同的深度，依据实际的地质情况按一定的比例尺，进行填充不同的l图案（其代表不同的岩性）。我使用循环的方式，当填开始第一块时，填充没有出错且岩性符号正确，但第二块以下到了这一句：Set hatchObj = AcadAp.ActiveDocument.ModelSpace.AddHatch(PatternType, patternName, bAssociativity)，就出错了，提示是“实时错误‘-2145386493（80200003）’：输入无效，好象是给hatchObj 赋了第一次值以后，再赋值就出错了，但这个程序以前我运行的时候没有这个现象，后来我重装系统和vb后，出现的问题，请问是什么原因。

　　　　　　　　　　　　　心里很着急，请帮忙，我的qq307540509，随时恭候。