紧急求助

alway489

请问各位高手acadblock 与acadblockreference有什么区别

我的程序中有一段如下代码,在平时没有错误。 但是在当我在模型中插入一个图形块以后,再次运行就出现了错误13,类型不匹配。错误语句是For Each objBlkRef In ThisDrawing.ModelSpace。 请各位帮帮忙，看看是什么问题。

Dim objBlkRef As AcadBlockReference
    For Each objBlkRef In ThisDrawing.ModelSpace
        If StrComp(objBlkRef.Name, "标题栏") = 0 Then
            createMode = False
            Exit For
        End If
    Next objBlkRef

mccad

你能保证你的模型空间中只有一个图块吗？