Hi everybody,
I would like to apply a color to one of the faces of macro feature generated body.
In the ISwComFeature::Regenerate callback, I use IFace2::SetMaterialPropertyValues2 to define a face color and then return generated bodies.
The problem is after return generated body, body face colors are reseted and no color appears.
There is a way to set a face color of macro feature generated body ?
Hi Ulf,
Yes I tried it. No success.
I suspect temporary bodies only supports IBody2::Display3 method to rendering any appearance in live (no face appearance rendering), and final bodies to not inherit parent temporary bodies appearance.
In other terms, I cannot set any MaterialPropertyValues on single face of temporary body, and if I do it, resulting final bodies does not inherit this face property.
Hi Alexandre
You are right, the color will be reset. Maybe somebody knows a procedure that works.
Perhaps it is necessary to create an event listener that listens for a rebuild and then colors the faces with certain persistent IDs which are recorded in the macro feature rebuild function.
Keith
You won't be able to do this during that features regeneration.
You can use partevents
Regenpostnotify works
Or create a final macrofeature that does appearances. I actually have to do this myself.
Put this final macrofeature at the end of the tree. Set the Insertmacrofeature3 options to mustbeatend or something like that. It's an enumerator.
To help yourself.
Use imacrofeaturedata.setuserid and color according to some user id code.
Also keep in mind that at the end, some faces might not exist anymore if you are combining or subtracting bodies.
Hi Guys
I had the exact same problem and found this thread.
If you have a property manager page - you can use PropertyManagerPage2Handler9_AfterClose()
I test to make sure this only runs when the macro feature is created.. not on edit.
It just grabs the last feature added...
Private Sub PropertyManagerPage2Handler9_AfterClose()
If IsNew Then
Dim swFeature As SldWorks.Feature
Set swFeature = swMod.Extension.GetLastFeatureAdded
Dim vFaces As Variant
vFaces = swFeature.GetFaces
Dim swFace As SldWorks.Face2
Set swFace = vFaces(0)
Dim swBody As SldWorks.Body2
Set swBody = swFace.GetBody
Dim MatProps(8) As Double
MatProps(0) = 0# 'R
MatProps(1) = 1# 'G
MatProps(2) = 1# 'B
MatProps(3) = 0.5 'Ambient
MatProps(4) = 0.5 'Diffuse
MatProps(5) = 0.5 'Specular
MatProps(6) = 0.5 'Shininess
MatProps(7) = 0.5 'Transparency
MatProps(8) = 0.5 'Emissions
swBody.MaterialPropertyValues2 = MatProps
End If
End Sub
Hi Alexandre
It's a little late, but have you tried MaterialPropertyValues?
BiI SAP-PDM