模块 BindAutoCAD 后期绑定 AutoCAD 对象，调用方法如下：
Dim oAutoCAD As Object
Call BindAutoCAD(True)
Public Sub BindAutoCAD(ByVal bVisible As Boolean)
If Not oAutoCAD Is Nothing Then Exit Sub
On Error Resume Next
Set oAutoCAD = GetObject(, “Autocad.Application”)
If Err.Number <> 0 Then ‘没有打开
Err.Clear
Set oAutoCAD = CreateObject(“Autocad.application”)
If Err.Number <> 0 Then ‘没有正确安装
Err.Clear
Exit Sub
End If
oAutoCAD.Visible = bVisible
End If
If Err.Number <> 0 Then Err.Clear
On Error GoTo 0
End Sub