如何使用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 '界面可視

讓客戶滿意是我們工作的目標，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴，公司提供的服務項目有：域名與空間、網絡空間、營銷軟件、網站建設、東昌府網站維護、網站推廣。

VB.Net編程提取CAD中的點坐標,采用AcadApp.ActiveDocument.Utility.GetPoint函數老是報錯是什么原因啊???

D=AcadApp.ActiveDocument.Utility.GetPoint(,"選擇一個點：")

你的參數沒有弄對

GetPoint是個方法不是屬性必須要括號()

他的兩個參數為可選參數（startpoint，prompt）第一個參數是起始點，第二個參數是提示語

怎樣用VB對AutoCAD 進行二次開發(fā)？急！急！急！

最基本的首先你要在vb中加載autocad庫，當然你要裝了autocad，可以用vb控制建立cad文件，然后向cad文件中寫數據。對于在CAD中建立直角坐標系，建議你看一下wcs對應的cad中的對象是哪一個，然后用vb調用建立wcs。下面是一個vb中創(chuàng)建CAD文件并向模型空間畫直線的代碼。

前提一定要在vb中加載CAD，記得CAD的幫助文件中有vba的幫助，建議你下載cad vba二次開發(fā)的書籍，百度文庫有。希望能夠采納我的回答?。。。?！

Sub AddLineVB()

On Error Resume Next

' 連接至 AutoCAD 應用程序

Dim acadApp As AcadApplication

Set acadApp = GetObject _

(, "AutoCAD.Application.17")

If Err Then

Err.Clear

Set acadApp = CreateObject _

("AutoCAD.Application.17")

If Err Then

MsgBox Err.Description

Exit Sub

End If

End If

' 連接至 AutoCAD 圖形

Dim acadDoc As AcadDocument

Set acadDoc = acadApp.ActiveDocument

' 創(chuàng)建直線的端點

Dim lineObj As AcadLine

Dim startPoint(0 To 2) As Double

Dim endPoint(0 To 2) As Double

startPoint(0) = 1

startPoint(1) = 1

startPoint(2) = 0

endPoint(0) = 5

endPoint(1) = 5

endPoint(2) = 0

' 在模型空間中創(chuàng)建 Line 對象

Set lineObj = acadDoc.ModelSpace.AddLine _

(startPoint, endPoint)

ZoomAll

acadApp.visible = True

End Sub

新聞標題：vb.net開發(fā)acad vbnet ide
瀏覽地址：http://chinadenli.net/article18/dogegdp.html

成都網站建設公司_創(chuàng)新互聯，為您提供虛擬主機、小程序開發(fā)、品牌網站制作、、面包屑導航、全網營銷推廣

廣告

聲明：本網站發(fā)布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創(chuàng)新互聯