Code:
Set app = CreateObject("CT.Application")Set prj = app.CreateJobObject()
Set dev = prj.CreateDeviceObject()
Set cor = prj.CreatePinObject()
Set nseg = prj.CreateNetSegmentObject()
Dim WireColourDesc, LineColour, newcol, newstyle
prj.GetCableIds cabIds
for i=1 to UBound (cabIds)
dev.setId cabIds (i)
dev.GetAllCoreIds corids
for m=1 to Ubound (corids)
cor.setId corids (m)
WireColourDesc = cor.GetColourDescription
App.Putinfo 0, WireColourDesc
cor.getNetSegmentIds NsegIds
for l=1 to Ubound (NSegIds)
nseg.setId NsegIds (l)
'LineColour = nseg.GetLineColour
'App.Putinfo 0, LineColour
'App.Putinfo 0, "Linestyle" & nseg.GetLineStyle
if wireColourDesc = "Brown" then
newcol = 29
nseg.SetLineColour newcol
end if
if wireColourDesc = "Red" then
newcol = 13
nseg.SetLineColour newcol
end if
if wireColourDesc = "Grey" then
newcol = 12
nseg.SetLineColour newcol
end if
if wireColourDesc = "Blue" then
newcol = 16
nseg.SetLineColour newcol
end if
if wireColourDesc = "Orange" then
newcol = 41
nseg.SetLineColour newcol
end if
if wireColourDesc = "Black" then
newcol = 0
nseg.SetLineColour newcol
end if
if InStr(1, wireColourDesc, "Black", 1) = 1 then
newcol = 0
nseg.SetLineColour newcol
end if
if wireColourDesc = "Violet" then
newcol = 5
nseg.SetLineColour newcol
end if
if wireColourDesc = "White" then
newcol = 10
nseg.SetLineColour newcol
end if
if wireColourDesc = "Yellow" then
newcol = 15
nseg.SetLineColour newcol
end if
if wireColourDesc = "Wire colour 165" then
newcol = 7
nseg.SetLineColour newcol
end if
if wireColourDesc = "Green-Yellow" then
newstyle = 5
nseg.SetLineStyle newstyle
end if
if wireColourDesc = "Green" then
newstyle = 5
nseg.SetLineStyle newstyle
end if
next
next
next
App.Putinfo 0, "Script fertig"