You are currently reviewing an older revision of this page.
To change the insulation color in piping, so it has the same color as the pipe, you must edit the COMPPROP ebs file.
Please follow the steps below:
Funcion: at_Insulation_setCADPropertiesForObject
'Date of today
insulationcolor = at_ComponentProperties_getColor(compID, "Comp_Color_Mode")
Look for the text in red below, with the final result.
'////////////////////////////////////////////////////////////////////////////
'//
'// Funcion: at_Insulation_setCADPropertiesForObject
'// Create a new insulation layer and set its properties
Public Function at_Insulation_setCADPropertiesForObject(compID As At_ComponentID, Layer As String, CADObj As Long) As Integer
Dim status As Integer
Dim currentLayer As String
Dim currentLineStyle As String
Dim currentColor As String
Dim Inslayer As String
Dim insulationLineStype As String
Dim insulationColor As String
currentLayer = at_CADSystem_getLayer()
status = at_CADSystem_setLayer(Layer)
status = at_CADObject_setLayer (CadObj, Layer)
status = at_CADSystem_setLayer(currentLayer)
'// Optionally set the linestyle and color using the current project preferences.
status = at_Preference_getString(insulationLineStype, "Insulation_LineStyle")
If ((status = AT_SUCCESS) And (Len(insulationLineStype) > 0)) Then
currentLineStyle = at_CADSystem_getLineStyle()
status = at_CADSystem_setLineStyle (insulationLineStype)
status = at_CADObject_setLineStyle (CadObj, insulationLineStype)
status = at_CADSystem_setLineStyle (currentLineStyle)
End If
status = at_Preference_getString(insulationColor, "Insulation_Color")
'msgbox insulationcolor
If ((status = AT_SUCCESS) And (Len(insulationColor) > 0)) Then
currentColor = at_CADSystem_getColor()
'30 sep 2009
status = at_CADSystem_setColor (insulationColor)
status = at_CADObject_setColor (CadObj, insulationColor)
status = at_CADSystem_setColor (currentColor)
at_Insulation_setCADPropertiesForObject = status
End Function