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 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.

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.