Details
How to get RGB value for part file using Solid Edge API
Solution
User can get the RGB value by GetRGBAVals() method, like
-----------------------------------
Dim objApplication As SolidEdgeFramework.Application = Nothing
Dim objDoc As SolidEdgePart.PartDocument = Nothing
Dim objBody As SolidEdgeGeometry.Body = Nothing
Dim objFace As SolidEdgeGeometry.Face = Nothing
Dim objModels As SolidEdgePart.Models = Nothing
Dim objCopyConstruction As SolidEdgePart.CopyConstruction
Dim Rvalue AsDouble
Dim Gvalue AsDouble
Dim Bvalue AsDouble
Dim Avalue AsDouble
Try
objApplication = Marshal.GetActiveObject("SolidEdge.Application")
objDoc = objApplication.ActiveDocument
objModels = objDoc.Models
If (objDoc.Models.Count = 0) Then
objCopyConstruction = objDoc.Constructions.CopyConstructions(1)
objFace = objCopyConstruction.Faces(FaceType:=SolidEdgeGeometry.FeatureTopologyQueryTypeConstants.igQueryAll).Item(1)
Else
objBody = objDoc.Models.Item(1).Body
objFace = objBody.Faces(FaceType:=SolidEdgeGeometry.FeatureTopologyQueryTypeConstants.igQueryAll).Item(1)
EndIf
Call objFace.GetRGBAVals(Rvalue, Gvalue, Bvalue, Avalue)
MsgBox("R value = " & Rvalue & vbCrLf & "G value = " & Gvalue & vbCrLf & "B value = " & Bvalue & vbCrLf)
Catch ex AsException
MsgBox(ex.ToString)
EndTry
-----------------------------------
Hardware/Software Configuration
Platform: AMD64
OS: window
OS Version: 764
Product: SOLID_EDGE
Application: AUTOMATION
Version: V110.0
Function: API_DOCUMENT
Ref: 001-9202580