#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