473,770 Members | 1,996 Online
Bytes | Software Development & Data Engineering Community
+ Post

Home Posts Topics Members FAQ

treeview using sort of like #region

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

Nov 23 '05 #1
0 1384

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

3
821
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 -DirC instead of: DirA | - DirB
4
3452
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 point me to documentation or samples that might help??? Thanks in advance meh
0
3443
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 try and figure out how to teach myself C# based on my old vb code but it's been more difficult than I first thought. I'm finding that it would be better if didn't know any previous programming language.
4
7599
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
3
2568
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 most nodes will have only one parent, a few will have two parents. The Treeview which seems to me to lend itself to the Windows Explorer type of app could not possibly show one file as a leaf belonging to two different parent folders. You either...
3
3794
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 target node in the treeview and auto expand it if applicable... but after a fair bit of head scratching I can't find any easy way to accomplish this. I think what i really need is the equivalent of the HitTest method from the COM version of the...
0
2487
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 render it within my control it crashes and burns. I've even tried placing it within another control (a PlaceHolder) and tried to render the PlaceHolder to no avail. Any ideas on how to fix this problem? Here's my code:
0
2292
Ensonix
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 it works perfect, however I could find a post replay on that form, so I thought I'd put it here for anyone else searching. 'ENSONIX ENTERPRISES, INCORPORATED 'WEB: http://www.ensonix.com...
1
2173
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 the user clicks on a menu option it opens a new page (menu is still there) and the menu is collapsed. example: menu looks something like this Menu1 Menu2
0
9618
marktang
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However, people are often confused as to whether an ONU can Work As a Router. In this blog post, we’ll explore What is ONU, What Is Router, ONU & Router’s main usage, and What is the difference between ONU and Router. Let’s take a closer look ! Part I. Meaning of...
0
9454
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 effortlessly switch the default language on Windows 10 without reinstalling. I'll walk you through it. First, let's disable language synchronization. With a Microsoft account, language settings sync across devices. To prevent any complications,...
0
10259
Oralloy
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, it seems that the internal comparison operator "<=>" tries to promote arguments from unsigned to signed. This is as boiled down as I can make it. Here is my compilation command: g++-12 -std=c++20 -Wnarrowing bit_field.cpp Here is the code in...
0
10101
jinu1996
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 tapestry of website design and digital marketing. It's not merely about having a website; it's about crafting an immersive digital experience that captivates audiences and drives business growth. The Art of Business Website Design Your website is...
0
9906
tracyyun
by: tracyyun | last post by:
Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each protocol has its own unique characteristics and advantages, but as a user who is planning to build a smart home system, I am a bit confused by the choice of these technologies. I'm particularly interested in Zigbee because I've heard it does some...
0
8933
agi2029
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, and deployment—without human intervention. Imagine an AI that can take a project description, break it down, write the code, debug it, and then launch it, all on its own.... Now, this would greatly impact the work of software developers. The idea...
0
5354
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The last exercise I practiced was to create a LAN-to-LAN VPN between two Pfsense firewalls, by using IPSEC protocols. I succeeded, with both firewalls in the same network. But I'm wondering if it's possible to do the same thing, with 2 Pfsense firewalls...
0
5482
by: adsilva | last post by:
A Windows Forms form does not have the event Unload, like VB6. What one acts like?
3
2849
bsmnconsultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence can significantly impact your brand's success. BSMN Consultancy, a leader in Website Development in Toronto offers valuable insights into creating effective websites that not only look great but also perform exceptionally well. In this comprehensive...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.