VB

最新推荐文章于 2022-11-23 12:53:44 发布

keng789

最新推荐文章于 2022-11-23 12:53:44 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： GIS 开发与学习文章标签： function object string vb layer

本文链接：https://blog.youkuaiyun.com/cut007/article/details/571416

GIS 开发与学习专栏收录该内容

11 篇文章

订阅专栏

本文介绍了一种使用VBA代码将CAD图纸加载到地图层的方法。通过创建工作空间名称对象并指定路径，然后创建CAD绘图名称对象来打开CAD图纸，并将其作为一个新的CAD图层添加到地图中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Sub LoadCadDrawingLayer()
Dim pMxDoc As IMxDocument
Dim pCadLayer As ICadLayer
Dim pCadDrawingDataset As ICadDrawingDataset

Set pMxDoc = Application.Document
Set pCadDrawingDataset = GetCadDataset("F:/CAD文件/dwg", "105-604-15.dwg")
If pCadDrawingDataset Is Nothing Then Exit Sub
Set pCadLayer = New CadLayer
Set pCadLayer.CadDrawingDataset = pCadDrawingDataset
pCadLayer.Name = "e-51878.dwg" 'Give the map layer a name
pMxDoc.FocusMap.AddLayer pCadLayer
pMxDoc.UpdateContents 'Update the TOC
End Sub

Private Function GetCadDataset(strCadWorkspacePath As String, strCadFileName As String) As ICadDrawingDataset
Dim pName As IName
Dim pCadDatasetName As IDatasetName
Dim pWorkspaceName As IWorkspaceName

On Error GoTo ErrorHandler

'Create a WorkspaceName object
Set pWorkspaceName = New WorkspaceName
pWorkspaceName.WorkspaceFactoryProgID = "esriDataSourcesFile.CadWorkspaceFactory"
pWorkspaceName.PathName = strCadWorkspacePath

'Create a CadDrawingName object
Set pCadDatasetName = New CadDrawingName
pCadDatasetName.Name = strCadFileName
Set pCadDatasetName.WorkspaceName = pWorkspaceName

'Open the CAD drawing
Set pName = pCadDatasetName 'QI
Set GetCadDataset = pName.Open
Exit Function

ErrorHandler:
Set GetCadDataset = Nothing
End Function