Appendice A : Esempi Listati Part Program
Home Page
Pagina seguente
|
||
| Pagina precedente |
Home Page |
Pagina seguente |
Esempio listato completo Cilindro Cieco
$$[notaoperatore]
$$Montare su attrezzo 324 tenendo scarico a sinistra
$$Utilizzare palpatore 5
$$[finenota]
$$---------- Dichiarazioni Obbligatorie
DMISMN/'15Q0361A'
DISPLY/TERM,DMIS,STOR,DMIS
FILNAM/'15Q0361A.DMI'
MODE/PROG,MAN
D(ASSI_MACC)=DATSET/MCS
SAVE/D(ASSI_MACC)
UNITS/MM,ANGDEC
PRCOMP/OFF
$$---------- Parametri di funzionamento
SNSET/APPRCH,3
SNSET/RETRCT,5
SNSET/SEARCH,10
FEDRAT/MESVEL,MPM,0.200
FEDRAT/ROTVEL,RPM,12
FEDRAT/POSVEL,MPM,8
ACLRAT/POSACL,PCENT,0.75
ACLRAT/MESACL,PCENT,0.75
$$---------- Intestazione Breve
TEXT/OUTFIL,'ID-RAGIONESOCIALE (GILARDONI V. S.p.A.)'
TEXT/OUTFIL,'ID-REPARTOUFFICIO (C.Q. M2)'
TEXT/OUTFIL,'ID-NOME ()'
TEXT/OUTFIL,'ID-PROGRAMMA (15Q0361A)'
TEXT/OUTFIL,'ID-TIPODELPEZZO (STCA0361A)'
TEXT/OUTFIL,'ID-ATTREZZATURA (5CATR0050)'
R(INT0)=REPORT/DATE
R(INT1)=REPORT/TIME
OUTPUT/R(INT0)
OUTPUT/R(INT1)
$$---------- Definizione Palpatore
TH(CP)=THLDEF/S(PALP4_EP1),4
SNSLCT/S(PALP4_EP1)
PRCOMP/ON
$$---------- Definizione MACRO
INCLUDE (SERVER\MACRO\FC4U.MDM)
INCLUDE (SERVER\MACRO\PIAXRET4.MDM)
INCLUDE (SERVER\MACRO\PIAX4.MDM)
INCLUDE (SERVER\MACRO\FC030_3.MDM)
$$---------- Inizio programma di misura
RT(TAVOLA)=ROTDEF/0,0,0,0,0,1
ROTAB/RT(TAVOLA),ABSL,SHORT,ROTNUL,352.97
ROTSET/RT(TAVOLA),0
$$---------- Centro teorico cilindro
D(ORI_1)=TRANS/XORIG,-385.8,YORIG,-255.4,ZORIG,-250.4
GOTO/40,0,0
$$---------- Definizione Origine PCS1
$$[notaoperatore]
$$Blocco definizione origine PCS1 cilindri ciechi
$$Utilizzo macro presa punti a 30ø
$$[finenota]
$$---------- DICHIARAZIONE PARAMETRI BLOCCO
DECL/REAL,V(DCANNA)
DECL/REAL,V(USCITA)
DECL/REAL,V(BASEPC)
DECL/REAL,V(ALTEZZAPC)
DECL/REAL,V(PROFOND)
DECL/REAL,V(F5D)
DECL/REAL,V(F6D)
DECL/REAL,V(YF5)
DECL/REAL,V(YF6)
DECL/REAL,V(ZF5)
DECL/REAL,V(ZF6)
$$---------- ASSEGNAMENTO VALORI PARAMETRI
$$[valoriparametri]
V(DCANNA)=52
$$Diametro canna cilindro
V(USCITA)=40
$$Disimpegno dopo misura
$$V(PROFOND)=-1.5
$$Profondità di penetrazione nel foro per presa punti
V(BASEPC)=42
$$Valore base piano carter
V(ALTEZZAPC)=36
$$Valore altezza piano carter
V(F5D)=6
$$Diametro foro 5
V(YF5)=24
$$Coordinata Y foro 5
V(ZF5)=26
$$Coordinata Z foro 5
V(F6D)=6
$$Diametro foro 6
V(YF6)=-24
$$Coordinata Y foro 6
V(ZF6)=26
$$Coordinata Z foro 6
$$[fineparametri]
$$---------- COMPONENTE FUNZIONALE
GOTO/100,0,0
GOTO/40,0,0
F(CENTRO)=FEAT/CIRCLE,INNER,CART,0,0,0,1,0,0,V(DCANNA)
CALL/M(FC030_3),(CENTRO),0,0,0,V(DCANNA),0,V(USCITA)
$$TRASLO L'ORIGINE AL CENTRO DELLA CANNA REALE
D(ORI_1)=TRANS/YORIG,FA(CENTRO),ZORIG,FA(CENTRO)
F(PIANO_1)=FEAT/PLANE,CART,0,0,0,1,0,0
CALL/M(PIAX4),(PIANO_1),0,0,0,V(BASEPC),V(ALTEZZAPC),V(USCITA)
DATDEF/FA(PIANO_1),DAT(A)
D(LEVEL_1)=DATSET/DAT(A),XDIR,XORIG
SNSET/APPRCH,0.5
SNSET/RETRCT,0.5
WKPLAN/YZPLAN
$$---------- Calcolo retta asse Y
F(FORO_5)=FEAT/CIRCLE,INNER,CART,0,V(YF5),V(ZF5),1,0,0,V(DF5)
CALL/M(FC4U),(FORO_5),0,0,V(YF5),V(ZF5),V(PROFOND),V(USCITA)
F(FORO_6)=FEAT/CIRCLE,INNER,CART,0,V(YF6),V(ZF6),1,0,0,V(DF6)
CALL/M(FC4U),(FORO_6),0,0,V(YF6),V(ZF6),V(PROFOND),V(USCITA)
F(RETTA_7)=FEAT/LINE,UNBND,CART,-3,0,0,0,1,0,1,0,0
CONST/LINE,F(RETTA_7),BF,FA(FORO_6),FA(FORO_5)
SAVE/FA(RETTA_7)
DATDEF/FA(RETTA_7),DAT(D)
D(ALIGN_2)=ROTATE/XAXIS,FA(RETTA_7),YDIR
SNSET/APPRCH,2
SNSET/RETRCT,2
F(FORO_2)=FEAT/CIRCLE,INNER,CART,0,0,0,1,0,0,V(DCANNA)
CALL/M(FC030_3),(FORO_2),0,0,0,V(DCANNA),0,V(USCITA)
F(PUNTO_4)=FEAT/POINT,CART,0,0,0,1,0,0
CONST/POINT,F(PUNTO_4),PROJPT,FA(FORO_2),FA(PIANO_1)
SAVE/FA(PUNTO_4)
D(PCS1)=TRANS/YORIG,FA(PUNTO_4),ZORIG,FA(PUNTO_4)
SAVE/D(PCS1)
$$---------- Misurazione Zona Scarico
D(ORI_8)=TRANS/XORIG,-32,YORIG,-50
ROTAB/RT(TAVOLA),ABSL,CCW,ROTTOT,90
D(ORI_9)=ROTATE/ZAXIS,-90
GOTO/30,0,0
SNSET/APPRCH,2.5
SNSET/RETRCT,5
$$---------- Utilizzo sottoprogramma famiglia 361
INCLUDE/(C:\DMIS\SPROG\MISCA361.SDM)
$$---------- Valutazioni Zona Scarico
$$---------- Utilizzo sottoprogramma famiglia 361
INCLUDE/(C:\DMIS\SPROG\vaSCA361.SDM)
$$---------- Misurazione Zona Testa
ROTAB/RT(TAVOLA),ABSL,CCW,ROTTOT,180
D(ORI15)=TRANS/XORIG,-92.5,YORIG,-19
GOTO/-40,0,0
F(PUNTO_54)=FEAT/POINT,CART,0,0,0,-1,0,0
MEAS/POINT,F(PUNTO_54),1
PTMEAS/CART,0,0,0,-1,0,0
GOTO/-50,0,0
ENDMES
SAVE/FA(PUNTO_54)
D(ORI_16)=TRANS/XORIG,16.6,YORIG,20,ZORIG,-19.3
D(ORI_17)=ROTATE/ZAXIS,-180
D(ORI_18)=ROTATE/YAXIS,48
GOTO/40,0,7
$$---------- Sottoprogramma misura Zona Deko
INCLUDE/(C:\DMIS\SPROG\DEKO.SDM)
$$---------- Valutazioni Zona Testa e Zona Deko
RECALL/D(PCS1)
TEXT/OUTFIL,';VALUTAZIONI MATEROZZA'
T(DIST_11)=TOL/DISTB,NOMINL,92.5,-0.3,0.3,XAXIS,AVG
OUTPUT/F(PIANO_1),F(PUNTO_54),T(DIST_11)
OUTPUT/FA(PIANO_1),FA(PUNTO_54),TA(DIST_11)
TEXT/OUTFIL,';VALUTAZIONI DECOMPRESSORE'
T(TOL_12)=TOL/ANGLB,48,-0.5,0.5
OUTPUT/F(PIANO_52),F(PIANO_1),T(TOL_12)
OUTPUT/FA(PIANO_52),FA(PIANO_1),TA(TOL_12)
T(DIST_13)=TOL/DISTB,NOMINL,19.3,-0.2,0.2,ZAXIS,AVG
OUTPUT/F(PUNTO_53),F(PUNTO_4),T(DIST_13)
OUTPUT/FA(PUNTO_53),FA(PUNTO_4),TA(DIST_13)
T(DIST_14)=TOL/DISTB,NOMINL,75.9,-0.20,0.20,XAXIS,AVG
OUTPUT/F(PUNTO_53),F(PIANO_1),T(DIST_14)
OUTPUT/FA(PUNTO_53),FA(PIANO_1),TA(DIST_14)
T(DIST_15)=TOL/DISTB,NOMINL,1,-0.2,0.2,YAXIS,AVG
OUTPUT/F(PUNTO_53),F(PUNTO_4),T(DIST_15)
OUTPUT/FA(PUNTO_53),FA(PUNTO_4),TA(DIST_15)
$$---------- Misurazione Zona Candela
SNSET/APPRCH,2
SNSET/RETRCT,3
D(ORI_20)=TRANS/XORIG,-82.01,YORIG,4.1
ROTAB/RT(TAVOLA),ABSL,CCW,ROTTOT,190
D(ORI_21)=ROTATE/ZAXIS,-190
GOTO/30,9.5,0
INCLUDE/(C:\DMIS\SPROG\CANDELA.SDM)
$$---------- Valutazioni Zona Candela
TEXT/OUTFIL,';VALUTAZIONI LATO CANDELA'
RECALL/D(PCS1)
T(TOL_16)=TOL/ANGLB,10,-0.5,0.5
OUTPUT/F(PIANO_50),F(PIANO_1),T(TOL_16)
OUTPUT/FA(PIANO_50),FA(PIANO_1),TA(TOL_16)
T(DIST_17)=TOL/DISTB,NOMINL,4.10,-0.2,0.2,YAXIS,AVG
OUTPUT/F(PUNTO_51),F(PUNTO_4),T(DIST_17)
OUTPUT/FA(PUNTO_51),FA(PUNTO_4),TA(DIST_17)
T(DIST_18)=TOL/DISTB,NOMINL,82.01,-0.30,0.30,XAXIS,AVG
OUTPUT/F(PUNTO_51),F(PIANO_1),T(DIST_18)
OUTPUT/FA(PUNTO_51),FA(PIANO_1),TA(DIST_18)
T(DIST_19)=TOL/CORTOL,ZAXIS,-0.2,0.2
OUTPUT/F(PUNTO_51),T(DIST_19)
OUTPUT/FA(PUNTO_51),TA(DIST_19)
$$---------- Misurazione Zona Aspirazione
D(ORI_23)=TRANS/XORIG,-17,YORIG,44.2
ROTAB/RT(TAVOLA),ABSL,CCW,ROTTOT,270
D(ORI_24)=ROTATE/ZAXIS,90
$$---------- Utilizzo sottoprogramma famiglia 361
INCLUDE/(C:\DMIS\SPROG\MIASP361.SDM)
$$---------- Valutazioni Zona Aspirazione
$$---------- Utilizzo sottoprogramma valutazioni famiglia 361
INCLUDE/(C:\DMIS\SPROG\VAASP361.SDM
ROTAB/RT(TAVOLA),ABSL,CW,ROTNUL,90
ENDFIL
 |
|
|
WebMaster : Ing. Rusconi Sergio E-mail : serusco@tin.it Home Page : space.tin.it/scienza/srusco | |
Pagine ottimizzate per Explorer 5 con
risoluzione video 1024 x 768
|