各位高人，小弟先谢谢了。
Private Sub CommandButton2_Click()
Dim CADObj As AcadApplication
Dim BTLblock As AcadBlockReference
Dim cadDOC As AcadDocument
'Set CADObj = New AcadApplication
'CADObj.Visible = True
Set CADObj = GetObject(, ".Application")
'运行到下一句出现问题
Set cadDOC = CADObj.Documents.Open("E:\1#小屋平面.dwg")
置顶卡
