Change color of tangent continuous faces
Change color of tangent continuous faces
(OP)
We need to change the color of tangent continuous faces of a solid body. As of now we are selecting the faces one by one. Is there any option in Catia to select All tangent continuous faces at a time, like propagation/federate option of Join command.
I checked the following thread, it didn't help,
http://www.eng-tips.com/viewthread.cfm?qid=316341
Can we use VBA functions like SelectElement3 to select the tangent continuous faces.
I checked the following thread, it didn't help,
http://www.eng-tips.com/viewthread.cfm?qid=316341
Can we use VBA functions like SelectElement3 to select the tangent continuous faces.





RE: Change color of tangent continuous faces
Dim InputObjectType(0)
Set Document = CATIA.ActiveDocument
Set Selection = Document.Selection
Dim prtPart As Part
Set prtPart = CATIA.ActiveDocument.Part
Dim oHSF As HybridShapeFactory
Set oHSF = prtPart.HybridShapeFactory
InputObjectType(0) = "Face"
Status = Selection.SelectElement2(InputObjectType, "Select a face", True)
If (Status = "cancel") Then Exit Sub
Set FirstFace = Selection.Item(1).Value
Selection.Clear
Dim newelement1 As HybridShapeExtract
Set newelement1 = oHSF.AddNewExtract(FirstFace)
newelement1.PropagationType = 2
newelement1.ComplementaryExtract = False
newelement1.IsFederated = False
prtPart.UpdateObject newelement1
Selection.Add newelement1
Selection.VisProperties.SetRealColor 0, 255, 0, 0
prtPart.UpdateObject Selection
End Sub
RE: Change color of tangent continuous faces
RE: Change color of tangent continuous faces
indocti discant et ament meminisse periti
RE: Change color of tangent continuous faces
RE: Change color of tangent continuous faces
Win 7
23SP5/24SP3, 3DVIA Composer 2015
RE: Change color of tangent continuous faces
Win 7
23SP5/24SP3, 3DVIA Composer 2015
RE: Change color of tangent continuous faces
RE: Change color of tangent continuous faces
Win 7
23SP5/24SP3, 3DVIA Composer 2015