vb.netcad接口 cad软件vba窗口如何调用

vb怎样与AUTO CAD连接的！

VB可以与CAD连接，但要先转化为文本文档，在编写一个接口程序。

十余年的莲湖网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。营销型网站建设的优势是能够根据用户设备显示端的尺寸不同，自动调整莲湖建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“莲湖网站设计”,“莲湖网站推广”以来，每个客户项目都认真落实执行。

不过，实际上一般不会这样做，因为在CAD当中可以直接加载VB，就是我们通常说的VBA，一般用作CAD的二次开发来用，比如说自动绘图。语法和VB差不多，只是一些细小的差别，很简单的。

打开CAD，点击“工具”/“宏”/VB管理器，再在里面写程序，运行时，要先加载VB，再点击“宏”里面的“加载工程”，再把你的程序加载进去就可以运行了。如果你的程序不能运行，说明你是用VB编写的，不是用VBA编写的，虽然语法相同，但也运行不了，你自己试试吧！其实只要你会VB，VBA就很简单，只是一般用来画图要计算坐标，很麻烦！

VB.NET连接AutoCAD出错

这个是vb.net教材里面的吧，我也是前两天刚下的。遇到类似的问题，下面是我的解决办法

首先要参考引用Autodesk.AutoCAD.Interop.dll还有Autodesk.AutoCAD.Interop.Common.dll

然后代码有两处也需要相应修改，我用的是.NET 的 vb2008

'Dim AcadApp As AutoCAD.AcadApplication

Dim AcadApp As Autodesk.AutoCAD.Interop.AcadApplication

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Call 连接AutoCAD()

End Sub

Sub 连接AutoCAD()

On Error Resume Next

AcadApp = GetObject(, "AutoCAD.Application")

If Err.Number Then

Err.Clear()

AcadApp = CreateObject("AutoCAD.Application")

If Err.Number Then

MsgBox("不能运行AutoCAD,请检查是否安装了AutoCAD")

Exit Sub

End If

End If

AcadApp.Visible = True '界面可视

'AcadApp.WindowState = AutoCAD.AcWindowState.acMax '界面最大化

AcadApp.WindowState = Autodesk.AutoCAD.Interop.Common.AcWindowState.acMax

AppActivate(AcadApp.Caption) '显示AutoCAD界面

End Sub

vb程序与cad的接口

CAD内部自己有vBa和LISP两种语言,如果你需要这方面的知识 请到以下地址去 保证值:

'明经通道