Print Geo Data To File

!    print data from selected geometry to a file
a1$ = "This macro look at the selected geometry and"
a2$ = "print the data for that geometry to a text file,"
a3$ = "with the filename selected by the user."
message "%a1$\n%a2$\n%a3$"
check part_open, "You must have a part open to run this macro"
check part_mill, "This macro is not designed for turned parts"
get_num_feat_selected inum
if inum<1 then stop "No geometry selected"
!    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 goto file_error
file1_open=1
!    loop through all selected features and
!    update the min/max xy data according
!    to each features xy data
!    --------------------------------------
!    try setting fmt$ to any of the next 3
!    to get different formatted numbers
fmt$ = "+0.0~~"	!    output spaces in place of leading/trailing zeros
!   fmt$ = "+###0.0##"	!    do not output leading/trailing zeros
!   fmt$ = "+0000.000"	!    output leading/trailing zeros

for i=1 to inum

!    get the feature reference number for

!    the 'i'th selected feature

!    ------------------------------------

get_selected_geo_ref i, iref

!    get the feature type for this feature

!    -------------------------------------

get_feat_type iref, itype

if itype=1 then goto label_point

if itype=2 then goto label_line

if itype=3 then goto label_circle

if itype=4 then goto label_arc

continue

:label_point

get_feat_start iref, 1, xs, ys, zs

xs$ = format$(xs, fmt$)

ys$ = format$(ys, fmt$)

zs$ = format$(zs, fmt$)

a$ = "Point X =%xs$ Y =%ys$ Z =%zs$"

goto label_print

:label_line

get_feat_start iref, 1, xs, ys, zs

get_feat_end iref, 1, xe, ye, ze

xs$ = format$(xs, fmt$)

ys$ = format$(ys, fmt$)

zs$ = format$(zs, fmt$)

xe$ = format$(xe, fmt$)

ye$ = format$(ye, fmt$)

ze$ = format$(ze, fmt$)

a$ = "Line Xs=%xs$ Ys=%ys$ Zs=%zs$"

a$ = a$ + " Xe=%xe$ Ye=%ye$ Ze=%ze$"

goto label_print

:label_circle

get_circle_data iref, 1, rad, xc, yc, zc

xc$ = format$(xs, fmt$)

yc$ = format$(ys, fmt$)

zc$ = format$(zs, fmt$)

rr$ = format$(rad, fmt$)

a$ = "Circle Xc=%xs$ Yc=%ys$ Zc=%zs$ R =%rr$"

goto label_print

:label_arc

get_feat_start iref, 1, xs, ys, zs

get_feat_end iref, 1, xe, ye, ze

get_arc_data iref, 1, rad, dir, xc, yc, zc

xc$ = format$(xc, fmt$)

yc$ = format$(yc, fmt$)

zc$ = format$(zc, fmt$)

xs$ = format$(xs, fmt$)

ys$ = format$(ys, fmt$)

zs$ = format$(zs, fmt$)

xe$ = format$(xe, fmt$)

ye$ = format$(ye, fmt$)

ze$ = format$(ze, fmt$)

rr$ = format$(rad, fmt$)

a$="Arc CCW"

if dir=1 then a$ = "Arc CW "

a$ = a$ + " Xc=%xc$ Yc=%yc$ Zc=%zc$ R =%rr$"

a$ = a$ + "\n Xs=%xs$ Ys=%ys$ Zs=%zs$"

a$ = a$ + " Xe=%xe$ Ye=%ye$ Ze=%ze$"

Goto label_print

:label_print

file_write_text 1, a$

if FileError<>0 then goto file_error

next i

file_close 1

if FileError<>0 then goto file_error

yesno "View the output ?", iyesno

if iyesno = 0 then stop "Finished"

run_exe "\Windows\System32\Notepad.exe", f$

stop "Finished"

:file_error

ierr=FileError

if file_open=1 then file_close 1

stop "File error, code = %FileError"