How i can get the data into the variable which is stored in the mouse pointer ?

I created a utility to do this that works pretty well for our needs. I created a form with a string field at the top of the form and a list box field at the bottom. The user can hilight all or part of a text file and paste it (using the middle mouse button) into the string field. I have a button on the form that converts the string field into the list box like this:

   _ZOOMLIST_FORM->listBox->choices = parseString(_ZOOMLIST_FORM->textField->value "\n")

This basically puts each line of the text file into a different entry in the list box. You can also enhance the form to allow you to load a text file into the list box instead. This is actually necessary if you exceed the 8K limit (don't remember if the limit is on the paste buffer or the text field).

I then created a callback for the list box. Each time you click on an entry in the list box, the line is parsed and the first two numbers in the line are used as the coordinate pair to zoom to. I have two integer fields on the form that allow you to specify which digits from the line to use as your X and Y coordinates in the case where your coordinates are not the first two numbers on the line. By adding Next and Previous buttons on the form, you can quickly zoom from point to point in your file.

My callback looks like this:

procedure(myZoomListCB(_ZOOMLIST_FORM)
  let((coord coordx coordy)
    coord=car(_ZOOMLIST_FORM->lb->value)
    when(coord
        ;Integer value on the form specifying which digit is X value (def=1)
        coordx=_ZOOMLIST_FORM->coord1->value  
        ;Integer value on the form specifying which digit is Y value (def=2)
        coordy=_ZOOMLIST_FORM->coord2->value  
        rexCompile( "[xyXY] *[=:]")
        coord = rexReplace( coord " " 0)
        rexCompile( "[(){}=,:]")
        coord = rexReplace( coord " " 0)
        rexCompile( "\\. ")
        coord = rexReplace( coord " " 0)
        coord = parseString(coord)
        ;Get only the numbers from the rest of the data
        coord=mapcar( 'aelNumber coord)
        ;Keep non-nil values
        coord=setof(x coord x)
        ;When more than 2 digits found
        when(length(coord)>2
            coord=list(nthelem(coordx coord) nthelem(coordy coord))
        )
        if(geCoordp(coord)
            _ZOOMLIST_FORM->coord->value=coord
            _ZOOMLIST_FORM->coord->value=nil
        )
        if(_ZOOMLIST_FORM->coord->value then
            ;If coordinate is relative to lower level cell and user is editing in place, translate it
            when(_ZOOMLIST_FORM->eip->value
                coord=geEditToWindowPoint(hiGetCurrentWindow() coord)
            )
            if(_ZOOMLIST_FORM->panZoom->value=="Pan" then
                hiPan(hiGetCurrentWindow() coord)
            else
                ;Zoom in with 5 micron radius around the point
                hiZoomIn(hiGetCurrentWindow() 
                   list(xCoord(coord)-5.0:yCoord(coord)-5.0
                        xCoord(coord)+5.0:yCoord(coord)+5.0)
                )
            )
        else
            hiGetAttention()
            printf("**ERROR: Not a valid coordinate pair in this string\n")
        )
    )
  ) ;let
) ;proc

Good luck,

Derek

I created a utility to do this that works pretty well for our needs. I created a form with a string field at the top of the form and a list box field at the bottom. The user can hilight all or part of a text file and paste it (using the middle mouse button) into the string field. I have a button on the form that converts the string field into the list box like this:

   _ZOOMLIST_FORM->listBox->choices = parseString(_ZOOMLIST_FORM->textField->value "\n")

This basically puts each line of the text file into a different entry in the list box. You can also enhance the form to allow you to load a text file into the list box instead. This is actually necessary if you exceed the 8K limit (don't remember if the limit is on the paste buffer or the text field).

I then created a callback for the list box. Each time you click on an entry in the list box, the line is parsed and the first two numbers in the line are used as the coordinate pair to zoom to. I have two integer fields on the form that allow you to specify which digits from the line to use as your X and Y coordinates in the case where your coordinates are not the first two numbers on the line. By adding Next and Previous buttons on the form, you can quickly zoom from point to point in your file.

My callback looks like this:

procedure(myZoomListCB(_ZOOMLIST_FORM)
  let((coord coordx coordy)
    coord=car(_ZOOMLIST_FORM->lb->value)
    when(coord
        ;Integer value on the form specifying which digit is X value (def=1)
        coordx=_ZOOMLIST_FORM->coord1->value  
        ;Integer value on the form specifying which digit is Y value (def=2)
        coordy=_ZOOMLIST_FORM->coord2->value  
        rexCompile( "[xyXY] *[=:]")
        coord = rexReplace( coord " " 0)
        rexCompile( "[(){}=,:]")
        coord = rexReplace( coord " " 0)
        rexCompile( "\\. ")
        coord = rexReplace( coord " " 0)
        coord = parseString(coord)
        ;Get only the numbers from the rest of the data
        coord=mapcar( 'aelNumber coord)
        ;Keep non-nil values
        coord=setof(x coord x)
        ;When more than 2 digits found
        when(length(coord)>2
            coord=list(nthelem(coordx coord) nthelem(coordy coord))
        )
        if(geCoordp(coord)
            _ZOOMLIST_FORM->coord->value=coord
            _ZOOMLIST_FORM->coord->value=nil
        )
        if(_ZOOMLIST_FORM->coord->value then
            ;If coordinate is relative to lower level cell and user is editing in place, translate it
            when(_ZOOMLIST_FORM->eip->value
                coord=geEditToWindowPoint(hiGetCurrentWindow() coord)
            )
            if(_ZOOMLIST_FORM->panZoom->value=="Pan" then
                hiPan(hiGetCurrentWindow() coord)
            else
                ;Zoom in with 5 micron radius around the point
                hiZoomIn(hiGetCurrentWindow() 
                   list(xCoord(coord)-5.0:yCoord(coord)-5.0
                        xCoord(coord)+5.0:yCoord(coord)+5.0)
                )
            )
        else
            hiGetAttention()
            printf("**ERROR: Not a valid coordinate pair in this string\n")
        )
    )
  ) ;let
) ;proc

Good luck,

Derek