【转帖】code example needed

yang686526

code example needed
im editing a code to export a part model's flat pattern to a dwg, but i cant get it to save to a "user specified" location and also how can i get it to have the same file name as well?
im trying to find other codes already written but i cant find them and what i think would work isnt working
set part = swapp.activedoc
set selmgr = part.selectionmanager
boolstatus = part.extension.selectbyid2("flat-pattern1", "bodyfeature", 0, 0, 0, false, 0, nothing, 0)
boolstatus = part.exportflatpatternview("q:\wf (weigh and fill machines)\flat pattern - cylinder-bracket-table.dxf", 1)
end sub
just trying to figure it all out
my latest code but just seems to do nothing
sub main()
set swapp = application.sldworks
partname = swdescription
set part = swapp.activedoc
set selmgr = part.selectionmanager
boolstatus = part.extension.selectbyid2("flat-pattern1", "bodyfeature", 0, 0, 0, false, 0, nothing, 0)
boolstatus = part.exportflatpatternview("q:\ partname.dwg")
end sub
just trying to figure it all out