求助关于getobject的问题

forverd

dong20030432 发表于 2018-7-27 17:28
你的程序并不完整，自己补齐后并不弹出这个窗口，可能你CAD设置有问题吧。

明天我换台电脑试试

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

forverd

yshf 发表于 2018-7-28 08:12
'......

   Dim AcadDoc As Object

为什么会提示   “方法在MDI模式中不可用”  

forverd

yshf 发表于 2018-7-28 08:12
'......

   Dim AcadDoc As Object

使用Documents已解决问题，非常感谢！！！！