forverd 发表于 2018-7-25 16:15:24

求助关于getobject的问题

本帖最后由 forverd 于 2018-7-27 11:43 编辑


这是我的一段代码，现在的问题是如果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 发表于 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

dong20030432 发表于 2018-7-27 17:28:46

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

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

forverd 发表于 2018-7-27 15:32:10

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

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

dong20030432 发表于 2018-7-27 09:22:40

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

forverd 发表于 2018-7-27 11:44:05

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

现在可以看到了

forverd 发表于 2018-7-27 11:44:32

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

现在可以看到了

dong20030432 发表于 2018-7-27 12:24:43

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

forverd 发表于 2018-7-27 14:34:21

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

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

qwh923820 发表于 2018-7-27 14:45:09

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

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

zzyong00 发表于 2018-7-27 20:39:13

既然有acadapp 对象，为什么不用其document的open呢？
页: [1] 2
查看完整版本: 求助关于getobject的问题