#usage "Show object and zoom in

\n" "Implemented for parts and signals on a board. " "Could be extended for schematics.

" "Author: support@cadsoft.de" string h, cmd = "", sname = "", test=""; real x, y, zoom_win = 10; int part = 1, xmin, xmax, ymin, ymax, found = 0; if (board) board(B) { zoom_win = zoom_win/2; cmd = "grid mm finest;\n"; int Result = dlgDialog("Show and zoom in") { dlgLabel("&Enter Name"); dlgStringEdit(sname); dlgHBoxLayout { dlgPushButton("+OK") dlgAccept(); dlgPushButton("-Cancel") dlgReject(); } }; if (Result == 0) exit (0); B.elements(E) { if (strupr(sname)==strupr(E.name)) { int size_x,size_y; found = 1; x = u2mm(E.x); y = u2mm(E.y); size_x=u2mm(abs(E.package.area.x1-E.package.area.x2)); size_y=u2mm(abs(E.package.area.y1-E.package.area.y2)); if(size_x>size_y) zoom_win=size_x; if(size_x==size_y) zoom_win=size_x; if(size_xsize_y) zoom_win=size_x; if(size_x==size_y) zoom_win=size_x; if(size_x