Dim AcadDoc As AcadDocument
The Set AcadApp=GetObject (, "AutoCAD. Application. 17")
The Set AcadDoc=AcadApp. ActiveDocument
Dim sset As AcadSelectionSet
AcadApp. Visible=False
The Set sset=AcadDoc. SelectionSets. Add (" 1 ")
AcadDoc. Export App. Path & amp; "\ \ PIC & amp;" Format (Now, "yyyymmddhhmmss"), BMP, sset
AcadApp. Quit
The Set AcadApp=Nothing
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
Objective: in VB, the CAD file for editing and output for the BOM format
Question: every time now in inventory, CAD will pop up, I think it should be the Export methods in the use of the last parameter acadSelectionSets problem, what should the parameters set? Can directly output as JPG format?
CodePudding user response:
Done yet? Q2776478814, remote and have a look