利用CAD對象捕捉功能。通過查詢netcadgetpoint官網得知,vbnetcadgetpoint可以利用CAD對象捕捉功能才能選切點,vbnetcadgetpoint在新基建工程對話框當選擇工程部類為Visual Basic工程。
創新互聯公司主要從事網站設計制作、成都網站制作、網頁設計、企業做網站、公司建網站等業務。立足成都服務華坪,十載網站建設經驗,價格優惠、服務專業,歡迎來電咨詢建站服務:028-86922220
需要解析CAD文件的構成 然后根據規則繪制 說白點CAD文件是人家公司定義的一個文件格式 里面保存的不是圖形 而是圖形的繪制規則 程序AutoCad打開文件的時候是讀取文件里面描寫的繪制規則繪制圖案的 你了解了CAD文件的構成后就可以自己寫代碼繪制圖形了(具體CAD圖形構成沒研究過 你可以用記事本打開一個CAD的圖形交換文件.Dxf 可以看到 這個文件是由圖層說明和很多點坐標組成的)
Process.Start(“cad主程序的路徑”,“要打開文件的目錄”)
比如用記事本打開 c:\1.txt
Process.Start("C:\Windows\notepad.exe", "c:\1.txt")
如果可以的話請把分給我
以下是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查看cad,vb數據庫查詢
分享路徑:http://m.newbst.com/article8/dssedop.html
成都網站建設公司_創新互聯,為您提供品牌網站建設、移動網站建設、網站營銷、營銷型網站建設、手機網站建設、網站維護
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯