How To Make A Center Line Come in on a Defined Layer

[Colby]

in Compprop.ebs

Search for "Sub at_CenterlineProperties_set"

Here is the Function Code

Sub at_CenterlineProperties_set

Dim compID As at_ComponentID
Dim compLayer As String
Dim status As Integer

status = at_Component_getCurrID(compID)

If(status = at_SUCCESS) Then

'// Update the component properties
compColor = at_ComponentProperties_getColor(compID, "Comp_Color_Mode")
status = at_Component_setcompColor(compID, compColor)
compLayer = at_ComponentProperties_getLayer(compID, "Comp_Layer_Mode")
'//compLayer = compLayer + "_CL"
compLayer = "YOUR LAYER HERE" '//
status = at_Component_setCompLayer (compID, compLayer)

End If

End Sub

This was tested using version 2.00, 2.01, 3.00( version 8 ), 3.01( version 8 )
I have not tested this out for the new releases of version 8

:D