Tried to pack a Cross measurement with Variables just into a Subroutine Block ... But a Goto and If Goto ... doesnt work ... Subprogram also doesnt work with the VARs in the Measurments ...\
Any Hints ?????
CLOSE/DID(FPTR),BEIBEHALTEN
CLOSE/DID(FPTR2),BEIBEHALTEN
(ENDE)
$$Einsprung fuer Kreuz
(KREUZ)
F(F1)=FEAT/POINT,CART,XPOS,YPOS,NULL,0,0,1
DMESW/COMAND,'LIN1=FEAT/LINE,BND,CART,XPOS-(HL/2),YPOS+(HB/2),FOCUS,$
XPOS+(HL/2),YPOS+(HB/2),-0.06925,HL,$
ELEMENTPARAMETER EINBLENDEN=NEIN,$
OPTIKPARAMETER_ANZEIGEN=JA,$
MESSPUNKTZIEL=EA1,0,1,HOCH,SCANHORTOL,$
FILTER=JA,11,JA,0,1.85,$
KANTE=FESTGELEGTE KANTE,7,[|]->[ ],<--,1,-1,-1,-1,NEIN,$
Oberes Licht=AUS,46,AUS,Unteres Licht=AUS,93,EIN,Ringlicht=AUS,82,AUS,$
FOKUS=NEIN'
DMESW/COMAND,'LIN2=FEAT/LINE,BND,CART,XPOS-(HL/2),YPOS-(HB/2),0.23116,$
XPOS+(HL/2),YPOS-(HB/2),0.23116,HL,$
ELEMENTPARAMETER EINBLENDEN=NEIN,$
OPTIKPARAMETER_ANZEIGEN=JA,$
MESSPUNKTZIEL=EA1,0,1,NORMAL,SCANHORTOL,$
FILTER=JA,11,JA,0,1.85,$
KANTE=FESTGELEGTE KANTE,16,[|]->[ ],-->,1,-1,-1,-1,NEIN,$
Oberes Licht=AUS,46,AUS,Unteres Licht=AUS,93,EIN,Ringlicht=AUS,82,AUS,$
FOKUS=NEIN'
DMESW/COMAND,'LIN7=FEAT/LINE,BND,CART,XPOS-(VB/2),YPOS-(VL/2),FOCUS,$
XPOS-(VB/2),YPOS+(VL/2),FOCUS,VL,$
ELEMENTPARAMETER EINBLENDEN=NEIN,$
OPTIKPARAMETER_ANZEIGEN=JA,$
MESSPUNKTZIEL=EA1,0,1,NORMAL,SCANVERTOL,$
FILTER=JA,11,JA,0,1.85,$
KANTE=FESTGELEGTE KANTE,13,[|]->[ ],<--,1,-1,-1,-1,NEIN,$
Oberes Licht=AUS,46,AUS,Unteres Licht=AUS,93,EIN,Ringlicht=AUS,82,AUS,$
FOKUS=NEIN'
DMESW/COMAND,'LIN8=FEAT/LINE,BND,CART,XPOS-(VB/2),YPOS-(VL/2),FOCUS,$
XPOS+(VB/2),YPOS+(VL/2),FOCUS,VL,$
ELEMENTPARAMETER EINBLENDEN=NEIN,$
OPTIKPARAMETER_ANZEIGEN=JA,$
MESSPUNKTZIEL=EA1,0,1,NORMAL,SCANVERTOL,$
FILTER=JA,11,JA,0,1.85,$
KANTE=FESTGELEGTE KANTE,13,[|]->[ ],-->,1,-1,-1,-1,NEIN,$
Oberes Licht=AUS,46,AUS,Unteres Licht=AUS,93,EIN,Ringlicht=AUS,82,AUS,$
FOKUS=NEIN'
F(LIN39)=FEAT/LINE,UNBND,CART,0,0.25,0.28792,1,0,0,0,0,1
CONST/LINE,F(LIN39),MIDLI,FA(LIN1),FA(LIN2)
F(LIN40)=FEAT/LINE,UNBND,CART,-91.426,84.329,-0.06925,0.1350594,0.9908375,0,$
0,0,1
CONST/LINE,F(LIN40),MIDLI,FA(LIN7),FA(LIN8)
RECALL/DA(WST_KS)
F(SP_1)=FEAT/POINT,CART,0.03669,0.25,0.30121,1,0,0
CONST/POINT,F(SP_1),INTOF,FA(LIN39),FA(LIN40)
IF/(EXIT .EQ. 0)
JUMPTO/(MAIN)
ENDIF
