先把vb与cad建立连接
Set acadApp = GetObject(, "autocad.application.15")
If Err Then
Err.Clear
Set acadApp = CreateObject("autocad.application.15")
If Err Then
Err.Clear
Set acadApp = GetObject(, "autocad.application.16")
If Err Then
Err.Clear
Set acadApp = CreateObject("autocad.application.16")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
End If
End If
再建立图层。