求助关于getobject的问题

forverd

1. 
   

复制代码

这是我的一段代码，现在的问题是如果Cad是打开的状况下，运行到红色代码部分没有任何提示，如果cad是关闭的情况下就会提示
这个窗口。一直没找到问题出在哪里，现在不想要这个窗口提示该怎么改？谢谢！

Private Sub Main()
    Dim acadapp As Object
    Dim objsel As AcadSelectionSet
    Dim xref As AcadExternalReference
    Dim InsertPoint(0 To 2) As Double
    Dim arrX()
    Dim arrY()
    'On Error Resume Next
    Set acadapp = GetObject(, "AutoCAD.Application")
    If Err Then
        Err.Clear
        Set acadapp = CreateObject("AutoCAD.Application")
        acadapp.Visible = True
    End If

    '遍历该程序所在文件夹内的所有dwg文件
    Dim i, j As Integer
    i = 0
    mydir = Dir(App.Path & "\*.dwg", vbNormal)
    Do While mydir <> ""
        Set wb = GetObject(App.Path & "\" & mydir)
            If mydir = "标准图框.dwg" Then
            GoTo nextdo
        End If

yshf

   '......

   Dim AcadDoc As Object
    Dim wb As Object
    Set AcadDoc = acadapp.ActiveDocument
   
    '遍历该程序所在文件夹内的所有dwg文件
    Dim i, j As Integer
    i = 0
    mydir = Dir(App.Path & "\*.dwg", vbNormal)
    Do While mydir <> ""
        Set wb = AcadDoc.Open(App.Path & "\" & mydir)
        'Set wb = GetObject(App.Path & "\" & mydir)
        If mydir = "标准图框.dwg" Then
            GoTo nextdo
        End If

        '......
        
    Loop

dong20030432

forverd 发表于 2018-7-27 15:32
现在的问题是怎么去掉那个 窗口提醒  ，vb本来就不是强类型的语言，是否定义变量影响不大

你的程序并不完整，自己补齐后并不弹出这个窗口，可能你CAD设置有问题吧。

forverd

qwh923820 发表于 2018-7-27 14:45
Dim wb As Object
这样就可以了！！

现在的问题是怎么去掉那个 窗口提醒  ，vb本来就不是强类型的语言，是否定义变量影响不大

dong20030432

红色代码在哪里呢？怎么没看到？

forverd

dong20030432 发表于 2018-7-27 09:22
红色代码在哪里呢？怎么没看到？

现在可以看到了

forverd

dong20030432 发表于 2018-7-27 09:22
红色代码在哪里呢？怎么没看到？

现在可以看到了

dong20030432

wb是什么变量，做什么用的？怎么没见定义？

forverd

dong20030432 发表于 2018-7-27 12:24
wb是什么变量，做什么用的？怎么没见定义？

dim wb as acaddocument
好像和这个变量定义关系不大

qwh923820

forverd 发表于 2018-7-27 14:34
dim wb as acaddocument
好像和这个变量定义关系不大

Dim wb As Object
这样就可以了！！

zzyong00

既然有acadapp 对象，为什么不用其document的open呢？