Hallo Wladimir,
der Tip mit dem BodyFeature hat gleich gut funktioniert - wie der Name auch sagt, funktioniert es auf Features die einen Körper haben.
Den Tipp mit der 8.5 werde ich bald testen, wenn ich an die 8.5 komme.
Hier der Code für die Lösung mit dem Bodyfeature false jemand das selbe Problem hat:
_______________________________________________________________
Dim feats As Features.FeatureCollection = workPart.Features
For Each feat As Feature In feats
If feat.FeatureType = "EXTRUDE" Then
Dim feature_body As BodyFeature = CType(feat, BodyFeature)
Dim feature_faces() As Face
feature_faces = feature_body.GetFaces()
Dim disp_mod As DisplayModification
disp_mod = theSession.DisplayManager.NewDisplayModification()
disp_mod.ApplyToAllFaces = False
disp_mod.NewColor = 214
disp_mod.Apply(feature_faces)
disp_mod.Dispose()
End If
Next
_______________________________________________________________
Danke,
Stefan
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP