rem                            WRITEDT.CDL



rem        Copy Right by International Technology Transfer Corp.
rem        revision 1.0 7/30/99   


rem        Output Ascii Data

rem        1. Enter File Name
rem        2. Output Ascii Coordinate Data


clear
clearsel
count=0

:start

getmenu "Select Entity","Single","Chain","Window","Polygon","Group","Plane","All Disp"
        on (@key + 3) goto exit,start,start,
selno   =@key

getentm selno,nument

if ( nument==0 )
	goto start


$file = "data.txt"
sprint $defname, "%s%s", @cdlpath, $file
getstr "Enter Data File Name To Export", $defname, $file
on (@key+3)	goto exit,start,,

prompt "Exporting File... "
set devout,$file

set mask,1
:loop
count=count+1
if (count>nument)
	goto exit
getnext enttype,count

print "%.6f %.6f %.6f\n",@fltdat[0],@fltdat[1],@fltdat[2]
goto loop

:exit
close devout
set mask