在Visual Basic（VB）中调用AutoCAD软件，你需要遵循以下步骤：
启动VB并引用AutoCAD类型库
打开VB（Visual Basic）集成开发环境。
从“工程”菜单中选择“引用”选项，这将打开“引用”对话框。
在“引用”对话框中，找到并选择“AutoCAD”类型库，然后单击“确定”。
定义变量
定义两个模块级变量：`acadApp`（用于引用AutoCAD应用程序对象）和`acadDoc`（用于引用当前文档对象）。
连接到AutoCAD
使用`GetObject`函数尝试检索AutoCAD Application对象。如果AutoCAD正在运行，`GetObject`函数将返回该对象；如果未运行，则尝试使用`CreateObject`函数创建一个新的AutoCAD Application对象。如果创建成功，将启动AutoCAD；如果失败，则会捕获并显示错误信息。
显示AutoCAD图形窗口
将AutoCAD应用程序的`Visible`特性设置为`True`，以显示AutoCAD图形窗口。
使用`acadDoc`变量引用当前文档
使用`acadDoc`变量引用当前的AutoCAD图形文档，以便进行绘图和操作。
```vb
Option Explicit
Public Const HKEY_CLASSES_ROOT = &H80000000
Public Const HKEY_CURRENT_USER = &H80000001
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const HKEY_USERS = &H80000003
Public Const HKEY_PERFORMANCE_DATA = &H80000004
Public Const HKEY_CURRENT_CONFIG = &H80000005
Public Const HKEY_DYN_DATA = &H80000006
Public Const REG_NONE = 0
Public Const REG_SZ = 1
Public Const REG_EXPAND_SZ = 2
Public Const REG_BINARY = 3
Public Const REG_DWORD = 4
Public Declare Function RegOpenKey Lib "Advapi32.dll" Alias "RegOpenKeyA" （ByVal hKey As Long, ByVal subKey As String, ByVal phkResult As Long） As Long
Public Declare Function RegCreateKey Lib "Advapi32.dll" Alias "RegCreateKeyA" （ByVal hKey As Long, ByVal subKey As String, ByVal phkResult As Long） As Long
Public Declare Function RegSetValueEx Lib "Advapi32.dll" Alias "RegSetValueExA" （ByVal hKey As Long, ByVal subKey As String, ByVal dwFlags As Long, ByVal dwType As Long, ByVal lpData As String, ByVal cbData As Long） As Long
Public Declare Function RegCloseKey Lib "Advapi32.dll" （ByVal hKey As Long） As Long
Sub ConnectToAcad（）
On Error Resume Next
Set acadApp = GetObject（"AutoCAD.Application"）
If Err Then
Err.Clear
Set acadApp = CreateObject（"AutoCAD.Application"）
End If
If Err Then
MsgBox Err.Number & ":" & Err.Description
Exit Sub
End If
acadApp.Visible = True
Set acadDoc = acadApp.ActiveDocument
' 在这里添加你的绘图代码
End Sub
Sub DrawLine（）
Dim startpoint（0 To 2） As Double
Dim endpoint（0 To 2） As Double
Dim lineObj As Object
startpoint（0） = 0: startpoint（1） = 0: startpoint（2） = 0
endpoint（0） = 30: endpoint（1） = 20: endpoint（2） = 0
Set lineObj = acadDoc.DrawLine（startpoint, endpoint）
End Sub
' 调用连接到AutoCAD的子程序
ConnectToAcad
' 调用绘制线条的子程序
DrawLine
```
在这个示例中，`ConnectToAcad`子程序负责连接到AutoCAD并设置其可见性。`DrawLine`子程序用于在AutoCAD中绘制一条线。你可以根据需要添加更多的绘图代码。
请注意，这个示例代码可能需要根据你的具体需求进行调整。例如，你可能需要处理不同版本的AutoCAD或处理特定的AutoCAD对象。