Try modifying the function below in the compprop.ebs file. I've added comments to what line was added and which lines were removed. 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 '// Added line below insulationColor = at_ComponentProperties_getColor(compID, "Comp_Color_Mode") '// Removed line below '// status = at_Preference_getString(insulationColor, "Insulation_Color") If ((status = AT_SUCCESS) And (Len(insulationColor) > 0)) Then currentColor = at_CADSystem_getColor() status = at_CADSystem_setColor (insulationColor) status = at_CADObject_setColor (CadObj, insulationColor) '// Removed line below '// status = at_CADSystem_setColor (currentColor) End If at_Insulation_setCADPropertiesForObject = status End Function
↧