建站
咨詢
售后
建站咨詢
新聞中心
如何使用vb.net調(diào)用cad進(jìn)行繪圖
你去查查書(shū)吧，書(shū)上挺詳細(xì)的，在這說(shuō)不好說(shuō)，你先在項(xiàng)目里引用。然后 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("不能運(yùn)行AutoCAD,請(qǐng)檢查是否安裝了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可視
創(chuàng)新互聯(lián)建站-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比惠安網(wǎng)站開(kāi)發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式惠安網(wǎng)站制作公司更省心,省錢(qián),快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋惠安地區(qū)。費(fèi)用合理售后完善，十余年實(shí)體公司更值得信賴。
VB.NET連接AutoCAD出錯(cuò)
這個(gè)是vb.net教材里面的吧，我也是前兩天剛下的。遇到類似的問(wèn)題，下面是我的解決辦法
首先要參考引用Autodesk.AutoCAD.Interop.dll還有Autodesk.AutoCAD.Interop.Common.dll
然后代碼有兩處也需要相應(yīng)修改，我用的是.NET 的 vb2008
'Dim AcadApp As AutoCAD.AcadApplication
Dim AcadApp As Autodesk.AutoCAD.Interop.AcadApplication
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call 連接AutoCAD()
End Sub
Sub 連接AutoCAD()
On Error Resume Next
AcadApp = GetObject(, "AutoCAD.Application")
If Err.Number Then
Err.Clear()
AcadApp = CreateObject("AutoCAD.Application")
If Err.Number Then
MsgBox("不能運(yùn)行AutoCAD,請(qǐng)檢查是否安裝了AutoCAD")
Exit Sub
End If
End If
AcadApp.Visible = True '界面可視
'AcadApp.WindowState = AutoCAD.AcWindowState.acMax '界面最大化
AcadApp.WindowState = Autodesk.AutoCAD.Interop.Common.AcWindowState.acMax
AppActivate(AcadApp.Caption) '顯示AutoCAD界面
End Sub
如何用VB.NET編程語(yǔ)言實(shí)現(xiàn)打開(kāi)CAD文件？
需要解析CAD文件的構(gòu)成 然后根據(jù)規(guī)則繪制 說(shuō)白點(diǎn)CAD文件是人家公司定義的一個(gè)文件格式 里面保存的不是圖形 而是圖形的繪制規(guī)則 程序AutoCad打開(kāi)文件的時(shí)候是讀取文件里面描寫(xiě)的繪制規(guī)則繪制圖案的 你了解了CAD文件的構(gòu)成后就可以自己寫(xiě)代碼繪制圖形了（具體CAD圖形構(gòu)成沒(méi)研究過(guò) 你可以用記事本打開(kāi)一個(gè)CAD的圖形交換文件.Dxf 可以看到 這個(gè)文件是由圖層說(shuō)明和很多點(diǎn)坐標(biāo)組成的）
分享文章：vb.net調(diào)用cad,net和vb
URL鏈接：http://fisionsoft.com.cn/article/dsssgjs.html
