VB.Net讀取AutoCAD圖紙

如果可以的話請把分給我

創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司一直秉承“誠信做人，踏實(shí)做事”的原則，不欺瞞客戶，是我們最起碼的底線！ 以服務(wù)為基礎(chǔ)，以質(zhì)量求生存，以技術(shù)求發(fā)展，成交一個(gè)客戶多一個(gè)朋友！專注中小微企業(yè)官網(wǎng)定制，做網(wǎng)站、成都做網(wǎng)站，塑造企業(yè)網(wǎng)絡(luò)形象打造互聯(lián)網(wǎng)企業(yè)效應(yī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中CheckListBox如何通過程序做選擇。

CheckedListBox1.CheckOnClick = True

指示復(fù)選項(xiàng)是否應(yīng)在首次單擊時(shí)更改狀態(tài)

CheckListBox.GetItemChecked

返回復(fù)選框是否被選中的真假項(xiàng)

要用代碼賦是否勾選某項(xiàng)的值應(yīng)該用setitemchecked

VB.NET中的模塊

在C#中有 靜態(tài)類 的概念 自然里邊全部的方法都是靜態(tài)的 這意味著你可以直接通過 類名 方法名 去調(diào)用（例如System的Math類就是典型） 在VB NET中 沒有 靜態(tài)類 的概念（當(dāng)然你可以用 單例模式 把構(gòu)造函數(shù)弄成Private的方式 其它方法都是靜態(tài)的）如果某些方法需要被其它地方頻繁使用 可以創(chuàng)建 模塊 在VB NET中一旦創(chuàng)建了模塊 其中任何方法 屬性或者變量都可以被其它地方引用 因此適合全局情況下頻繁交互的情況（比如初始化加載的參數(shù) 可能后續(xù)程序要使用）等

現(xiàn)在問題在于 如果你把一個(gè)類似以下的模塊代碼封裝成DLL類庫 無論在C#或者是VB NET中都無法引用到其方法

Module A

Public Sub Test()

End Sub

End Module

或許你感到很奇怪——不是在VB NET中這樣定義一個(gè)Module就直接可以使用其內(nèi)部方法了么？為什么封裝成類庫就不可以了呢？上網(wǎng)問了一些人 眾說紛紜 后來我在他人協(xié)助下終于成功解決了這個(gè)問題——解決方法很簡單——只要在Module前加Public

理由是 為了兼容C# VB NET由Module封裝成類庫中這個(gè)模塊不再是 模塊 而是一個(gè)標(biāo)準(zhǔn)的類了 如果這樣寫 那么在 NET中被理解成(C#)

internal A

{

public void Test()

{

}

}

整個(gè)模塊變成Internal的了！當(dāng)然你到其它程序集中去引用就引用不到！而把類庫中的Module的修飾符改為Public就可以了 這就是MSDN那位友人給我最好的提示

雖然這個(gè)提示不是令我太滿意（因?yàn)橐繴B NET中可以直接不通過 類名 方式直接使用方法名） 但是這給了我很大的暗示 得出重要的結(jié)論

）VB NET中Module在制作成類庫時(shí)候等同于VB NET中的類的規(guī)則（里邊的方法都是靜態(tài)的） 默認(rèn)情況下是Friend（C#是internal）

）根據(jù)結(jié)論 那么我們知道引用該DLL類庫的方法一定是 i）引用命名空間? ii）C#中直接 類名 方法名 對于VB NET 直接可以引用到方法名

lishixinzhi/Article/program/net/201311/12502

網(wǎng)站欄目：vb.net選擇集塊 vba選擇集
分享路徑：http://www.rwnh.cn/article6/doggdog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供云服務(wù)器、搜索引擎優(yōu)化、標(biāo)簽優(yōu)化、營銷型網(wǎng)站建設(shè)、、動(dòng)態(tài)網(wǎng)站

廣告

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