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机...
【VB梦工程VB6.1底层版】是一个专为Visual Basic 6.1开发者设计的增强工具,旨在提供更深入的编程控制和优化。这个工具集主要针对那些希望挖掘VB6.1潜在功能,进行底层编程和系统级交互的专业开发者。 Visual Basic...
《VB6.0迷你版详解:底层开发与游戏辅助利器》 VB6.0迷你版,作为VB6.1底层版和VB6.0精简版的整合,为开发者提供了一个集中的工具集,尤其适合那些专注于底层开发以及游戏辅助程序制作的程序员。此版本包含了VB窗口...
本人用Winsock和VB自制了一套聊天室和对话系统,特拿来供同行们参考。 ◆ 118.htm 在应用中集成器 ◆ 119.htm 在桌面上建立一个 Internet 快捷键 ◆ 120.htm 怎样接收电子邮件(POP3协议简介) ...
【VB.Net 2010 与 VB6 的差异与转换】 VB.Net 2010 是 Microsoft .Net Framework 下的一个编程环境,相较于之前的 VB6(Visual Basic 6.0),它引入了许多新特性和改进,旨在提升开发效率和代码质量。VB6 是基于...
【企业版】vb6.0安装包/visual basic6.0下载中文/vb6.0软件安装包/visual basic6.0企业版下载 VB6.0,全称为Visual Basic6.0,是微软公司开发的一款经典编程环境 主要用于编写基于Windows操作系统的应用程序。 vb6.0...
反编译工具(VB Decompiler Pro):是一款针对使用Visual Basic 5.0/6.0开发的程序的反编译器。反编译工具(VB Decompiler Pro)可以被编译成伪代码p-code或native code模式。由于伪代码是由高级指令组成, 因此是很有可能...
最真实有效的VB6.0版的RSA加解密算法模块,已做成类模块很方便调用。这是我这两三年来找到的最好用的RSA加解密算,运算速度超快,制作1024位及2048位的加解密相当快,实用性极强,用于共享软件的网络在线验证再合...
VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源代码 56收发电子邮件VB编程源...
标题中的“珍藏VB源码:纯VB代码实现生成PDF文件”揭示了这是一个关于使用Visual Basic(VB)编程语言创建PDF文件的项目。在VB环境中,开发者可以通过编写代码来实现各种功能,包括生成包含文本、图像甚至超链接的...
《VB for Android12.12:VB语言在Android开发中的新里程碑》 VB(Visual Basic)是微软公司推出的一种面向对象的编程语言,以其易学易用的特点深受程序员喜爱。随着移动应用市场的繁荣,VB也开始拓展到Android平台...
在IT领域,Visual Basic 6 (VB6) 是一种经典的编程环境,用于开发Windows桌面应用程序。WebBrowser控件是VB6中的一个强大组件,它允许开发者在应用程序中嵌入一个Internet Explorer实例,从而实现浏览网页的功能。这...
《VB6.0详细讲义》是一本针对初学者和进阶者的实用教程,涵盖了从基础到高级的VB6编程知识。以下是对各章节主要内容的详细介绍: 第一章 Visual Basic介绍: 这部分介绍了VB6的基本概念,包括VB6作为面向对象的编程...
【标题】"QRCodeLib_vb6 VB二维码识别和生成 #资源达人分享计划#" 涉及的是在VB6(Visual Basic 6)环境中利用QRCodeLib_vb6库进行二维码的读取与生成的技术。这是一套专门针对VB6开发的二维码处理工具,能够帮助...
VB Decompiler Pro是一款专业的Visual Basic程序反编译工具,它专为那些希望深入了解或恢复VB源代码的开发者设计。在VB编程环境中,由于编译后的.exe或.dll文件是二进制格式,通常无法直接查看原始的VB源代码。VB ...
在IT行业中,尤其是在金融数据分析和可视化领域,"VB_K线图 VB股票K线图"是一个重要的概念。K线图,也称为蜡烛图或日本烛台图,是股票市场和其他金融市场广泛使用的图表类型,用于展示价格走势。VB(Visual Basic)...
VB-PowerWrap 允许开发者在发布他们的程序时不需要再加入一大堆 的 OCX 与 DLL 文件。该程序可以帮助 Visual Basic 程序员在发布他们 的可执行文件时不需要再担心关于其他链接库与 OCX 的问题了。VB-Powe rWrap 允许...
在VB(Visual Basic)编程环境中,程序的图标(ICO文件)不仅是一个小小的视觉元素,它在用户界面设计中起着至关重要的作用。VB程序图标大全集合了一大批适用于VB应用程序的图标资源,这些图标通常需要满足特定的...
VB串口通信UART程序实例源码200个合集: GE PLC串口通讯,VB编制,读取内存单元.rar PC机与51单片机之间的串口通讯,VB编的,分PC和单片机两部分.rar VB Modbus RTU源码,其中协议部分已生成DLL,可直接调用.rar VB.net...
《VB.Net to C# Converter:实现编程语言间的无缝迁移》 在编程世界中,不同的编程语言各有其特色和优势,而开发人员有时需要在不同语言间进行切换。VB.Net(Visual Basic .NET)和C#是.NET框架下的两种主要编程...