如何使用vb.net调用cad进行绘图

gingko_sf · 发表于 2012-2-1 09:13:00

请问各位大仙：
本人想开发一个VB.net（如vb2008，vb2010）小程序，执行计算，然后需要利用计算结果在cad中绘图，在vb程序里如何调用cad绘图呢？？
本人不知如何下手，请指点。另外，有这方便的资料麻烦推荐一下，不胜感谢。

zhuirvine · 发表于 2012-2-5 13:25:00

你去查查书吧，书上挺详细的，在这说不好说，你先在项目里引用。然后
Dim acadapp As AcadApplication
Dim acaddoc As AcadDocument
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 '界面可视