---

Hallo zusammen,

wenn in E3 eine Ader mit einer definierten Farbe auf eine Verbindung gelegt wird, wird die Linie trotzdem in der Standardfarbe Blau dargestellt. Da es dafür bisher keine integrierte Funktion in E3 gibt, habe ich ein kleines Script geschrieben, was auch bei fast allen Verbindungen funktionert. Die einzige Stelle an der es Probleme gibt, sind abgeknickte Verbindungen. Im Anhang habe ich dazu ein Screenshot von einem Beispielprojekt. Hat jemand eine Idee, was der Grund für das Verhalten sein könnte?

Hier der Code des Scripts:

Code:

---

Dim WireColourDesc, LineColour, newcol, newstyle

prj.getallconnectionIds conIds 
for i=1 to UBound (conIds)
con.setId conIds (i)
con.GetPinIds pinIds
for j=1 to UBound (pinIds)
pin.setId pinIds(j)

pin.GetCoreIds corids
for m=1 to Ubound (corids)
cor.setId corids (m)
WireColourDesc = cor.GetColourDescription
App.Putinfo 0, WireColourDesc
next

pin.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"

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thomas,
nur mal so wäre es nicht clever alle Adern/Drähte vom Projekt zu ermitteln. Über die Connectionids zu laufen ist etwas overpowered  
Versuch mal das hier:

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"

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo K0NFUZIUS,

danke für den Hinweis, jetzt funktioniert es :-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Noch einen Hinweis für die, die das Script verwenden möchten. Anstatt GetCoreIds besser GetAllCoreIds verwenden, da ansonsten Verbindungen mit Verdrillten Adern nicht erfasst werden.

LG

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP