help - skill code for goto xy coordinate

Hi All!! I have modifide kbhow code to zoom and create x marker..please check it out!!

procedure( ZoomToPoint( x y @key
 (scale 1)
 (winId hiGetCurrentWindow())
 (cvId geGetEditCellView()))

let(( (dx 1) (dy 1) qcBbox)
;----------------------------
; Zoom to point with scale
;----------------------------
hiZoomWindowAtPoint(winId scale x:y)
printf("\nCmd: Zooming to Point %L %L with scale %L\n" x y scale)
;-------------------------------
; Create cross mark using ruler
;-------------------------------
qcBbox = list( list( (x - dy) (y - dy)) list( (x + dx) (y + dx)))
leCreateRuler( cvId list(x:y x+dx:y+dy))
leCreateRuler( cvId list(x:y x+dx:y-dy))
leCreateRuler( cvId list(x:y x-dx:y+dy))
leCreateRuler( cvId list(x:y x-dx:y-dy))
hiZoomIn(winId qcBbox)
  );let
 );proc
procedure( zoomGUI()
 let(()
 ;----------------
 ; Create form
 ;----------------
hiCreateAppForm(
?name 'zoomGui
?formTitle "Zoom and Mark"
?callback "zoomGuiCB(zoomGui->column->value)"
?fields list(
 list( hiCreateStringField(
 ?name 'column
 ?prompt "Go to:"
 ) 5:5 200:25 50)
 );
 ?buttonLayout 'OKCancel
 ?help ""
  );
hiDisplayForm(zoomGui)
 );let
 );proc
procedure( zoomGuiCB(input)
 let((dX dY (zscale 1))
 value = parseString(input " ")
 ;-----------------------
 ; Process form' value
 ;-----------------------
 if( length(value) == 2 then
 dX = atof(car(value))
 dY = atof(cadr(value))
 else
 if( length(value) == 3 then
dX = atof(car(value))
dY = atof(cadr(value))
zscale = atof(caddr(value))
 else
warn("Zoom to Pt => Invalid input! Input must be x y scale")
 );if
 );if
 ;--------------------------
 ; Calling function to zoom
 ;--------------------------
ZoomToPoint(dX dY ?scale zscale)
);let
);proc
hiSetBindKey("Layout" "Ctrl<Key>p" "zoomGUI()")

Satya..

Hi All!! I have modifide kbhow code to zoom and create x marker..please check it out!!

procedure( ZoomToPoint( x y @key
 (scale 1)
 (winId hiGetCurrentWindow())
 (cvId geGetEditCellView()))

let(( (dx 1) (dy 1) qcBbox)
;----------------------------
; Zoom to point with scale
;----------------------------
hiZoomWindowAtPoint(winId scale x:y)
printf("\nCmd: Zooming to Point %L %L with scale %L\n" x y scale)
;-------------------------------
; Create cross mark using ruler
;-------------------------------
qcBbox = list( list( (x - dy) (y - dy)) list( (x + dx) (y + dx)))
leCreateRuler( cvId list(x:y x+dx:y+dy))
leCreateRuler( cvId list(x:y x+dx:y-dy))
leCreateRuler( cvId list(x:y x-dx:y+dy))
leCreateRuler( cvId list(x:y x-dx:y-dy))
hiZoomIn(winId qcBbox)
  );let
 );proc
procedure( zoomGUI()
 let(()
 ;----------------
 ; Create form
 ;----------------
hiCreateAppForm(
?name 'zoomGui
?formTitle "Zoom and Mark"
?callback "zoomGuiCB(zoomGui->column->value)"
?fields list(
 list( hiCreateStringField(
 ?name 'column
 ?prompt "Go to:"
 ) 5:5 200:25 50)
 );
 ?buttonLayout 'OKCancel
 ?help ""
  );
hiDisplayForm(zoomGui)
 );let
 );proc
procedure( zoomGuiCB(input)
 let((dX dY (zscale 1))
 value = parseString(input " ")
 ;-----------------------
 ; Process form' value
 ;-----------------------
 if( length(value) == 2 then
 dX = atof(car(value))
 dY = atof(cadr(value))
 else
 if( length(value) == 3 then
dX = atof(car(value))
dY = atof(cadr(value))
zscale = atof(caddr(value))
 else
warn("Zoom to Pt => Invalid input! Input must be x y scale")
 );if
 );if
 ;--------------------------
 ; Calling function to zoom
 ;--------------------------
ZoomToPoint(dX dY ?scale zscale)
);let
);proc
hiSetBindKey("Layout" "Ctrl<Key>p" "zoomGUI()")

Satya..

Hi Satya,

I'm using your code,

But it showing an error while working on it i.e., too few arguments (at least 2expected , 1 given) - ((length ((value ==2)then (dx = atof(&)) (dy = atof(&))...))

Could you please suggest me  how to fix the error .

Regards,

Karthik P.

You appear to have mangled the code somehow when copying and pasting it, and have added spaces in some places and probably removed them elsewhere. I copied the code and loaded it, and it worked fine. The error suggests that you have a space after the length function name (in SKILL in C-style you must not have a space between the function name and the following open parenthesis.

Andrew.

Thank You , Andrew

Karthik P.

HI Satya/Andrew,

The Above code is only for the single coordinate with scaling factor like (2.0 5.0 2) .

I want improve the code like it should be take multiple coordinates at single time and mark the same multiple coordinates at a time.

could you please help me out in this.

Regards,

Karthik  P.

Karthik,

Given this code was written 9 years ago and I can't see other posts by Satya (at least not recently), I suspect you won't get an answer. Not sure I have the time to take the code, reformat it (to understand it - the indentation is missing) and update it, especially when it doesn't really make sense to have it zoom to multiple coordinates - after all, much of the point of the code was to zoom to the specified location - you can't zoom to multiple locations.

If you want to modify it yourself though, you could remove the zooming part (the hiZoom* functions in the code above) and then have a loop which did something like this (replacing part of the code above).

; Process form value
while(value
  if( length(value) == 2 then
    dX = atof(car(value))
    dY = atof(cadr(value))
    zscale = 1 ; NOTE DEFAULT HERE
  else
    if( length(value) >= 3 then  ; NOTE CONDITION CHANGED
      dX = atof(car(value))
      dY = atof(cadr(value))
      zscale = atof(caddr(value))
    else
      warn("Zoom to Pt => Invalid input! Input must be x y scale")
    );if
   );if
  ;--------------------------
  ; Calling function to zoom
  ;--------------------------
  ZoomToPoint(dX dY ?scale zscale)
  ; remove three values
  value=cdddr(value)
)

I've not tested the above - it's just a quick typed bit of code which probably would do what you want - and if not, probably gives you the basis of what you need.

Andrew.

Thank You, Andrew

Regards,

Karthik P.