我的CAD

tsxvvv

老师：
   我的cad在启动时出现了如下错误：
     d:\programe File\ACAD2000\acEplotx.arx 无法找到所需的动态连接库或其他文件
这是我编写的VBA程序无法运行
                    请帮帮忙！！！！

zfbj

tsxvvv

Public sub ChangHatchPatternSpace()
Dim hatchObj AS Acadhatch
Dim PatternName AS String
Dim PatternType AS Long
Dim bAssociativity AS Boolean
PatternName="ANSI31"
PatternType=0
bAssociativity=true
Set hatchObj=ThisDrawing.ModelSpace.Addhatch (patternName,PatternType,bAssociativity)
Dim outerloop AS AcadEntity
Dim center(0 To 2) AS Double
Dim radius AS Double
center(0)=5
center(1)=3
center(2)=0
radius=5
Set outerloop=ThisDrawing.ModelSpace.AddCircle(center,radius)
hatchObj.appendouterloop(outerloop)
hatchObj.evaluate
End Sub
就这段吧！
但好像不是代码的问题啊！！！我上午时还运行的好好的，但下午就不行了，cad在启动时就出错了，之后代码就无法正常运行了，不知该怎么办？？？？
请老师帮帮忙啊！！！