\u6a21\u5757 BindAutoCAD \u540e\u671f\u7ed1\u5b9a AutoCAD \u5bf9\u8c61\uff0c\u8c03\u7528\u65b9\u6cd5\u5982\u4e0b\uff1a<\/p>\n\n\n\n
Dim oAutoCAD As Object
Call BindAutoCAD(True)<\/p>\n\n\n\n
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 ‘\u6ca1\u6709\u6253\u5f00
Err.Clear
Set oAutoCAD = CreateObject(“Autocad.application”)
If Err.Number <> 0 Then ‘\u6ca1\u6709\u6b63\u786e\u5b89\u88c5
Err.Clear
Exit Sub
End If
oAutoCAD.Visible = bVisible
End If
If Err.Number <> 0 Then Err.Clear
On Error GoTo 0
End Sub<\/p>\n","protected":false},"excerpt":{"rendered":"