如何將CAD窗口顯示在VB.NET窗體下

代碼如下：

創(chuàng)新互聯(lián)自2013年起，是專(zhuān)業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元靈丘做網(wǎng)站,已為上家服務(wù),為靈丘各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話(huà):18980820575

public

sub

command1_click（）

msgbox“hello”

end

sub

則在form1中調(diào)用時(shí)就直接寫(xiě)成：

public

sub

command1_click（）

call

form2.command1_click

end

sub

前提是form2中相應(yīng)的代碼是public的而不是private的，否則調(diào)用不了

vb.net怎樣在當(dāng)前已打開(kāi)的AutoCAD畫(huà)圖? 最好有個(gè)判斷語(yǔ)句, 如果CAD已打開(kāi), 在當(dāng)前畫(huà)圖; 如果沒(méi)有, 則打開(kāi)

Private Function isopen() As AutoCAD.AcadApplication

Try

dim CADapp_temp AutoCAD.AcadApplication = GetObject(, "AutoCAD.Application")

return CADapp_temp

Catch ex As Exception

Return Nothing

End Try

End Function

'調(diào)用上面的函數(shù),如果為nothing表示沒(méi)有打開(kāi)，否則打開(kāi)并返回對(duì)象

VB.NET 如何通過(guò)按鈕打開(kāi)AUTOCAD的指定文件

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

比如用記事本打開(kāi) c:\1.txt

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

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

你去查查書(shū)吧，書(shū)上挺詳細(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 '界面可視

網(wǎng)站欄目：cad調(diào)用vb.net,cad調(diào)用圖庫(kù)命令
瀏覽路徑：http://jinyejixie.com/article46/dsseohg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站營(yíng)銷(xiāo)、App開(kāi)發(fā)、品牌網(wǎng)站建設(shè)、自適應(yīng)網(wǎng)站、網(wǎng)站設(shè)計(jì)公司、動(dòng)態(tài)網(wǎng)站

廣告

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