请教高手，VB怎么可以连上CAD呢？

anqiong518

谢谢，高手，搞定了，强。


高手，可以交个朋友吗？


我是个学生

雪山飞狐_lzh

你引用AutoCad的类型库了么？ 没有的话这样： Dim acadapp As Object
Private Sub Command1_Click()
Call 连接AutoCAD
End Sub
Public Sub 连接AutoCAD()
On Error Resume Next
Set acadapp = GetObject(, "AutoCAD.Application")
If Err.Number Then
MsgBox (Err.Description)
Err.Clear
Set acadapp = CreateObject("AutoCAD.Application")
End If
End Sub