Gráfico de control como script en el cuadro de botones<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />Hola, estoy usando JMP 9.0.3
Estoy tratando de escribir un script para hacer macro para generar gráficos de control y guardarlos en el archivo.
Encontré este error y no tengo idea de cómo resolverlo, busqué un par de horas para encontrar una solución y nada parece funcionar.
el código es:
Globos claros ();
jrn = NewWindow ("SPC Analysis" || Format (today (), "aaaa-mm-dd"), VListBox (
cuadro de botones ("Elegir archivo de datos JMP", tabla de datos = abrir (Seleccionar archivo (), invisible);)
cuadro global (tabla de datos),
cuadro de botones ("Elegir archivo JMP de especificación", Tabla de especificaciones = abrir (Seleccionar archivo (), privado);
para (i = 2, i <= Ncol (Spec_Table), i ++,
eval
eval expr (
column (Data_Table, i + 1) << Set Property ("Spec Limits", {LSL (expr (column (Spec_Table, i) [1]))
OBJETIVO (expr (columna (tabla de especificaciones, i) [2])),
USL (expr (columna (Spec_Table, i) [3]))})
)
)
)
)
cuadro global (Spec_Table),
cuadro de botón ("Ejecutar XBar Control Chart", cc =
Tabla de control (
Etiqueta de muestra (: columna (1)),
KSigma (3),
Gráfico Col (: columna (tabla de datos, 3), XBar, S)
)
)
)
);
cerrar todo (tablas de datos, no guardar);
el error está en la parte roja, si simplemente ejecuto la función de gráfico de control, funciona, si como se muestra dentro del cuadro de botones, no funciona.
Gracias.
Re: control gráfico como script en el cuadro de botónTiene un cuadro de diálogo no modal, lo que significa que todo se ejecuta, incluido el cierre al final. Yo agregaría un botón Cerrar a su cuadro de diálogo que ejecuta el cierre en lugar de cómo lo está haciendo.
Globos claros () ;
jrn = Nueva ventana ( "Análisis SPC" || Formato ( Hoy () , "aaaa-mm-dd" ) ,
Cuadro de lista V (
Caja de botones ( "Elegir archivo de datos JMP" ,
Tabla de datos = Abierto ( Seleccionar archivo () , invisible )
) ,
Caja global ( Tabla de datos ) ,
Caja de botones ( "Elegir archivo JMP de especificación" ,
Spec_Table = Abierto ( Seleccionar archivo () , privado ) ;
por ( yo = 2 , yo <= N Col ( Spec_Table ) , yo ++,
Evaluar ( Eval Expr (
Columna ( Tabla de datos , yo + 1 ) << Establecer propiedad ( "Límites de especificaciones" ,
{ LSL ( Expr ( Columna ( Spec_Table , yo ) [ 1 ] ) ) ,
OBJETIVO ( Expr ( Columna ( Spec_Table , yo ) [ 2 ] ) ) ,
USL ( Expr ( Columna ( Spec_Table , yo ) [ 3 ] ) )}
)
)
)
) ;
) ,
Caja global ( Spec_Table ) ,
Caja de botones ( "Ejecutar XBar Control Chart" ,
cc = Tabla de control (
Etiqueta de muestra ( : columna ( 1 ) ) ,
KSigma ( 3 ) ,
Tabla col ( : columna ( Tabla de datos , 3 ) , XBar , S )
)
)
caja de botones ( "Cerrar" , Cierra todo ( Tablas de datos , no guardar ) ;
jrn << Cerrar ventana ;
)
)
) ;
