Export Drawing model to DWG with 2D Wireframe AutoCAD Visual Style?

Mark, 

I have found a little difficulty with this also, mainly I think due to the drawing model being seen as a non default model in terms of the dwg export. 

I use a macro to get round this, that changes the model type from drawing to model, exports the dwg and then returns the model to a drawing. 

Now that would be a really  useful macro ... dont suppose you could share it here?

Model change.zip

Zip file attached with 3 vba routines for design to sheet, sheet to design and drawing to design. (the original was provided by Bentley in response to an SR which I have amended to suit)

I have written these into a series of key-strings, such as the below, to activate and associated with menu drop downs for easy access

the routine below does a few things

1. turns update fields off so that filed values are not lost when merging refs

2. places a fence around all elements

3. turns the sheet in this case, into a 2d design model,

4. exports the dwg

5. turns the original back to a sheet

6. turns filed update back on. 

expand set ms_auto_update_fields = never; place fence allfiles; POINT ABSOLUTE; macro play SheetToDesign; export dwg; point absolute; macro play DesignToSheet; expand set ms_auto_update_fields = always

these can be expanded also, I have a series of these that will, for example, do batch dgn/dwg/pdf into folder paths set by project variable

Of course, if microstations export tools would actually just work like they should then none of this would be required. 

Model change.zip

Zip file attached with 3 vba routines for design to sheet, sheet to design and drawing to design. (the original was provided by Bentley in response to an SR which I have amended to suit)

I have written these into a series of key-strings, such as the below, to activate and associated with menu drop downs for easy access

the routine below does a few things

1. turns update fields off so that filed values are not lost when merging refs

2. places a fence around all elements

3. turns the sheet in this case, into a 2d design model,

4. exports the dwg

5. turns the original back to a sheet

6. turns filed update back on. 

expand set ms_auto_update_fields = never; place fence allfiles; POINT ABSOLUTE; macro play SheetToDesign; export dwg; point absolute; macro play DesignToSheet; expand set ms_auto_update_fields = always

these can be expanded also, I have a series of these that will, for example, do batch dgn/dwg/pdf into folder paths set by project variable

Of course, if microstations export tools would actually just work like they should then none of this would be required.