treeview using sort of like #region

mookie

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.EventArgs) 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.Length - 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.Substring(0, 1) = ";" Then
temp = Split(temp(1).Trim, ";")
nodename = temp(1)
tvnode = Me.tv.Nodes.Add(temp(1))
tvnode.Nodes.Add(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.Add(rtb.Lines(i))
End If

While (i <= rtb.Lines.Length - 1) And
(InStr(UCase(rtb.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.Add(rtb.Lines(i))

While (i <= rtb.Lines.Length - 1) And
(InStr(UCase(rtb.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.Substring(0, 1) = ";" Then
temp = Split(temp(1).Trim, ";")
nodename = temp(1)
tvnode = tvnode.Nodes.Add(temp(1)) '
was a 1, now a 0 for movement

Else
nodename = temp(1)
temp = Split(temp(1), ";") ' added
for moves
tvnode = tvnode.Nodes.Add(temp(0)) '
was a 1, now a 0 for movement
tvnode.Nodes.Add(rtb.Lines(i))
End If
Else
If InStr(LCase(rtb.Lines(i)),
";endfold") = False Then

tvnode.Nodes.Add(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.Add(rtb.Lines(i))
End If
' is speed ptp?

End While
Else
If InStr(LCase(rtb.Lines(i)), ";endfold") Then
Else

tv.Nodes.Add(rtb.Lines(i))
myselectednode = tv.Nodes(tv.Nodes.Count - 1)
myselectednode.BeginEdit()
tv.Parent.ForeColor = 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\NonProcessVorgabe
&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_r06 =============

;FOLD ; ---left side--;%{PE}%R 5.2.22,%MKUKATPBASIS,%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,%MKUKATPBASIS,%CMOVE,%VPTP,%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_Path_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,%MKUKATPBASIS,%CMOVE,%VPTP,%P 1:PTP, 2:lo859_2,
3:C_PTP, 5:50, 7:P_OLP3
$BWDSTART = FALSE
PDAT_ACT=PP_OLP3
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,%MKUKATPBASIS,%CMOVE,%VPTP,%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,%MKUKATPBASIS,%CCOMMENT,%VNORMAL,%P 2:Exit Zone2 with R07
;ENDFOLD
;FOLD Interfer.ExitZone Zone 1;%{PE}%MKUKATPUSER
SHELL_FC (1,1)
;ENDFOLD

;FOLD PTP p1 Vel= 100 % PDAT2 Tool[1]:RRE_STEP_ROOL Base[1]:HOOD;%{PE}%R
5.2.22,%MKUKATPBASIS,%CMOVE,%VPTP,%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}%MKUKATPUSER
REQ_TO_CONT (TRUE )
;ENDFOLD

;FOLD ; Enter Zone2 with R07;%{PE}%R
5.2.22,%MKUKATPBASIS,%CCOMMENT,%VNORMAL,%P 2:Enter Zone2 with R07
;ENDFOLD
;FOLD Interfer.EnterZone Zone 1;%{PE}%MKUKATPUSER
SHELL_FC (1,0)
;ENDFOLD
;FOLD SYN OUT 128 'hold r7' State= FALSE at START Delay= 0 ms;%{PE}%R
5.2.22,%MKUKATPBASIS,%COUT,%VSYNOUT,%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,%MKUKATPBASIS,%CMOVE,%VPTP,%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,%MKUKATPBASIS,%CMOVE,%VLIN,%P 1:LIN, 2:lo859, 3:,
5:0.5, 7:L_OLP1
$BWDSTART = FALSE
LDAT_ACT=LL_OLP1
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.50)
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.50)
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.50)
LIN Xlo856 C_DIS
;ENDFOLD

;FOLD ; open clamp 4;%{PE}%R 5.2.22,%MKUKATPBASIS,%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,%MKUKATPBASIS,%COUT,%VSYNOUT,%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,%MKUKATPBASIS,%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,%MKUKATPBASIS,%COUT,%VSYNOUT,%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.50)
LIN Xlo855 C_DIS
;ENDFOLD

;FOLD ; close clamp 3;%{PE}%R 5.2.22,%MKUKATPBASIS,%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,%MKUKATPBASIS,%COUT,%VSYNOUT,%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.50)
LIN Xlo854 C_DIS
;ENDFOLD

;FOLD ; check centre pins open;%{PE}%R
5.2.22,%MKUKATPBASIS,%CCOMMENT,%VNORMAL,%P 2:check centre pins open
;ENDFOLD
;FOLD WAIT FOR ( IN 122 'Repo 2' ) CONT;%{PE}%R
5.2.22,%MKUKATPBASIS,%CEXT_WAIT_FOR,%VEXT_WAIT_FOR ,%P 2:, 4:, 5:$IN, 6:122,
7:Repo 2, 9:CONTINUE
CONTINUE
WAIT FOR ( $IN[122] )
;ENDFOLD

;FOLD Interfer.ExitZone Zone1;%{PE}%MKUKATPUSER
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.50)
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.50)
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.50)
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.50)
LIN Xlo850 C_DIS
;ENDFOLD

;FOLD ; check clamp 4 open;%{PE}%R
5.2.22,%MKUKATPBASIS,%CCOMMENT,%VNORMAL,%P 2:check clamp 4 open
;ENDFOLD
;FOLD WAIT FOR ( IN 126 'Repo 6' ) CONT;%{PE}%R
5.2.22,%MKUKATPBASIS,%CEXT_WAIT_FOR,%VEXT_WAIT_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.50)
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.50)
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.50)
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.50)
LIN Xlo846 C_DIS
;ENDFOLD

;wait for clamp 5 open
;FOLD WAIT FOR ( IN 125 'Repo 5' ) CONT;%{PE}%R
5.2.22,%MKUKATPBASIS,%CEXT_WAIT_FOR,%VEXT_WAIT_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,%MKUKATPBASIS,%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.50)
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.50)
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.50)
LIN Xlo843 C_DIS
;ENDFOLD

;FOLD ; testbracket matthias;%{PE}%R
5.2.22,%MKUKATPBASIS,%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.50)
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.50)
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.50)
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.50)
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.50)
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.50)
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.50)
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,%MKUKATPBASIS,%COUT,%VSYNOUT,%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.50)
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.50)
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.50)
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.50)
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.50)
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.50)
LIN Xlo830 C_DIS
;ENDFOLD

;FOLD ; end testbracket matthias;%{PE}%R
5.2.22,%MKUKATPBASIS,%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.50)
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.50)
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.50)
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.50)
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.50)
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.50)
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.50)
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.50)
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.50)
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.50)
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,%MKUKATPBASIS,%CMOVE,%VPTP,%P 1:PTP, 2:lo950_1,
3:C_PTP, 5:100, 7:P_OLP2
$BWDSTART = FALSE
PDAT_ACT=PP_OLP2
FDAT_ACT=Flo950_1
BAS(#PTP_PARAMS,100)
PTP Xlo950_1 C_PTP
;ENDFOLD

;FOLD ; close clamp 5;%{PE}%R 5.2.22,%MKUKATPBASIS,%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,%MKUKATPBASIS,%COUT,%VSYNOUT,%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

Nov 23 '05 #1

Subscribe Post Reply

1356

Similar topics

TreeView problem

by: feel | last post by:

Goin' crazy with this recursive function ported from delphi... I send a string like DirA/ DirB /DirC but i get in the treeView each one in a new node.Cant get the child node....!! -DirA -DirB...

C# / C Sharp

Searilizing a treeView Control

by: meh | last post by:

I need to be able to persist a treeView to disk. I would like to save the node text, tag, image and selected image. I have done this using vb but I cant seem to translate from vb to vc#. Can ne1...

C# / C Sharp

Still trying to serialize treeview in C#

by: meh | last post by:

Still have not been able to convert this. More importently.....Is this sample going about it the right way??? tia meh Here is the vb code.........I keep looking at older vb.net projects to...

C# / C Sharp

How to fill a TreeView ?

by: Ian Powell | last post by:

Hi I've got objects in an sorted ArrayList like: P:\ P:\\DOCS P:\\i386 P:\\i386\ASMS P:\\i386\ASMS\1000 P:\\i386\ASMS\1000\MSFT

C# / C Sharp

TreeView node and multiple inheritance challenge

by: Hazz | last post by:

I am just beginning to design a Treeview display (winforms) for wine regions. Problem. Some wine growing regions belong to two counties. Eg. Carneros is in both Napa and Sonoma Counties. Although...

C# / C Sharp

TreeView DragDrop

by: Gary Dunne | last post by:

I'm writing an app that requires drag and drop operation between a ListView and a TreeView control. (The source is the ListView). During the drag drop operation I want to be able to detect the...

Visual Basic .NET

TreeView in Custom User Control RenderControl error

by: apenly | last post by:

Hi all- I'm trying to Render a TreeView in a custom control, but I'm receiving a NullReferenceException at runtime. If I put the TreeView on the page it works fine, but as soon as I try to...

ASP.NET

Save and Load TreeView to a File in VB.NET

by: Ensonix | last post by:

I found a post about this, and it had some C# code that wouldn't convert, and when I finally got it converted it didn't work in .NET 1.1. So I made a few changes to the converted VB version and now...

.NET Framework

treeview menu

by: Mike | last post by:

Here is my scenario. I just took over an existing asp site that is using a treeview menu on the pages. The treeview is an include file that is an include that is on every page. The issue is, when...

ASP / Active Server Pages

Navigating the Data Structures and Algorithms (DSA)

by: BarryA | last post by:

What are the essential steps and strategies outlined in the Data Structures and Algorithms (DSA) roadmap for aspiring data scientists? How can individuals effectively utilize this roadmap to progress...

Algorithms / Advanced Math

Looking to do Android software development, any suggestions? Is flutter better?

by: nemocccc | last post by:

hello, everyone, I want to develop a software for my android phone for daily needs, any suggestions?

General

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

Problem With Comparison Operator <=> in G++

by: Oralloy | last post by:

Hello folks, I am unable to find appropriate documentation on the type promotion of bit-fields when using the generalised comparison operator "<=>". The problem is that using the GNU compilers,...

C / C++

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

Access Europe - Using VBA to create a class based on a table - Wed 1 May

by: isladogs | last post by:

The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...

Microsoft Access / VBA

Couldn’t get equations in html when convert word .docx file to html file in C#.

by: conductexam | last post by:

I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...

C# / C Sharp