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

Private Function isopen() As AutoCAD.AcadApplication

10年積累的網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)后付款的網(wǎng)站建設(shè)流程，更有安義免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。

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表示沒有打開，否則打開并返回對(duì)象

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

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

如何用VB.NET編程語(yǔ)言實(shí)現(xiàn)打開CAD文件？

需要解析CAD文件的構(gòu)成 然后根據(jù)規(guī)則繪制 說白點(diǎn)CAD文件是人家公司定義的一個(gè)文件格式 里面保存的不是圖形 而是圖形的繪制規(guī)則 程序AutoCad打開文件的時(shí)候是讀取文件里面描寫的繪制規(guī)則繪制圖案的 你了解了CAD文件的構(gòu)成后就可以自己寫代碼繪制圖形了（具體CAD圖形構(gòu)成沒研究過 你可以用記事本打開一個(gè)CAD的圖形交換文件.Dxf 可以看到 這個(gè)文件是由圖層說明和很多點(diǎn)坐標(biāo)組成的）

VB.NET 如何通過按鈕打開AUTOCAD的指定文件

Process.Start(“cad主程序的路徑”，“要打開文件的目錄”)

比如用記事本打開 c:\1.txt

Process.Start("C:\Windows\notepad.exe", "c:\1.txt")

VB.Net讀取AutoCAD圖紙

如果可以的話請(qǐng)把分給我

以下是cad2007版的，引用autocad 2007 type library 和autocad/objectdbx common 17如果是04或者版本更低的只要引用autocad 2007 type library，代碼的話大同小異，思路是一樣的

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

On Error Resume Next

Dim acadapp As Autodesk.AutoCAD.Interop.AcadApplication

acadapp = GetObject(vbNullString, "autoCAD.application")

Dim acaddoc As Autodesk.AutoCAD.Interop.AcadDocument

acaddoc = acadapp.ActiveDocument

Dim Ms As Autodesk.AutoCAD.Interop.Common.AcadModelSpace

Ms = acaddoc.ModelSpace

Dim acadObjectI As Autodesk.AutoCAD.Interop.Common.AcadObject

Dim Linei As Autodesk.AutoCAD.Interop.Common.AcadLine

Dim Circlei As Autodesk.AutoCAD.Interop.Common.AcadCircle

Dim Polylinei As Autodesk.AutoCAD.Interop.Common.AcadPolyline

Dim pt As Autodesk.AutoCAD.Interop.Common.AcadPoint

For Each acadObjectI In Ms

Debug.Print(acadObjectI.ObjectName)

Select Case acadObjectI.ObjectName

Case "AcDbLine"

Linei = acadObjectI

Debug.Print("X =" Linei.StartPoint(0).ToString)

Debug.Print("Y =" Linei.StartPoint(1).ToString)

Case ""

Case ""

End Select

Next

End Sub

VB.NET連接AutoCAD出錯(cuò)

這個(gè)是vb.net教材里面的吧，我也是前兩天剛下的。遇到類似的問題，下面是我的解決辦法

首先要參考引用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