请教VB，实时变量或with变量未设置

hchm

请教，VB编写的，出现错误为实时错误“91”，（实时变量或with变量未设置）。代码如下：

    Dim AcadApp As AcadApplication
    Dim AcadDocs As AcadDocuments
    Dim AcadDoc As AcadDocument
    Dim MoSpace As AcadModelSpace
    Public ztxzhtwzl1(0 To 2) As Double '块的插入位置1，m
    Dim xzllblock As AcadBlockReference '声明块的变量

Sub huatu()
   
    ztxzhtwzl1(0) = 15000: ztxzhtwzl1(1) = 5000: ztxzhtwzl1(2) = 0 ' 块的插入位置1，m
        
    If ModuleMenj.lzzzzl = 5 Then‘（说明：ModuleMenj.lzzzzl 是一个其它模块中的已知变量）
       Set xzllblock = AcadDoc.ModelSpace.InsertBlock(ztxzhtwzl1, "D:\portal crane\wheel\5wl.dwg", 1, 1, 1, 0)’将D:\portal crane\wheel\

    ElseIf ModuleMenj.lzzzzl = 6 Then
       Set xzllblock = AcadDoc.ModelSpace.InsertBlock(ztxzhtwzl1, "D:\portal crane\wheel\6wl.dwg", 1, 1, 1, 0)

    ElseIf ModuleMenj.lzzzzl = 8 Then
       Set xzllblock = AcadDoc.ModelSpace.InsertBlock(ztxzhtwzl1, "D:\portal crane\wheel\8wl.dwg", 1, 1, 1, 0)

    End If
    xzllblock.Explode‘（此句出现错误）
    xzllblock.Update
    ZoomAll
End Sub

请问是怎么回事？怎样修改？谢谢！

woaishuijia

仔细看看你的代码，如果ModuleMenj.lzzzzl不等于5，也不等于6，也不等于8，程序会怎么样呢？会直接去执行xzllblock.Explode。可这时块参照还没有插入，xzllblock还是nothing啊，你这不是逼着寡妇生孩子吗？

兰州人

关键点是

Set xzllblock =XX ,在本地窗口看,xlaablokc是否为Nothing,

要是为Nothing.就会出现实时变量或with变量未设置的情况出现．

mccad

在End if 前面加上

Else
 Exit Sub

以避开出错的可能。

另外，你必须保证你的文件是存在的。

也可以写成：
Set xzllblock = AcadDoc.ModelSpace.InsertBlock(ztxzhtwzl1, "D:\portal crane\wheel\" & ModuleMenj.lzzzzl & "wl.dwg", 1, 1, 1, 0)

现加上出错判断，来简化程序。

写程序一定要能够针对各种可能的错误，不然给自己用都不及格，就不要说给别人了。