Tag Leute,
Ich setzte eine Ebene auf den Endpunkt einer 3D-Linie. Das funktioniert nur instabil. Das kann 200 Mal funktionieren und dann plötzlich nicht mehr.
Ich habe das ganze noch mal aufgezeichnet, aber kann zu meinem Programm keinen Unterschied feststellen.
Kennt jemand dieses Problem?
Schöne Grüße
Martin
Ich habe hier mal einen Ausschnitt aus dem Programm:
'----------------------------------------------------------------
'Linie erstellen fuer Bohrung
Dim Linie As HybridShapeLineNormal
Set Linie = GSD.AddNewLineNormal(Flaeche, Punkt, 5, -1, False)
Gset.AppendHybridShape Linie
Bauteil.Update
'-------------------------------------------------------------------------
'Ebenen für Bohrungen erstellen
Dim reference5 As Reference
Set reference5 = Bauteil.CreateReferenceFromBRepName("BorderFVertex BEdge Brp " & Linie.Name & ";1);None Limits1 );Limits2 );+1);Cf11 ));WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MonoFond;MFBRepVersion_CXR15)", Linie)
Dim Ebene1 As HybridShapePlaneTangent
Set Ebene1 = GSD.AddNewPlaneTangent(Flaeche, reference5)
Gset.AppendHybridShape Ebene1
Bauteil.Update
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP