近日为了简化工作,用Autodesk map 3D 2005做了个小程序,放上来分享一下,不足之处望高手指正.
为了方便没装CAD的朋友,先放一个CAD_Object_Mode,更为详细的就暂且不放了.
CAD版本:Autodesk map 3d 2005
开发环境:vb.net 2005
简要说明:
Application:AutoCAD 应用程序实例
Documents: 在当前进程中所有打开的AutoCAD图形的集合,可打开\添加\关闭图形文件
Document:这个当然是CAD中的图形了
ModelSpac:该集合表示了所有模型空间的对象。在模型空间中添加新的对象用下表中的 Add* 方法
首先:在VB.NET中连接CAD,为了方便暂不对同时打开多个文档的情况进行处理,如果想要新建环境或文档可使用NEW或Application.Documents 中的ADD/OPEN等.
Dim
AcadApp
As
Autodesk.AutoCAD.Interop.AcadApplication
Dim AcadDoc As Autodesk.AutoCAD.Interop.AcadDocument
Dim AcadMap As AutocadMAP.AcadMap
Try ' 连接AutoCAD Map 3D 2005,如果错误则退出
AcadApp = GetObject (, " AutoCAD.Application " )
AcadMap = AcadApp.GetInterfaceObject( " AutoCADMap.Application " )
Dim AcadDoc As Autodesk.AutoCAD.Interop.AcadDocument
Dim AcadMap As AutocadMAP.AcadMap
Try ' 连接AutoCAD Map 3D 2005,如果错误则退出
AcadApp = GetObject (, " AutoCAD.Application " )
AcadMap = AcadApp.GetInterfaceObject( " AutoCADMap.Application " )