Dim AcadApp As AcadApplication
Dim AcadDoc As AcadDocument
Set AcadApp = GetObject(, "AutoCAD.application.17")
Set AcadDoc = AcadApp.ActiveDocument
Dim sset As AcadSelectionSet
AcadApp.Visible = False
Set sset = AcadDoc.SelectionSets.Add("1")
AcadDoc.Export App.Path & "\pic\" & Format(Now, "yyyymmddhhmmss"), "bmp", sset
AcadApp.Quit
Set AcadApp = Nothing
------------------------------------------
目的：在VB中，對CAD檔案進行編輯并且輸出為BOM格式
問題：現在每次在存盤時，CAD都會彈出來，我想應該是Export方法中的最后一個引數的acadSelectionSets的使用問題。這個引數該怎么設？能不能直接輸出為JPG格式？
uj5u.com熱心網友回復：
搞定沒有？Q2776478814,遠程看看轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/43642.html
標籤：多媒體
上一篇：asp匯出excel檔案
下一篇：求WinSECS插件