help - skill code for goto xy coordinate

Hi ,

I have set of X Y Coordinates in a text file , that is " coordxy.txt "

this fie has coordinates in the form of (X Y)

1.2 6.8

2.4 4.6

6.2 2.9

0.4 6.0

5.0 8.9

....

....

....

this is saved in file " coordxy.txt "

I wrote another skill to load this "coordxy.txt " file in CIW and assigned it to  portt=infile(hiGetCurrentForm()->fileLocation->value)

/*** Skill to load file in CIW **/

 procedure( loadfile()

    let( (fileLocation loadFileButton y)
        fileLocation = hiCreateFileSelectorField(
                ?name           'fileLocation
                ?mode           'existingFile
                ?prompt         "Choose a file"
                ?editable       t)

        loadFileButton = hiCreateButton(
                ?name           'loadFileButton
                ?buttonText     "Load File"
                ?callback       "printf(\"Loading file from popup form %s\n\" myForm->fileLocation->value)")

        myForm = hiCreateAppForm(
                ?name           'myForm
                ?formTitle      "Load File in CIW"
                ?buttonLayout   'Close
        ?dontBlock t    ; with this your previous code would have failed
                ?fields         list( list(fileLocation 10:10 400:20 100)
                                        list(loadFileButton 415:10 80:30))
                ?unmapAfterCB           t)

        hiDisplayForm(myForm)
    
    ); let
 port=infile(hiGetCurrentForm()->fileLocation->value)
)

hiSetBindKey("Layout" "Alt<key>L" "loadfile()")

----------------------END-----------------------

Now i should read this file in CIW line by line, for this i have some code

fpFile = infile(" 123.txt ")

gets( line fpFile )

tokens = parseString( line )

rexCompile( "[xyXY] *[=:]")

coord = rexReplace( line " " 0)

rexCompile( "[(){}=,:]")

coord = rexReplace( coord " " 0)

rexCompile( "\\. ")

coord = rexReplace( coord " " 0)

coord = parseString(coord)

coord=mapcar( 'aelNumber coord)

coord=setof(x coord x)

X=car(coord)

Y=cadr(coord)

-------------------------------------------------

this will get value of X and Y from file line by line

Next i need this values to assign in my main code one by one , by pressing NEXT BUTTON in pop up window , and it must go to previous line by Pressing PREVIOUS BUTTON .

Hi ,

I have set of X Y Coordinates in a text file , that is " coordxy.txt "

this fie has coordinates in the form of (X Y)

1.2 6.8

2.4 4.6

6.2 2.9

0.4 6.0

5.0 8.9

....

....

....

this is saved in file " coordxy.txt "

I wrote another skill to load this "coordxy.txt " file in CIW and assigned it to  portt=infile(hiGetCurrentForm()->fileLocation->value)

/*** Skill to load file in CIW **/

 procedure( loadfile()

    let( (fileLocation loadFileButton y)
        fileLocation = hiCreateFileSelectorField(
                ?name           'fileLocation
                ?mode           'existingFile
                ?prompt         "Choose a file"
                ?editable       t)

        loadFileButton = hiCreateButton(
                ?name           'loadFileButton
                ?buttonText     "Load File"
                ?callback       "printf(\"Loading file from popup form %s\n\" myForm->fileLocation->value)")

        myForm = hiCreateAppForm(
                ?name           'myForm
                ?formTitle      "Load File in CIW"
                ?buttonLayout   'Close
        ?dontBlock t    ; with this your previous code would have failed
                ?fields         list( list(fileLocation 10:10 400:20 100)
                                        list(loadFileButton 415:10 80:30))
                ?unmapAfterCB           t)

        hiDisplayForm(myForm)
    
    ); let
 port=infile(hiGetCurrentForm()->fileLocation->value)
)

hiSetBindKey("Layout" "Alt<key>L" "loadfile()")

----------------------END-----------------------

Now i should read this file in CIW line by line, for this i have some code

fpFile = infile(" 123.txt ")

gets( line fpFile )

tokens = parseString( line )

rexCompile( "[xyXY] *[=:]")

coord = rexReplace( line " " 0)

rexCompile( "[(){}=,:]")

coord = rexReplace( coord " " 0)

rexCompile( "\\. ")

coord = rexReplace( coord " " 0)

coord = parseString(coord)

coord=mapcar( 'aelNumber coord)

coord=setof(x coord x)

X=car(coord)

Y=cadr(coord)

-------------------------------------------------

this will get value of X and Y from file line by line

Next i need this values to assign in my main code one by one , by pressing NEXT BUTTON in pop up window , and it must go to previous line by Pressing PREVIOUS BUTTON .