为什么插入块的程序会出错？

123movie · 发表于 2008-12-17 17:22:00

哪位大虾给我指出错误，为什么会出错？
块文件和dvb都在同一个目录下，是2006 sp1版本的
错误如附件。
程序如下：
Private Sub test() '测试插入块
Dim objblkref As AcadBlockReference
Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 0
insertionPnt(1) = 0
insertionPnt(2) = 0
Set objblkref = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "块.dwg", 1, 1, 1, 0)
End Sub

ggvoctc5j0u.jpg