vb怎样与AUTO CAD连接的！

Private Sub Form_Load()
Set acadapp = GetObject(, "autocad.application")
Set acaddoc = acadapp.activedocument
Set mspace = acaddoc.modelspace
Dim p1(2) As Double, p2(2) As Double
p2(1) = 100
mspace.addline p1, p2
End Sub

VB可以与CAD连接，但要先转化为文本文档，在编写一个接口程序。
不过，实际上一般不会这样做，因为在CAD当中可以直接加载VB，就是我们通常说的VBA，一般用作CAD的二次开发来用，比如说自动绘图。语法和VB差不多，只是一些细小的差别，很简单的。
打开CAD，点击“工具”/“宏”/VB管理器，再在里面写程序，运行时，要先加载VB，再点击“宏”里面的“加载工程”，再把你的程序加载进去就可以运行了。如果你的程序不能运行，说明你是用VB编写的，不是用VBA编写的，虽然语法相同，但也运行不了，你自己试试吧！其实只要你会VB，VBA就很简单，只是一般用来画图要计算坐标，很麻烦！

用函数调用，去专业论坛上，人家有编好的函数（VB好象本身就带有）。