help - skill code for goto xy coordinate

You could also use leSetRefPoint() to set the reference point (and if you have set on Options->Display that the reference point is visible, you'll get a little cross shown at the point).

BTW, one thing that many users are unaware of is that if you were to just use the standard "Pan" command (from the menu, say), you can type in the coordinates in the CIW:

100:240

(for example) and it will pan to that location. Any "enter function" - i.e. when you're prompted for points - can have the points typed in the CIW.

Regards,

Andrew.

Thanks for the code.

hiSetBindKey("Layout" "Ctrl<Key>p" "zoomGUI()")

Or whatever key you want. Looking at the code, zoomGUI() is the main entry point. You'll need to have loaded the code (from your .cdsinit, say).

Regards,

Andrew.

Thanks kbhow and andrew. It's working now.

One more request, could it have an input box for x coordiante, input box for x coordiante,  and input box for scale/zoom size?

Thanks.

Hi Guys,

I'm jumping a bit late into the subject but wanted to share some code I have written based on what discussed here.

The above code has the added value of self-calculating the 'right' zoom ratio before applying the pan function. This code calcules a zoom that would magnify the design into a window size les than 1um^2, assuming the initial design is more than 1um*1um.One can make this code zooming even more if needed, just by adding a multiplier as explained within the code.

;---------------------------------------------------------------------------
; procedure : RKzoomToPointFormCB
;---------------------------------------------------------------------------
procedure( RKzoomToPointFormCB(form)
  let((point xCoordinate yCoordinate)
    xCoordinate=car(parseString(form->xyCoordinates->value ","))
    yCoordinate=cadr(parseString(form->xyCoordinates->value ","))
    point=list(cdfParseFloatString(xCoordinate) cdfParseFloatString(yCoordinate))
    printf("The Selected Point is: %L\n" point)
    RKzoomToPointCB(point)
  )
)
;---------------------------------------------------------------------------
; procedure : RKzoomToPointCB.
; This is actually the main function, it does dynamically calculate the
; zoom ratio and then pan. It also put the ref point that is displayed
; if users setup their environment to do so.
;---------------------------------------------------------------------------
procedure( RKzoomToPointCB(point)
  let((windowId viewBBox zoomVal)
    windowId=hiGetCurrentWindow()
    hiZoomAbsoluteScale(windowId 1)
    viewBBox=hiGetViewBBox(windowId)
    zoomVal=max(abs(yCoord(upperRight(viewBBox))-yCoord(lowerLeft(viewBBox)))
                abs(xCoord(upperRight(viewBBox))-xCoord(lowerLeft(viewBBox))))
    ; One can make the zoom even higher, just by seeting
    ; something like
    ; zoomVal=10*zoomVal for example
    hiPan( hiGetCurrentWindow() point)
    hiZoomRelativeScale(windowId  zoomVal)
    ;unless(leEditorOptionsForm->options->displayRefPoint->value
    ;  leEditorOptionsForm->options->displayRefPoint->value=t
    ;)
    leSetRefPoint(windowId~>cellView point)
  )
)
;---------------------------------------------------------------------------
; procedure : RKzoomToPoint, main entry.
;---------------------------------------------------------------------------
procedure(RKzoomToPoint()
  unless(boundp('RKzoomToPointForm)
    RKzoomToPointCreateForm()
  )
  hiDisplayForm(RKzoomToPointForm)
)
;---------------------------------------------------------------------------
; procedure : RKzoomToPointCreateForm
;---------------------------------------------------------------------------
procedure(RKzoomToPointCreateForm()
  let((xyCoordinates zoomLabel zoomButton)
   
    zoomLabel=hiCreateLabel(
      ?name 'zoomLabel
      ?labelText "enter ',' separated points: ex 0.0,0.0"
      ?justification `center
    )
  
    xyCoordinates=hiCreateStringField(
      ?name 'xyCoordinates
      ?prompt "X,Y Coordinates"
      ?value "0.0,0.0"
    )           
    zoomButton=hiCreateButton(
      ?name 'zoomButton
      ?buttonText "Zoom & Pan"
      ?callback strcat("(RKzoomToPointFormCB " 'RKzoomToPointForm " )")
    )
               
   RKzoomToPointForm=hiCreateAppForm(
      ?name 'RKzoomToPointForm
      ?formTitle "RK Zoom To Point"
      ?callback strcat("(RKzoomToPointFormCB " 'RKzoomToPointForm " )")
      ?buttonLayout '(OKCancelDef)
      ?fields list(
        list(zoomLabel 5:5 250:30 100 )
        list(xyCoordinates 5:40 250:30 100 )
    list(zoomButton  30:75 200:30  )
      )
    )
  )
)
;---------------------------------------------------------------------------
; Bindkey definition
;---------------------------------------------------------------------------
hiSetBindKey("Layout" "Alt<Key>z" "RKzoomToPoint()")

Cheers,

Riad. 

Thanks Riad for another code. but yours does not have the "X" mark ruler and it's too zoomed in.

and could there  be a seperate input box for x and y coordinates?

This is a forum for ideas and answers, not a development team for your CAD needs. As Andrew said, you should be able to get it working from the examples you have received so far.

As for my two cents, I don't like having a separate field for X and Y. Most of the time, our users are cutting and pasting X and Y coordinates from a file. Our solution was to make the XY field on the form a string field. We pre-process the string and convert it into X and Y coordinates. In doing this, the pre-process code removes colons, quotes, commas, etc so the user can paste coordinate info in any format that he has and not have to separately cut and paste the X and the Y.

The following procedure takes the string entered on the form (coord) and returns a point:

procedure(coordCleanup( coord)
  rexCompile( "[(){}xy=,XY:]")
  coord = rexReplace( coord " " 0)
  ;Occasionally an extra decimal: (920.000000. -223.500000)
  rexCompile( "\\. ")
  coord = rexReplace( coord " " 0)
  coord = parseString(coord)
  mapcar( 'aelNumber coord)
) ;proc

Now, the user can paste this in the box:
x=10,y=20

And this routine will return: list(10 20)

Derek