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
分享到:
相关推荐
001、VB串口通讯视频教程源码41个 002、Visual Basic串口通信工程开发实例导航随书源码7个 003、Visual Basic串口通信与测控应用技术实战详解 源代码(15个全) 004、GE PLC串口通讯,VB编制,读取内存单元 005、PC机...
本人用Winsock和VB自制了一套聊天室和对话系统,特拿来供同行们参考。 ◆ 118.htm 在应用中集成器 ◆ 119.htm 在桌面上建立一个 Internet 快捷键 ◆ 120.htm 怎样接收电子邮件(POP3协议简介) ...
vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器vb计算器...
反编译工具(VB Decompiler Pro):是一款针对使用Visual Basic 5.0/6.0开发的程序的反编译器。反编译工具(VB Decompiler Pro)可以被编译成伪代码p-code或native code模式。由于伪代码是由高级指令组成, 因此是很有可能...
VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源...
efvb 源码vb 源码vb 源码vb 源码vb 源码
vb滑动条vb滑动条vb滑动条vb滑动条vb滑动条vb滑动条vb滑动条
VB界面与按键小精灵完美结合实现窗体句柄、类别及标题的获取(含源代码):其中整合了VB界面的制作,托管图标的刷新,文件的读写、按键精灵外部程序的调用与关闭,窗体句柄、类别、标题的获取,文件的创建、删除及...
VB代码整理专家是一个VB的插件,与VB开发环境集成在一起,能自动的为窗体、模块、类模块添加注释说明及为全部或者部分函数、过程添加错误处理程序,为代码加上注释及一些错误处理程序是非常必要的,但往往由于其烦琐...
vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb实现阅读输入英文vb...
VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区头像闪烁VB托盘区...
VB编程源代码 76在VB中切换中文输入法VB编程源代码 76在VB中切换中文输入法VB编程源代码 76在VB中切换中文输入法VB编程源代码 76在VB中切换中文输入法VB编程源代码 76在VB中切换中文输入法VB编程源代码 76在VB中切换...
vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器编写vb计算器...
资源名:VB精彩编程100个实例源代码 资源类型:程序源代码 源码说明: VB精彩编程100个源代码实例,实例很丰富,涉及的内容方方面面。有音量控制、拾色器、画图、抓屏、文本操作、获取操作系统信息、拖拉节点、查看...
vb
VB界面与按键小精灵完美结合实现窗体句柄、类别及标题的获取(含源代码):其中整合了VB界面的制作,托管图标的刷新,文件的读写、按键精灵外部程序的调用与关闭,窗体句柄、类别、标题的获取,文件的创建、删除及...
C# VB.NET VB6直接通信 C# VB.NET VB6直接通信
http://images.enet.com.cn/eschool/21_vb/001.wmv http://images.enet.com.cn/eschool/21_vb/002.wmv http://images.enet.com.cn/eschool/21_vb/003.wmv http://images.enet.com.cn/eschool/21_vb/004.wmv ...
一个非常棒的VB数据库开发学习的完整实例,对初学VB数据库的新手来说是如获至宝。运行程序前,先把Data下面的数据库放到位于SQL Server安装目录\MSSQL.1\MSSQL\Data下,然后在SQL Server里面的“数据库”上右键选中...
VB6.0 + FTP服务器管理;VB6.0的源码案例,供参考学习;