VB中对AutoCAD对象图形文件操作
AutoCAD图形的绘制、编辑均在其图形文件中进行,可以利用VB代码创建新的文件、打开已有文件、保存文件等。
VB中按按照以下步骤创建新的图形文件。
首先将VB于AutoCAD进行链接,可以用到典型的链接代码,然后在VB工程窗体中添加一个按钮用来由用户创建新的CAD图形文件,应用按钮的单击事件,在按钮上添加如下代码创建新的图形文件。
Private Sub Command1_Click()
acadapp.Documents.Add
End Sub
这里利用Acadapp对象的下一级对象Documents的Add方法,以默认文件名创建新的图形文件。
VB中打开已有图形文件的代码如下。
Private Sub Command2_Click()
Dim myfilename As String
myfilename = "这里是已有文件的路径"
If Dir(myfilename) <> "" Then
acadapp.Documents.Open myfilename
Else
MsgBox ("文件不存在")
End If
End Sub
Dir函数用来检测要打开的图形文件是否存在,利用公用对话框CommonDialog控件的ShowOpen方法,可以让用户自行选择要打开的图形文件,用CommonDialog控件的FileName属性返回用户在对话框中选择的路径和文件名,并将其复制给myfilename变量。
VB中保存CAD图形文件的代码如下。
Private Sub Command3_Click()
acadapp.ActiveDocument.Save
End Sub
也可以使用SaveAs方法,以指定的文件名和保存路径保存文件。
Private Sub Command4_Click()
acadapp.ActiveDocument.SaveAs "这里是要指定文件路径和文件名"
End Sub
可以先对图形文件被修改过之后是否进行保存进行判断,如果进行过保存,则以当前文件名和文件路径保存文件,否则不保存文件。
Private Sub Command5_Click()
If Not acadapp.ActiveDocument.Saved Then
If MsgBox("是否保存文件?", vbYesNo) = vbYes Then
acadapp.ActiveDocument.Save
End If
End If
End Sub
利用Close方法以当前文件名和路径保存修改过后的文件,然后关闭图形文件。
Private Sub Command6_Click()
acadapp.ActiveDocument.Close
End Sub
如果在Close函数后加上参数False,则表示不保存修改,直接关闭文件。
Private Sub Command6_Click()
acadapp.ActiveDocument.Close (False)
End Sub
为了和其他图形处理文件进行交互工作,利用文件的导入导出功能将其它格式的文件导入到AutoCAD中进行编辑或将AutoCAD图形文件保存成其它格式的文件,方便用其它软件进行处理。
导入文件用到文档对象的Import方法,可以导入SAT、EPS、DXF或WMF格式的文件,语法如下:objcet.Import(filename,InsertPoint,ScaleFactor)。导入文件代码如下。
Private Sub Command7_Click()
Dim importfile As String
Dim insertpoint(0 To 2) As Double
Dim scalefactor As Double
importfile = "这里是需要导入的文件名和路径"
insertpoint(0) = 0#: instertpoint(1) = 0#: insertpoint(2) = 0#
scalefactor = 2
acadapp.ActiveDocument.Import.importfile , insertpoint, scalefactor
ZoomExtents
End Sub
利用文档对象的Export方法,可以将AutoCAD制作的图形用WMF、SAT、EPS、DXF或BMP格式导出并保存,语法objcet.export filename,extentsion,selectionset。导出文件代码如下。
Private Sub Command8_Click()
Dim explortfile As String
explortfile = ""
Dim sset As AcadSelectionSet
Set sset = acadapp.ActiveDocument.SelectionSets.Add("TEST")
acadapp.ActiveDocument.Export.explortfile , "WMF", sset
sset.Delete
End Sub
VB中对AutoCAD对象图形文件操作相关推荐
- autocad 如何摆正显示_如何在 VB 中连接 AutoCAD
1.如何在 VB 中连接 AutoCAD. 启动 VB ,引用 AutoCAD 类型库.操作步骤:从"工程"菜单中选择"引用"选项,启动"引用&quo ...
- VB讲课笔记03:对象及其操作
VB讲课笔记03:对象及其操作 一.对象 1.VB对象 对象是由客观实体抽象出来的逻辑实体,具有属性.方法和事件三要素.VB中的对象有控件和窗体等. 对象的
- VB 中定义FileSystemObject对象,要先添加对象
存取文件的方法有很多种,可以使用上述VB提供的函数,使用Windows API函数等等,但是最简单的方法是使用FileSystemObject对象. 1.使用FileSystemObject对象 F ...
- VB中对AutoCAD图形对象进行缩放操作
用AutoCAD应用程序对象的ZoomExtents方法,可以显示图形的全部,使绘制的图形最大限度地充满绘图区域,代码ZoomExtents或AcadApp.ZoomExtents. 当某一部分绘制图 ...
- VB中利用FSO对象对文件夹操作
windows还给我们提供了一个叫做FileSystemObject(简称FSO)对象.FSO对象模型中包括了计算机文件系统所有的对象.见下.利用这些对象可以更方便的操作文件系统. 对象 功能 D ...
- VB中对EXCEL的各种操作
全面控制 Excel 首先创建 Excel 对象,使用ComObj: Dim ExcelID as Excel.Application Set ExcelID as new Excel.Applica ...
- [转] Vb中FSO 对象的介绍
在 VB 编程中经常需要和文件系统打交道,比如获取硬盘的剩余空间.判断文件夹或文件是否存在等.在VB 推出文件系统对象(File System Object)以前,完成这些功能需要调用 Windows ...
- VB中Excel 2010的导入导出操作
VB中Excel 2010的导入导出操作 编写人:左丘文 2015-4-11 近来这已是第二篇在讨论VB的相关问题,今天在这里,我想与大家一起分享一下在VB中如何从Excel中导入数据和导出数据到Ex ...
- VB完全控制IE浏览器,操作ie对象,响应ie事件
IE浏览器完全控制 ,相信现在绝大多数计算机上使用的是IE浏览器.如何通过编程控制IE的操作呢,本文将一步步介绍如何通过VB 调用IE的对象库来对IE进行控制. 本文使用的编程工具是VB6 ...
- Java中的对象序列化操作
文章目录 1 Java中的对象序列化操作 1 Java中的对象序列化操作 首先看一下对象序列化的操作步骤: 创建一个类,继承Serializable接口 创建对象 将对象写入文件 从文件读取对象信息 ...
最新文章
- Java项目代码结构
- __init__函数
- Tensorflow Serving部署tensorflow、keras模型详解
- Apache中的Order Allow,Deny用法详解
- echarts 山东地图_用Python画中国地图,实现各省份数据可视化
- 用matlab求不动点迭代,科学网—数值分析--非线性方程组不动点迭代法matlab程序 - 殷春武的博文...
- 【BZOJ-1952】城市规划 [坑题] 仙人掌DP + 最大点权独立集(改)
- 程序员如何用代码彻底终结系统那些事儿?
- python自动测试q_阿里大牛教你基于Python的 Selenium自动化测试示例解析
- 约束最优化方法 (四) 乘子法
- CGLIB代理使用与原理详解
- 一起来玩U3D之场景转换+关卡选择
- win7磁盘管理分区,改变页面文件卷,删除卷就由灰变黑了!
- 块数据3.0:秩序互联网与主权区块链
- 代理自动配置PAC学习
- 览书记之汽车电子信息技术
- 四川大学计算机学硕874科目,2020年四川大学计算机考研初试874真题回忆!
- AminoCapital:大数据+机械学习引领今年硅谷趋势
- centos 安装、配置metis
- JavaWeb (SSM框架)
热门文章
- cygwin终端中显示的中文改成英文(没成功)
- error: invalid argument ‘-std=gnu++98‘ not allowed with ‘C‘
- 用MediaCreationTool制作WINDOWS10安装U盘
- Linux下用C获取so库所在路径
- Linux直接复制eclipse也可以使用
- 由一个国标文件中,英文名与中文意思的对比,看用词的重要性
- Windows右键添加command(命令行)
- readlink()不能读取硬链接的目标
- GTK 3.0弹出窗口及设置背景图片的代码
- NWT失败反省:不想办法开展业务,天天想着让别人不能用