Anyone develop one? I've started one, and the demon is giving me a hard time. Does anyone have one they are willing to share?

ASSIGN/V1=QUALTOOLDATA("xyz","my_sphere") ASSIGN/D_1=QUALTOOLDATA("diam","my_sphere") ASSIGN/R_1=D_1/2 ASSIGN/D_2=D_1*(SQRT(2))/2 ASSIGN/H_2=D_1/4 F1 =GENERIC/SPHERE,DEPENDENT,CARTESIEN,$ NOM/XYZ,<V1.X,V1.Y,V1.Z>,$ MEAS/XYZ,<V1.X,V1.Y,V1.Z>,$ NOM/IJK,<0,0,1>,$ MEAS/IJK,<0,0,1> RADIUS,R_1,R_1 REF1 =ALIGNMENT/START,RECALL:STARTUP,LISTE=YES ALIGNMENT/TRANS,AXEX,F1 ALIGNMENT/TRANS,AXEY,F1 ALIGNMENT/TRANS,AXEZ,F1 ALIGNMENT/END MODE/CND PLAN SECU/ZPLUS,50,ZPLUS,0,ON MOVE/CLEARPLANE SCN1 =BASIC SCAN/CERCLE,NUMBER HITS=149,DISPLAY HITS=NO,DISPLAY PARAMETERS=YES <0,0,0>,VecCoupe=0,0,1,EXT Vecinit=1,0,0,DIAM=D_1,ANG=0,ANG=360,DEPTH=0,THICK NESS=0,EEC=NO,COMP PALPEUR=YES,AVOIDING MOVE=NO,DISTANCE=0 FILTER/NULLFILTER, MODE EXE =ELEMENT,USEHSSDAT=YES,USEDELAYPNTS=NO BOUNDARY/ TYPE PALPAGE/VECTOR MODE NOMINAL=MASTER SCAN END MOVE/CLEARPLANE SCN2 =BASIC SCAN/CIRCLE,NUMBER HITS=71,DISPLAY HITS=NO,DISPLAY PARAMETERS=YES <0,0,H_2>,VecCoupe=0,0,1,EXT Vecinit=1,0,0,DIAM=D_2,ANG=0,ANG=360,DEPTH=0,THICK NESS=0,EEC=NO,COMP PALPEUR=YES,AVOIDING MOVE=NO,DISTANCE=0 FILTER/NULLFILTER, MODE EXE =ELEMENT,USEHSSDAT=YES,USEDELAYPNTS=NO BOUNDARY/ TYPE PALPAGE/VECTOR MODE NOMINAL=MASTER SCAN END MOVE/CLEARPLANE SCN3 =BASIC SCAN/CIRCLE,NUMBER HITS=74,DISPLAY HITS=NO,DISPLAY PARAMETERS=YES <0,0,0>,VecCoupe=1,0,0,EXT Vecinit=0,1,0,DIAM=D_1,ANG=0,ANG=180,DEPTH=0,THICK NESS=0,EEC=NO,COMP PALPEUR=YES,AVOIDING MOVE=NO,DISTANCE=0 FILTER/NULLFILTER, MODE EXE =ELEMENT,USEHSSDAT=YES,USEDELAYPNTS=NO BOUNDARY/ TYPE PALPAGE/VECTOR MODE NOMINAL=MASTER SCAN END MOVE/CLEARPLANE SCN4 =BASIC SCAN/CIRCLE,NUMBER HITS=67,DISPLAY HITS=NO,DISPLAY PARAMETERS=YES <H_2,0,0>,VecCoupe=1,0,0,EXT Vecinit=0,1,0,DIAM=D_2,ANG=0,ANG=180,DEPTH=0,THICK NESS=0,EEC=NO,COMP PALPEUR=YES,AVOIDING MOVE=NO,DISTANCE=0 FILTER/NULLFILTER, MODE EXE =ELEMENT,USEHSSDAT=YES,USEDELAYPNTS=NO BOUNDARY/ TYPE PALPAGE/VECTOR MODE NOMINAL=MASTER SCAN END MOVE/CLEARPLANE SPH2 =ELEM/SPHÈRE,CARTESIEN,EXT,MOINDRES CARRES,NO THEO/<0,0,0>,<0,0,1>,D_1 REEL/<0.0006,-0.001,0>,<0,0,1>,19.9968 CONSTR/SPHÈRE,CORE,SCN1,SCN2,SCN3,SCN4,, DIM LOC 1= EMPLACEMENT DE SPHÈRE SPH2 UNITES=MM ,$ GRAPHIQUE=OFF TEXTE=OFF MULT=1000.00 SORTIE=LES DEUX DEMI-ANGLE=NO AX VAL. NOM. +TOL -TOL MESU DEV HORS TOL X 0.0000 0.0100 0.0100 0.0006 0.0006 0.0000 --#- Y 0.0000 0.0100 0.0100 -0.0010 -0.0010 0.0000 -#-- Z 0.0000 0.0100 0.0100 0.0000 0.0000 0.0000 --#- D D_1 0.0100 0.0100 19.9968 -0.0033 0.0000 -#-- RN 0.0000 0.0100 0.0000 0.0075 0.0075 0.0000 ---# FIN DE DIMENSION LOC 1
Comment