Macro for dxf. in a list of drawings

[Brad Stephens]

I am in search of a macro that will do the following: 1.Pull up a drawing from a list. 2.Delete everything on drawing except part geometry (dims,text,leaders,title block, center lines, phantom lines, etc..) 3.Smash all subparts 4.Scale drawing to 1:1 5.Dxf to same name as called up drawing with a .dxf extension. I would be happy with all or bits and pieces of this macros. Thanks Brad

[Walter Geppert]

Try this: DEFINE Batch_dxf LOCAL Vp LOCAL Name INQ_ENV 1 LET Vp (INQ 2) OPEN_INFILE 1 'DXF_BATCHLIST' LOOP READ_FILE 1 Name EXIT_IF (Name='END-OF-FILE') DELETE ALL CONFIRM LOAD Name IF (POS Name '.mi') LET Name (SUBSTR Name 1 ((LEN Name)-3)) END_IF LET Name (Name+'.dxf') INQ_ENV 7 GATHER KEEP_DISPLAY PICK_VP_PNT Vp ((INQ 101)-(INQ 102)) PICK_VP_PNT Vp ((INQ 102)+(INQ 102)) END TRAP_ERROR DELETE SELECT ALL SUBTRACT GEO ALL CONFIRM END DELETE SELECT ALL SUBTRACT SOLID CONFIRM END DELETE SELECT ALL SUBTRACT WHITE CONFIRM END DELETE_HATCH ALL CONFIRM END LET I (CHECK_ERROR) DRAWING_SCALE 1 INQ_ENV 7 MODIFY ALL MOVE TWO_PTS (INQ 101) 0,0 END STORE DXF ALL DEL_OLD Name END_LOOP CLOSE_FILE 1 END_DEFINE