forverd 发表于 2018-7-28 00:42:24

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

明天我换台电脑试试

yshf 发表于 2018-7-28 08:12:01

   '......

   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 发表于 2018-7-30 09:31:20

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

   Dim AcadDoc As Object


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

forverd 发表于 2018-7-30 09:46:43

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

   Dim AcadDoc As Object


使用Documents已解决问题，非常感谢！！！！
页: 1 [2]
查看完整版本: 求助关于getobject的问题