如何用vb.net編程在cad圖形中插入dwg圖塊？

Dim?ppr?As?PromptPointResult?=?ed.GetPoint("請選擇插入點：")

成都創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供深州網站建設、深州做網站、深州網站設計、深州網站制作等企業(yè)網站建設、網頁設計與制作、深州企業(yè)網站模板建站服務，10余年深州做網站經驗，不只是建網站，更提供有價值的思路和整體網絡服務。

Dim?pt?As?Point3d?=?ppr.Value

utility.WriteToEditor(pt.ToString())

Dim?pidBlock?As?New?PIDBlock()

'自己定義的圖塊類，保存圖塊的路徑和名稱?

pidBlock.Name?=?"sample"

pidBlock.Path?=?blockPath??"b_sample.dwg"

Using?blkDb?As?New?Database(False,?True)

'read?drawing?

blkDb.ReadDwgFile(pidBlock.Path,?System.IO.FileShare.Read,?True,?Nothing)

blkDb.CloseInput(True)

Using?docLock?As?DocumentLock?=?doc.LockDocument()

'多文檔要先這樣，否則報至命錯誤?

Using?t?As?Transaction?=?doc.TransactionManager.StartTransaction()

'insert?it?as?a?new?block?

Dim?idBTR?As?ObjectId?=?doc.Database.Insert(pidBlock.Name,?blkDb,?False)

'create?a?ref?to?the?block?

Dim?bt?As?BlockTable?=?DirectCast(t.GetObject(doc.Database.BlockTableId,?OpenMode.ForRead),?BlockTable)

Dim?btr?As?BlockTableRecord?=?DirectCast(t.GetObject(bt(BlockTableRecord.ModelSpace),?OpenMode.ForWrite),?BlockTableRecord)

Using?bref?As?New?BlockReference(pt,?idBTR)

btr.AppendEntity(bref)

t.AddNewlyCreatedDBObject(bref,?True)

End?Using

t.Commit()

End?Using

End?Using

End?Using

VS2010中用VB.NET編程添加CAD引用出錯！坐等??！

應用程序啟動了沒

dim acadApp As AcadApplication

acadApp = CType(CreateObject("AutoCAD.Application.18"), AcadApplication)

acadApp.Visible = True

啟動了CAD才能添加文件，其中18對應的是cad2010，版本不同不一樣。

如何使用vb.net調用cad進行繪圖

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