autocad中VBA和VB.net添加圖元區(qū)別

VBA過時了，不過處理簡單的問題還可以，畢竟上手快。但是，處理簡單問題，Vlisp應該更有優(yōu)勢，建議不用vba.

創(chuàng)新互聯(lián)專注于企業(yè)成都全網(wǎng)營銷推廣、網(wǎng)站重做改版、南澳網(wǎng)站定制設計、自適應品牌網(wǎng)站建設、H5建站、購物商城網(wǎng)站建設、集團公司官網(wǎng)建設、外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應式網(wǎng)頁設計等建站業(yè)務，價格優(yōu)惠性價比高，為南澳等各大城市提供網(wǎng)站開發(fā)制作服務。

.net下，訪問塊表必須以事物處理的方式打開。這是強制規(guī)定，不這么做代碼會報錯的。所以，在.net中你是無法按照VBA的方式來做的。

至于數(shù)據(jù)庫呢，autocad所有圖元都存放在數(shù)據(jù)庫里，就像thisdrawing.modelspace,這里的模型空間只是數(shù)據(jù)庫里的一個塊表記錄。這些基礎知識，在教程里應該都有很詳細的描述。所以好處么，.net對autocad的控制，處理更加靈活多變，更加自由。但是要掌握的內(nèi)容比VBA多得多。但相對C++還是簡單的。

VB.Net讀取AutoCAD圖紙

如果可以的話請把分給我

以下是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調(diào)用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 '界面可視

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

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

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

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

分享名稱：cad控件vb.net cad如何調(diào)用vb程序
URL標題：http://jinyejixie.com/article0/dosgpio.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供微信公眾號、網(wǎng)站設計公司、域名注冊、品牌網(wǎng)站制作、軟件開發(fā)、靜態(tài)網(wǎng)站

廣告

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