代碼如下:
創新互聯自2013年起,是專業互聯網技術服務公司,擁有項目成都網站設計、成都網站制作網站策劃,項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命,1280元靈丘做網站,已為上家服務,為靈丘各地企業和個人服務,聯系電話:18980820575
public
sub
command1_click()
msgbox“hello”
end
sub
則在form1中調用時就直接寫成:
public
sub
command1_click()
call
form2.command1_click
end
sub
前提是form2中相應的代碼是public的而不是private的,否則調用不了
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
'調用上面的函數,如果為nothing表示沒有打開,否則打開并返回對象
Process.Start(“cad主程序的路徑”,“要打開文件的目錄”)
比如用記事本打開 c:\1.txt
Process.Start("C:\Windows\notepad.exe", "c:\1.txt")
你去查查書吧,書上挺詳細的,在這說不好說,你先在項目里引用。然后 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 '界面可視
網站欄目:cad調用vb.net,cad調用圖庫命令
瀏覽路徑:http://m.newbst.com/article46/dsseohg.html
成都網站建設公司_創新互聯,為您提供網站營銷、App開發、品牌網站建設、自適應網站、網站設計公司、動態網站
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯