vb.net怎樣在當(dāng)前已打開的AutoCAD畫圖? 最好有個判斷語句, 如果CAD已打開, 在當(dāng)前畫圖; 如果沒有, 則打開

Private Function isopen() As AutoCAD.AcadApplication

創(chuàng)新互聯(lián)公司-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價比奉化網(wǎng)站開發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫,直接使用。一站式奉化網(wǎng)站制作公司更省心,省錢,快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋奉化地區(qū)。費用合理售后完善，10余年實體公司更值得信賴。

Try

dim CADapp_temp AutoCAD.AcadApplication = GetObject(, "AutoCAD.Application")

return CADapp_temp

Catch ex As Exception

Return Nothing

End Try

End Function

'調(diào)用上面的函數(shù),如果為nothing表示沒有打開，否則打開并返回對象

vb.net打開cad畫圖的問題？

你去查查書吧，書上挺詳細(xì)的，在這說不好說，你先在項目里引用。然后 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 '界面可視

如何使用vb.net調(diào)用cad進(jìn)行繪圖

你去查查書吧，書上挺詳細(xì)的，在這說不好說，你先在項目里引用。然后 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 '界面可視