Get Cores Example (VBA)
This example shows how get to the cores of the cables.
...
Set rtElectricalRoute = rtRouteManager.GetElectricalRoute
...
vCables = rtElectricalRoute.GetCables
If
Not IsEmpty(vCables) Then
For
Each vCable In vCables
Set
rtCable = vCable
vWires
= rtCable.GetCores
If
Not IsEmpty(vWires) Then
lNumWires
= rtCable.GetCoresCount
ReDim
Preserve aWires(lNumWiresAccumulated + lNumWires - 1)
lStartIdx
= lNumWiresAccumulated
lEndIdx
= lNumWiresAccumulated + lNumWires - 1
For
lIdx = lStartIdx To lEndIdx
Set
aWires(lIdx) = vWires(lIdx - lStartIdx)
lNumWiresAccumulated
= lNumWiresAccumulated + 1
Next
lIdx
End
If
Next
vCable
End
If
...