vb.netcad編程 vbnet adodb

如何使用vb.net調(diào)用cad進(jìn)行繪圖

你去查查書吧，書上挺詳細(xì)的，在這說(shuō)不好說(shuō)，你先在項(xiàng)目里引用。然后 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("不能運(yùn)行AutoCAD,請(qǐng)檢查是否安裝了AutoCAD") Exit Sub End If End If AcadApp.Visible = True '界面可視

都昌ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書未來(lái)市場(chǎng)廣闊！成為成都創(chuàng)新互聯(lián)公司的ssl證書銷售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：18982081108（備注：SSL證書合作）期待與您的合作！

如何用vb.net編程控制cad中的圖層？

按照常理說(shuō)一句哈：找CAD的API。然后在你的程序里寫語(yǔ)句，調(diào)用這個(gè)API。關(guān)鍵是找到可以操作CAD的圖層的API。歐特克提供了這個(gè)嗎？

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

Dim?ppr?As?PromptPointResult?=?ed.GetPoint("請(qǐng)選擇插入點(diǎn)：")

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()

'多文檔要先這樣，否則報(bào)至命錯(cuò)誤?

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

VB.Net編程提取CAD中的點(diǎn)坐標(biāo),采用AcadApp.ActiveDocument.Utility.GetPoint函數(shù)老是報(bào)錯(cuò)是什么原因啊???

D=AcadApp.ActiveDocument.Utility.GetPoint(,"選擇一個(gè)點(diǎn)：")

你的參數(shù)沒有弄對(duì)

GetPoint是個(gè)方法不是屬性必須要括號(hào)()

他的兩個(gè)參數(shù)為可選參數(shù)（startpoint，prompt）第一個(gè)參數(shù)是起始點(diǎn)，第二個(gè)參數(shù)是提示語(yǔ)

如何用VB.NET編程語(yǔ)言實(shí)現(xiàn)打開CAD文件？

需要解析CAD文件的構(gòu)成然后根據(jù)規(guī)則繪制說(shuō)白點(diǎn)CAD文件是人家公司定義的一個(gè)文件格式里面保存的不是圖形而是圖形的繪制規(guī)則程序AutoCad打開文件的時(shí)候是讀取文件里面描寫的繪制規(guī)則繪制圖案的你了解了CAD文件的構(gòu)成后就可以自己寫代碼繪制圖形了（具體CAD圖形構(gòu)成沒研究過(guò) 你可以用記事本打開一個(gè)CAD的圖形交換文件.Dxf 可以看到這個(gè)文件是由圖層說(shuō)明和很多點(diǎn)坐標(biāo)組成的）

CAD利用VB編程來(lái)解決問(wèn)題

額，慢慢學(xué)吧。不過(guò)學(xué)CAD的二次開發(fā)，建議還是起點(diǎn)高些好。一般有幾種模式二次開發(fā)：

1，autolisp，你學(xué)VB的，這個(gè)就免了把。

2，利用cad里面的vba，這個(gè)好像比較適合你。

3，跨平臺(tái)開發(fā)，利用.NET二次開發(fā)，比較酷斃的那種，com托管，大型計(jì)算方面慢。

4，objectarx，這個(gè)語(yǔ)言可以對(duì)cad進(jìn)行深層次的開發(fā)。比如添加命令等，而且運(yùn)行速度快。用VB.NET就可以采用這種模式進(jìn)行開發(fā)。

建議你直接從objectarx入手，專心2個(gè)月就OK了。

網(wǎng)站標(biāo)題：vb.netcad編程 vbnet adodb
網(wǎng)站地址：http://muchs.cn/article42/doscihc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供標(biāo)簽優(yōu)化、網(wǎng)站導(dǎo)航、網(wǎng)站制作、軟件開發(fā)、云服務(wù)器、網(wǎng)站改版

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

猜你還喜歡下面的內(nèi)容