autoCAD输出为BMP格式的问题

[fyming]

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格式？

[专注编程优化20年]

搞定没有？Q2776478814,远程看看