社区 › VB › 紧急求助

alway489 发表于 2006-4-11 17:27:00

紧急求助

请问各位高手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 发表于 2006-4-11 17:46:00

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

查看完整版本: 紧急求助