| check part_open, "You must have a part open to run this macro"
|
|
|
| local i, inum, iop
|
|
|
|
|
| get_op_list 1 |
! get list of selected ops
|
| inum=number_of_ops
|
| if inum<1 then stop "Please select an operation"
|
|
|
| ! create a file open dialog
|
| ! -------------------------
|
|
|
| file_dialog_new "Select output filename"
|
| file_dialog_extension "Text files (*.txt)", "txt"
|
| file_dialog_extension "All files (*.*)", "*"
|
| file_dialog_show save, f$
|
|
|
| ! open the file on unit 1 for writing
|
| ! -----------------------------------
|
|
|
| file1_open=0
|
|
|
| file_open 1, f$, write
|
| if FileError<>0 then stop "Error opening output file"
|
|
|
| for i=1 to inum
|
