社区 › VBA/VB/ActiveX/API 编程技术 › 老师请问如何获知当前cad2000打开的所有图纸文件名，以及已经加载的vba工程文件

yujn_1 发表于 2002-11-20 09:47:00

老师请问如何获知当前cad2000打开的所有图纸文件名，以及已经加载的vba工程文件

efan2000 发表于 2002-11-20 20:21:00

Re:图纸文件名及工程名

用Application.Documents枚举所有的文档，用FullName来取的路径和文件名，用Name仅取文件名。
用Application.VBE.Projects枚举所有的工程。

pmq 发表于 2011-10-6 15:43:53

Private Sub OpDWG_Click(Index As Integer)
    Dim FF As AcadDocument
    With ThisDrawing
      Set FF = .Application.Documents.Item(OpDWG(Index).Caption) '将文件置为当前
      FF.Activate
    End With
End Sub

Sub DWG_VBA()
    'Dim FF As AcadDocument
    Dim Dwg_Name As String
    Dim Dvb_Name As String
   
    With ThisDrawing
      For i = 0 To Application.Documents.Count - 1
            'Set FF = .Application.Documents.Item(i)
            If .Application.Documents.Item(i).FullName = "" Then '获得已经打开的文件
                Dwg_Name = Dwg_Name & vbCrLf & .Application.Documents.Item(i).Name
            Else
                Dwg_Name = Dwg_Name & vbCrLf & .Application.Documents.Item(i).FullName
            End If
      Next i
      MsgBox Dwg_Name
    End With
   
    With ThisDrawing.Application.VBE
      For T1 = 1 To .vbprojects.Count
            If .vbprojects(T1).FileName = "" Then
                Dvb_Name = Dvb_Name & vbCrLf & .vbprojects(T1).Name '获得已加载的DVB文件
            Else
                Dvb_Name = Dvb_Name & vbCrLf & .vbprojects(T1).FileName
            End If
      Next T1
      MsgBox Dvb_Name
    End With
End Sub

查看完整版本: 老师请问如何获知当前cad2000打开的所有图纸文件名，以及已经加载的vba工程文件