打开工作区间workspace

打开SDE工作区间

Public   Function getSDEWorkSpace() Function getSDEWorkSpace(Server As String, Instance As String, Database As String, user As String, password As String) As IFeatureWorkspace

    Dim pWorkspaceFactory As IWorkspaceFactory
    Set pWorkspaceFactory = New SdeWorkspaceFactory
        
    Dim pPropertySet As IPropertySet
    Set pPropertySet = New PropertySet
 
    With pPropertySet
        .SetProperty "Server", Server
        .SetProperty "Instance", Instance
        .SetProperty "Database", Database
        .SetProperty "user", user
        .SetProperty "password", password
        .SetProperty "version", "sde.DEFAULT"
    End With
    
    Dim pws As IWorkspace
    Set pws = pWorkspaceFactory.Open(pPropertySet, 1)
    
    Dim pWorkspace As IFeatureWorkspace
    Set pWorkspace = pws

    Set getSDEWorkSpace = pWorkspace
End Function

 

打开DGN工作区间

Public   Function getDGNWorkSpace() Function getDGNWorkSpace(path As String) As IFeatureWorkspace
    Dim pWorkspaceFactory As IWorkspaceFactory
    Set pWorkspaceFactory = New CadWorkspaceFactory
    
    Dim pWorkspace As IFeatureWorkspace
    
    Set pWorkspace = pWorkspaceFactory.OpenFromFile(path, 0)
    
    Set getDGNWorkSpace = pWorkspace
    
End Function

 

打开CAD工作区间

Private   Function getCADWorkspace() Function getCADWorkspace(path As String) As IFeatureWorkspace

    Dim pCadWSF As IWorkspaceFactory
    Set pCadWSF = New CadWorkspaceFactory
    
    Dim pCadWS As IWorkspace
    'GetPathName(path, 0) return directory
    Set pCadWS = pCadWSF.OpenFromFile(GetPathName(path, 0), 0)
    
    Dim pCadFWS As IFeatureWorkspace
    Set pCadFWS = pCadWS
    
    Set getCADWorkspace = pCadFWS
      
End Function

 

 

转载于:https://www.cnblogs.com/iswszheng/archive/2009/03/18/1415090.html