妳去查查書吧，書上挺詳細的，在這說不好說，妳先在項目裏引用。然後 Dim acadapp As AcadApplication Dim acaddoc As AcadDocument On Error Resume Next AcadApp = GetObject(, "AutoCAD.Application") If Err.Number Then Err.Clear() AcadApp = CreateObject("AutoCAD.Application") If Err.Number Then MsgBox("不能運行AutoCAD,請檢查是否安裝了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可視
上一篇:學習plc編程用·梯形圖好還是指令表好下一篇:IEEE1588協議及其同步算法研究（基於STM32F107單片機，並用c語言編程）