m looking to create something similar to #region and #endregion using
treeviews
the problem is that instead of #region, i am using ;fold and ;endfold
i am also allowed ot have a fold within a fold and that is where i am stuck.
Private Sub rtb_TextChanged (ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles rtb.TextChanged
If donechanging = False Then
Dim i, a As Integer
Dim newname As String
tv.Nodes.Clear( )
tv.BeginUpdate( )
Dim nodeinfo() As String
Dim nodename As String
Dim temp() As String
For i = 0 To rtb.Lines.Lengt h - 1
If InStr(UCase(rtb .Lines(i)), ";FOLD") Then
Dim tvnode As New TreeNode
temp = Split(UCase(rtb .Lines(i)), ";FOLD")
temp(1) = Trim(temp(1))
If temp(1).Trim.Su bstring(0, 1) = ";" Then
temp = Split(temp(1).T rim, ";")
nodename = temp(1)
tvnode = Me.tv.Nodes.Add (temp(1))
tvnode.Nodes.Ad d(rtb.Lines(i))
Else
nodename = temp(1)
temp = Split(temp(1), ";") ' added for moves
tvnode = Me.tv.Nodes.Add (temp(0)) ' was a 1, now a 0
for movement
tvnode.Nodes.Ad d(rtb.Lines(i))
End If
While (i <= rtb.Lines.Lengt h - 1) And
(InStr(UCase(rt b.Lines(i)), ";ENDFOLD") = False)
If InStr(UCase(rtb .Lines(i)), ";ENDFOLD") = False Then
i = i + 1
End If
' need to find fold within fold
If InStr(UCase(rtb .Lines(i + 1)), ";FOLD") Then
tvnode.Nodes.Ad d(rtb.Lines(i))
While (i <= rtb.Lines.Lengt h - 1) And
(InStr(UCase(rt b.Lines(i)), ";ENDFOLD") = False)
If InStr(UCase(rtb .Lines(i)), ";ENDFOLD") =
False Then
i = i + 1
End If
If InStr(UCase(rtb .Lines(i)), ";FOLD") Then
temp = Split(UCase(rtb .Lines(i)), ";FOLD")
temp(1) = Trim(temp(1))
If temp(1).Trim.Su bstring(0, 1) = ";" Then
temp = Split(temp(1).T rim, ";")
nodename = temp(1)
tvnode = tvnode.Nodes.Ad d(temp(1)) '
was a 1, now a 0 for movement
Else
nodename = temp(1)
temp = Split(temp(1), ";") ' added
for moves
tvnode = tvnode.Nodes.Ad d(temp(0)) '
was a 1, now a 0 for movement
tvnode.Nodes.Ad d(rtb.Lines(i))
End If
Else
If InStr(LCase(rtb .Lines(i)),
";endfold") = False Then
tvnode.Nodes.Ad d(rtb.Lines(i))
End If
End If
' need to find one more fold within fold
End While
End If
If InStr(LCase(rtb .Lines(i)), ";endfold") = False Then
tvnode.Nodes.Ad d(rtb.Lines(i))
End If
' is speed ptp?
End While
Else
If InStr(LCase(rtb .Lines(i)), ";endfold") Then
Else
tv.Nodes.Add(rt b.Lines(i))
myselectednode = tv.Nodes(tv.Nod es.Count - 1)
myselectednode. BeginEdit()
tv.Parent.ForeC olor = Color.Orange
myselectednode. EndEdit(False)
End If
End If
Next
tv.EndUpdate()
' rtb.Enabled = False
donechanging = True
this is a typical file that is to be used with it
&ACCESS RVO2
&REL 195
&COMMENT 30 Degrees
&PARAM TEMPLATE = C:\KRC\Roboter\ Template\NonPro cessVorgabe
&PARAM EDITMASK = *
DEF up4_30_hd_r06( )
;FOLD {H} HISTORY
;ENDFOLD (HISTORY)
;FOLD ->DECL
;System Fold - Do not modify
;FOLD HANDLING
;ENDFOLD
;ENDFOLD
;FOLD ->INI
;System Fold - Do not modify
;FOLD HANDLING
;ENDFOLD
;ENDFOLD
;# ============ START PATH : up4_30deg_hd_r0 6 =============
;FOLD ; ---left side--;%{PE}%R 5.2.22,%MKUKATP BASIS,%CCOMMENT ,%VNORMAL,%P
2:---left side--
;ENDFOLD
TOOL_DATA[1]={X 0.0,Y 87.9860001,Z 399.687988,A 0.0,B 0.0,C -27.0}:{X 3.0,Y
3.0,Z 0.0,A 0.0,B 23.0,C 0.0}
; clamp 3 should still be open
;FOLD PTP lo859_1 CONT Vel= 100 % PDAT3 Tool[1]:RRE_STEP_ROOL
Base[1]:HOOD;%{PE}%R 5.2.22,%MKUKATP BASIS,%CMOVE,%V PTP,%P 1:PTP, 2:lo859_1,
3:C_PTP, 5:100, 7:PDAT3
$BWDSTART = FALSE
PDAT_ACT=PPDAT3
FDAT_ACT=Flo859 _1
BAS(#PTP_PARAMS ,100)
PTP Xlo859_1 C_PTP
;ENDFOLD
;FOLD Segment.Set_Pat h_Segment_AtPos Number51;%{PE}% MKUKATPUSER
SET_PATH_SEG (0,51)
;ENDFOLD
;FOLD PTP lo859_2 CONT Vel= 50 % P_OLP3 Tool[1]:RRE_STEP_ROOL
Base[1]:HOOD;%{PE}%R 5.2.22,%MKUKATP BASIS,%CMOVE,%V PTP,%P 1:PTP, 2:lo859_2,
3:C_PTP, 5:50, 7:P_OLP3
$BWDSTART = FALSE
PDAT_ACT=PP_OLP 3
FDAT_ACT=Flo859 _2
BAS(#PTP_PARAMS ,50)
PTP Xlo859_2 C_PTP
;ENDFOLD
;FOLD PTP P1 Vel= 100 % PDAT1 Tool[1]:RRE_STEP_ROOL Base[1]:HOOD;%{PE}%R
5.2.22,%MKUKATP BASIS,%CMOVE,%V PTP,%P 1:PTP, 2:P1, 3:, 5:100, 7:PDAT1
$BWDSTART = FALSE
PDAT_ACT=PPDAT1
FDAT_ACT=FP1
BAS(#PTP_PARAMS ,100)
PTP XP1
;ENDFOLD
;FOLD ; Exit Zone2 with R07;%{PE}%R
5.2.22,%MKUKATP BASIS,%CCOMMENT ,%VNORMAL,%P 2:Exit Zone2 with R07
;ENDFOLD
;FOLD Interfer.ExitZo ne Zone 1;%{PE}%MKUKATP USER
SHELL_FC (1,1)
;ENDFOLD
;FOLD PTP p1 Vel= 100 % PDAT2 Tool[1]:RRE_STEP_ROOL Base[1]:HOOD;%{PE}%R
5.2.22,%MKUKATP BASIS,%CMOVE,%V PTP,%P 1:PTP, 2:p1, 3:, 5:100, 7:PDAT2
$BWDSTART = FALSE
PDAT_ACT=PPDAT2
FDAT_ACT=Fp1
BAS(#PTP_PARAMS ,100)
PTP Xp1
;ENDFOLD
;FOLD Segment.Request _Continue_AtPos ;%{PE}%MKUKATPU SER
REQ_TO_CONT (TRUE )
;ENDFOLD
;FOLD ; Enter Zone2 with R07;%{PE}%R
5.2.22,%MKUKATP BASIS,%CCOMMENT ,%VNORMAL,%P 2:Enter Zone2 with R07
;ENDFOLD
;FOLD Interfer.EnterZ one Zone 1;%{PE}%MKUKATP USER
SHELL_FC (1,0)
;ENDFOLD
;FOLD SYN OUT 128 'hold r7' State= FALSE at START Delay= 0 ms;%{PE}%R
5.2.22,%MKUKATP BASIS,%COUT,%VS YNOUT,%P 2:128, 3:hold r7, 5:FALSE, 7:0, 9:0,
12:0
TRIGGER WHEN DISTANCE=0 DELAY=0 DO $OUT[128]=FALSE
;ENDFOLD
;FOLD PTP p2 CONT Vel= 50 % PDAT4 Tool[1]:RRE_STEP_ROOL Base[1]:HOOD;%{PE}%R
5.2.22,%MKUKATP BASIS,%CMOVE,%V PTP,%P 1:PTP, 2:p2, 3:C_PTP, 5:50, 7:PDAT4
$BWDSTART = FALSE
PDAT_ACT=PPDAT4
FDAT_ACT=Fp2
BAS(#PTP_PARAMS ,50)
PTP Xp2 C_PTP
;ENDFOLD
TOOL_DATA[1]={X 0.0,Y 87.9860001,Z 399.687988,A 0.0,B 0.0,C -27.0}:{X 15.0,Y
7.0,Z -3.0,A 0.0,B 23.0,C 0.0}
;FOLD LIN lo859 Vel= 0.5 m/s L_OLP1 Tool[1]:RRE_STEP_ROOL
Base[1]:HOOD;%{PE}%R 5.2.22,%MKUKATP BASIS,%CMOVE,%V LIN,%P 1:LIN, 2:lo859, 3:,
5:0.5, 7:L_OLP1
$BWDSTART = FALSE
LDAT_ACT=LL_OLP 1
FDAT_ACT=Flo859
BAS(#CP_PARAMS, 0.5)
LIN Xlo859
;ENDFOLD
;FOLD LIN lo858 CONT Vel=0.50 m/s L_OLP2 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo858, 3:C_DIS, 5:0.50,
7:L_OLP2
$BWDSTART = FALSE
LDAT_ACT= LL_OLP2
BAS(#CP_DAT)
FDAT_ACT= Flo858
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo858 C_DIS
;ENDFOLD
;FOLD LIN lo857 CONT Vel=0.50 m/s L_OLP3 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo857, 3:C_DIS, 5:0.50,
7:L_OLP3
$BWDSTART = FALSE
LDAT_ACT= LL_OLP3
BAS(#CP_DAT)
FDAT_ACT= Flo857
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo857 C_DIS
;ENDFOLD
;FOLD LIN lo856 CONT Vel=0.50 m/s L_OLP4 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo856, 3:C_DIS, 5:0.50,
7:L_OLP4
$BWDSTART = FALSE
LDAT_ACT= LL_OLP4
BAS(#CP_DAT)
FDAT_ACT= Flo856
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo856 C_DIS
;ENDFOLD
;FOLD ; open clamp 4;%{PE}%R 5.2.22,%MKUKATP BASIS,%CCOMMENT ,%VNORMAL,%P
2:open clamp 4
;ENDFOLD
;FOLD SYN OUT 126 'Repo 6' State= TRUE at START Delay= 0 ms;%{PE}%R
5.2.22,%MKUKATP BASIS,%COUT,%VS YNOUT,%P 2:126, 3:Repo 6, 5:TRUE, 7:0, 9:0, 12:0
TRIGGER WHEN DISTANCE=0 DELAY=0 DO $OUT[126]=TRUE
;ENDFOLD
;FOLD ; open clamp 5;%{PE}%R 5.2.22,%MKUKATP BASIS,%CCOMMENT ,%VNORMAL,%P
2:open clamp 5
;ENDFOLD
;FOLD SYN OUT 125 'Repo 5' State= TRUE at START Delay= 0 ms;%{PE}%R
5.2.22,%MKUKATP BASIS,%COUT,%VS YNOUT,%P 2:125, 3:Repo 5, 5:TRUE, 7:0, 9:0, 12:0
TRIGGER WHEN DISTANCE=0 DELAY=0 DO $OUT[125]=TRUE
;ENDFOLD
;FOLD LIN lo855 CONT Vel=0.50 m/s L_OLP5 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo855, 3:C_DIS, 5:0.50,
7:L_OLP5
$BWDSTART = FALSE
LDAT_ACT= LL_OLP5
BAS(#CP_DAT)
FDAT_ACT= Flo855
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo855 C_DIS
;ENDFOLD
;FOLD ; close clamp 3;%{PE}%R 5.2.22,%MKUKATP BASIS,%CCOMMENT ,%VNORMAL,%P
2:close clamp 3
;ENDFOLD
;FOLD SYN OUT 127 'Repo 7' State= FALSE at START Delay= 0 ms;%{PE}%R
5.2.22,%MKUKATP BASIS,%COUT,%VS YNOUT,%P 2:127, 3:Repo 7, 5:FALSE, 7:0, 9:0,
12:0
TRIGGER WHEN DISTANCE=0 DELAY=0 DO $OUT[127]=FALSE
;ENDFOLD
;FOLD LIN lo854 CONT Vel=0.50 m/s L_OLP6 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo854, 3:C_DIS, 5:0.50,
7:L_OLP6
$BWDSTART = FALSE
LDAT_ACT= LL_OLP6
BAS(#CP_DAT)
FDAT_ACT= Flo854
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo854 C_DIS
;ENDFOLD
;FOLD ; check centre pins open;%{PE}%R
5.2.22,%MKUKATP BASIS,%CCOMMENT ,%VNORMAL,%P 2:check centre pins open
;ENDFOLD
;FOLD WAIT FOR ( IN 122 'Repo 2' ) CONT;%{PE}%R
5.2.22,%MKUKATP BASIS,%CEXT_WAI T_FOR,%VEXT_WAI T_FOR,%P 2:, 4:, 5:$IN, 6:122,
7:Repo 2, 9:CONTINUE
CONTINUE
WAIT FOR ( $IN[122] )
;ENDFOLD
;FOLD Interfer.ExitZo ne Zone1;%{PE}%MKU KATPUSER
SHELL_FC (1,1)
;ENDFOLD
;FOLD LIN lo853 CONT Vel=0.50 m/s L_OLP7 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo853, 3:C_DIS, 5:0.50,
7:L_OLP7
$BWDSTART = FALSE
LDAT_ACT= LL_OLP7
BAS(#CP_DAT)
FDAT_ACT= Flo853
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo853 C_DIS
;ENDFOLD
;FOLD LIN lo852 CONT Vel=0.50 m/s L_OLP8 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo852, 3:C_DIS, 5:0.50,
7:L_OLP8
$BWDSTART = FALSE
LDAT_ACT= LL_OLP8
BAS(#CP_DAT)
FDAT_ACT= Flo852
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo852 C_DIS
;ENDFOLD
;FOLD LIN lo851 CONT Vel=0.50 m/s L_OLP9 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo851, 3:C_DIS, 5:0.50,
7:L_OLP9
$BWDSTART = FALSE
LDAT_ACT= LL_OLP9
BAS(#CP_DAT)
FDAT_ACT= Flo851
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo851 C_DIS
;ENDFOLD
;FOLD LIN lo850 CONT Vel=0.50 m/s L_OLP10 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo850, 3:C_DIS, 5:0.50,
7:L_OLP10
$BWDSTART = FALSE
LDAT_ACT= LL_OLP10
BAS(#CP_DAT)
FDAT_ACT= Flo850
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo850 C_DIS
;ENDFOLD
;FOLD ; check clamp 4 open;%{PE}%R
5.2.22,%MKUKATP BASIS,%CCOMMENT ,%VNORMAL,%P 2:check clamp 4 open
;ENDFOLD
;FOLD WAIT FOR ( IN 126 'Repo 6' ) CONT;%{PE}%R
5.2.22,%MKUKATP BASIS,%CEXT_WAI T_FOR,%VEXT_WAI T_FOR,%P 2:, 4:, 5:$IN, 6:126,
7:Repo 6, 9:CONTINUE
CONTINUE
WAIT FOR ( $IN[126] )
;ENDFOLD
;FOLD LIN lo849 CONT Vel=0.50 m/s L_OLP11 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo849, 3:C_DIS, 5:0.50,
7:L_OLP11
$BWDSTART = FALSE
LDAT_ACT= LL_OLP11
BAS(#CP_DAT)
FDAT_ACT= Flo849
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo849 C_DIS
;ENDFOLD
;FOLD LIN lo848 CONT Vel=0.50 m/s L_OLP12 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo848, 3:C_DIS, 5:0.50,
7:L_OLP12
$BWDSTART = FALSE
LDAT_ACT= LL_OLP12
BAS(#CP_DAT)
FDAT_ACT= Flo848
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo848 C_DIS
;ENDFOLD
;FOLD LIN lo847 CONT Vel=0.50 m/s L_OLP13 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo847, 3:C_DIS, 5:0.50,
7:L_OLP13
$BWDSTART = FALSE
LDAT_ACT= LL_OLP13
BAS(#CP_DAT)
FDAT_ACT= Flo847
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo847 C_DIS
;ENDFOLD
;FOLD LIN lo846 CONT Vel=0.50 m/s L_OLP14 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo846, 3:C_DIS, 5:0.50,
7:L_OLP14
$BWDSTART = FALSE
LDAT_ACT= LL_OLP14
BAS(#CP_DAT)
FDAT_ACT= Flo846
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo846 C_DIS
;ENDFOLD
;wait for clamp 5 open
;FOLD WAIT FOR ( IN 125 'Repo 5' ) CONT;%{PE}%R
5.2.22,%MKUKATP BASIS,%CEXT_WAI T_FOR,%VEXT_WAI T_FOR,%P 2:, 4:, 5:$IN, 6:125,
7:Repo 5, 9:CONTINUE
CONTINUE
WAIT FOR ( $IN[125] )
;ENDFOLD
;FOLD ; --windshield area left;%{PE}%R
5.2.22,%MKUKATP BASIS,%CCOMMENT ,%VNORMAL,%P 2:--windshield area left
;ENDFOLD
TOOL_DATA[1]={X 0.0,Y 87.9860001,Z 399.687988,A 0.0,B 0.0,C -27.0}:{X 0.0,Y
3.0,Z 1.0,A 0.0,B 0.0,C 0.0}
;FOLD LIN lo845 CONT Vel=0.50 m/s L_OLP15 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo845, 3:C_DIS, 5:0.50,
7:L_OLP15
$BWDSTART = FALSE
LDAT_ACT= LL_OLP15
BAS(#CP_DAT)
FDAT_ACT= Flo845
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo845 C_DIS
;ENDFOLD
;FOLD LIN lo844 CONT Vel=0.50 m/s L_OLP16 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo844, 3:C_DIS, 5:0.50,
7:L_OLP16
$BWDSTART = FALSE
LDAT_ACT= LL_OLP16
BAS(#CP_DAT)
FDAT_ACT= Flo844
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo844 C_DIS
;ENDFOLD
;FOLD LIN lo843 CONT Vel=0.50 m/s L_OLP17 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo843, 3:C_DIS, 5:0.50,
7:L_OLP17
$BWDSTART = FALSE
LDAT_ACT= LL_OLP17
BAS(#CP_DAT)
FDAT_ACT= Flo843
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo843 C_DIS
;ENDFOLD
;FOLD ; testbracket matthias;%{PE}% R
5.2.22,%MKUKATP BASIS,%CCOMMENT ,%VNORMAL,%P 2:testbracket matthias
;ENDFOLD
TOOL_DATA[1]={X 0.0,Y 87.9860001,Z 399.687988,A 0.0,B 0.0,C -27.0}:{X 0.0,Y
3.0,Z 6.0,A 0.0,B 0.0,C 0.0}
;FOLD LIN lo842 CONT Vel=0.50 m/s L_OLP18 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo842, 3:C_DIS, 5:0.50,
7:L_OLP18
$BWDSTART = FALSE
LDAT_ACT= LL_OLP18
BAS(#CP_DAT)
FDAT_ACT= Flo842
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo842 C_DIS
;ENDFOLD
;FOLD LIN lo841 CONT Vel=0.50 m/s L_OLP19 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo841, 3:C_DIS, 5:0.50,
7:L_OLP19
$BWDSTART = FALSE
LDAT_ACT= LL_OLP19
BAS(#CP_DAT)
FDAT_ACT= Flo841
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo841 C_DIS
;ENDFOLD
;FOLD LIN lo840 CONT Vel=0.50 m/s L_OLP20 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo840, 3:C_DIS, 5:0.50,
7:L_OLP20
$BWDSTART = FALSE
LDAT_ACT= LL_OLP20
BAS(#CP_DAT)
FDAT_ACT= Flo840
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo840 C_DIS
;ENDFOLD
;FOLD LIN lo839 CONT Vel=0.50 m/s L_OLP21 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo839, 3:C_DIS, 5:0.50,
7:L_OLP21
$BWDSTART = FALSE
LDAT_ACT= LL_OLP21
BAS(#CP_DAT)
FDAT_ACT= Flo839
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo839 C_DIS
;ENDFOLD
;FOLD LIN lo838 CONT Vel=0.50 m/s L_OLP22 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo838, 3:C_DIS, 5:0.50,
7:L_OLP22
$BWDSTART = FALSE
LDAT_ACT= LL_OLP22
BAS(#CP_DAT)
FDAT_ACT= Flo838
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo838 C_DIS
;ENDFOLD
;FOLD LIN lo837 CONT Vel=0.50 m/s L_OLP23 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo837, 3:C_DIS, 5:0.50,
7:L_OLP23
$BWDSTART = FALSE
LDAT_ACT= LL_OLP23
BAS(#CP_DAT)
FDAT_ACT= Flo837
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo837 C_DIS
;ENDFOLD
;FOLD LIN lo836 CONT Vel=0.50 m/s L_OLP24 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo836, 3:C_DIS, 5:0.50,
7:L_OLP24
$BWDSTART = FALSE
LDAT_ACT= LL_OLP24
BAS(#CP_DAT)
FDAT_ACT= Flo836
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo836 C_DIS
;ENDFOLD
;close clamp 4
;FOLD SYN OUT 126 'Repo 6' State= FALSE at END Delay= 0 ms;%{PE}%R
5.2.22,%MKUKATP BASIS,%COUT,%VS YNOUT,%P 2:126, 3:Repo 6, 5:FALSE, 7:1, 9:0,
12:0
TRIGGER WHEN DISTANCE=1 DELAY=0 DO $OUT[126]=FALSE
;ENDFOLD
;FOLD LIN lo835 CONT Vel=0.50 m/s L_OLP25 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo835, 3:C_DIS, 5:0.50,
7:L_OLP25
$BWDSTART = FALSE
LDAT_ACT= LL_OLP25
BAS(#CP_DAT)
FDAT_ACT= Flo835
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo835 C_DIS
;ENDFOLD
;FOLD LIN lo834 CONT Vel=0.50 m/s L_OLP26 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo834, 3:C_DIS, 5:0.50,
7:L_OLP26
$BWDSTART = FALSE
LDAT_ACT= LL_OLP26
BAS(#CP_DAT)
FDAT_ACT= Flo834
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo834 C_DIS
;ENDFOLD
;FOLD LIN lo833 CONT Vel=0.50 m/s L_OLP27 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo833, 3:C_DIS, 5:0.50,
7:L_OLP27
$BWDSTART = FALSE
LDAT_ACT= LL_OLP27
BAS(#CP_DAT)
FDAT_ACT= Flo833
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo833 C_DIS
;ENDFOLD
;FOLD LIN lo832 CONT Vel=0.50 m/s L_OLP28 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo832, 3:C_DIS, 5:0.50,
7:L_OLP28
$BWDSTART = FALSE
LDAT_ACT= LL_OLP28
BAS(#CP_DAT)
FDAT_ACT= Flo832
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo832 C_DIS
;ENDFOLD
;FOLD LIN lo831 CONT Vel=0.50 m/s L_OLP29 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo831, 3:C_DIS, 5:0.50,
7:L_OLP29
$BWDSTART = FALSE
LDAT_ACT= LL_OLP29
BAS(#CP_DAT)
FDAT_ACT= Flo831
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo831 C_DIS
;ENDFOLD
;FOLD LIN lo830 CONT Vel=0.50 m/s L_OLP30 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo830, 3:C_DIS, 5:0.50,
7:L_OLP30
$BWDSTART = FALSE
LDAT_ACT= LL_OLP30
BAS(#CP_DAT)
FDAT_ACT= Flo830
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo830 C_DIS
;ENDFOLD
;FOLD ; end testbracket matthias;%{PE}% R
5.2.22,%MKUKATP BASIS,%CCOMMENT ,%VNORMAL,%P 2:end testbracket matthias
;ENDFOLD
TOOL_DATA[1]={X 0.0,Y 87.9860001,Z 399.687988,A 0.0,B 0.0,C -27.0}:{X 0.0,Y
3.0,Z 1.0,A 0.0,B 0.0,C 0.0}
;FOLD LIN lo829 CONT Vel=0.50 m/s L_OLP31 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo829, 3:C_DIS, 5:0.50,
7:L_OLP31
$BWDSTART = FALSE
LDAT_ACT= LL_OLP31
BAS(#CP_DAT)
FDAT_ACT= Flo829
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo829 C_DIS
;ENDFOLD
;FOLD LIN lo828 CONT Vel=0.50 m/s L_OLP32 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo828, 3:C_DIS, 5:0.50,
7:L_OLP32
$BWDSTART = FALSE
LDAT_ACT= LL_OLP32
BAS(#CP_DAT)
FDAT_ACT= Flo828
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo828 C_DIS
;ENDFOLD
;FOLD LIN lo827 CONT Vel=0.50 m/s L_OLP33 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo827, 3:C_DIS, 5:0.50,
7:L_OLP33
$BWDSTART = FALSE
LDAT_ACT= LL_OLP33
BAS(#CP_DAT)
FDAT_ACT= Flo827
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo827 C_DIS
;ENDFOLD
;FOLD LIN lo826 CONT Vel=0.50 m/s L_OLP34 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo826, 3:C_DIS, 5:0.50,
7:L_OLP34
$BWDSTART = FALSE
LDAT_ACT= LL_OLP34
BAS(#CP_DAT)
FDAT_ACT= Flo826
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo826 C_DIS
;ENDFOLD
;FOLD LIN lo825 CONT Vel=0.50 m/s L_OLP35 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo825, 3:C_DIS, 5:0.50,
7:L_OLP35
$BWDSTART = FALSE
LDAT_ACT= LL_OLP35
BAS(#CP_DAT)
FDAT_ACT= Flo825
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo825 C_DIS
;ENDFOLD
;FOLD LIN lo824 CONT Vel=0.50 m/s L_OLP36 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo824, 3:C_DIS, 5:0.50,
7:L_OLP36
$BWDSTART = FALSE
LDAT_ACT= LL_OLP36
BAS(#CP_DAT)
FDAT_ACT= Flo824
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo824 C_DIS
;ENDFOLD
;FOLD LIN lo823 CONT Vel=0.50 m/s L_OLP37 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo823, 3:C_DIS, 5:0.50,
7:L_OLP37
$BWDSTART = FALSE
LDAT_ACT= LL_OLP37
BAS(#CP_DAT)
FDAT_ACT= Flo823
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo823 C_DIS
;ENDFOLD
;FOLD LIN lo822 CONT Vel=0.50 m/s L_OLP38 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo822, 3:C_DIS, 5:0.50,
7:L_OLP38
$BWDSTART = FALSE
LDAT_ACT= LL_OLP38
BAS(#CP_DAT)
FDAT_ACT= Flo822
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo822 C_DIS
;ENDFOLD
;FOLD LIN lo821 CONT Vel=0.50 m/s L_OLP39 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo821, 3:C_DIS, 5:0.50,
7:L_OLP39
$BWDSTART = FALSE
LDAT_ACT= LL_OLP39
BAS(#CP_DAT)
FDAT_ACT= Flo821
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo821 C_DIS
;ENDFOLD
TOOL_DATA[1]={X 0.0,Y 87.9860001,Z 399.687988,A 0.0,B 0.0,C -27.0}:{X
-13.0,Y 2.0,Z 1.0,A 0.0,B 0.0,C -10.0}
;FOLD LIN lo950 Vel=0.50 m/s L_OLP40 Tool[1] Base[1]
;%{PE}%R3.2.22, %MKUKATPBASIS,% CMOVE,%VLIN,%P 1:LIN, 2:lo950, 3:, 5:0.50,
7:L_OLP40
$BWDSTART = FALSE
LDAT_ACT= LL_OLP40
BAS(#CP_DAT)
FDAT_ACT= Flo950
BAS(#FRAMES)
BAS(#VEL_CP,0.5 0)
LIN Xlo950
;ENDFOLD
;FOLD PTP lo950_1 CONT Vel= 100 % P_OLP2 Tool[1]:RRE_STEP_ROOL
Base[1]:HOOD;%{PE}%R 5.2.22,%MKUKATP BASIS,%CMOVE,%V PTP,%P 1:PTP, 2:lo950_1,
3:C_PTP, 5:100, 7:P_OLP2
$BWDSTART = FALSE
PDAT_ACT=PP_OLP 2
FDAT_ACT=Flo950 _1
BAS(#PTP_PARAMS ,100)
PTP Xlo950_1 C_PTP
;ENDFOLD
;FOLD ; close clamp 5;%{PE}%R 5.2.22,%MKUKATP BASIS,%CCOMMENT ,%VNORMAL,%P
2:close clamp 5
;ENDFOLD
;FOLD SYN OUT 125 'open clamp 5' State= FALSE at START Delay= 0
ms;%{PE}%R 5.2.22,%MKUKATP BASIS,%COUT,%VS YNOUT,%P 2:125, 3:open clamp 5,
5:FALSE, 7:0, 9:0, 12:0
TRIGGER WHEN DISTANCE=0 DELAY=0 DO $OUT[125]=FALSE
;ENDFOLD
;FOLD ->END
;System Fold - Do not modify
;FOLD HANDLING
;ENDFOLD
;ENDFOLD
END