Hi,
ich hatte da ein ähnliches Problem.
Ich lasse den User über ein Eingabefenster entscheiden in welche Richtung eine Auszugsschräge erfolgen soll.
1--> für Z Achse
2--> für X Achse
3--> für Y Achse
4--> normale zur Fläche. ABER DAS BRAUCHST DU JA NICHT!!!
Dim Richtung As Dimension
Richtung = InputBox ("1 --> XY PLANE UND DIE AUSZUGSRICHTUNG IST IN RICHTUNG DER Z ACHSE"_
& Chr(10) & "2 --> YZ PLANE UND DIE AUSZUGSRICHTUNG IST IN RICHTUNG DER X ACHSE" _
& Chr(10) & "3 --> ZX PLANE UND DIE AUSZUGSRICHTUNG IST IN RICHTUNG DER Y ACHSE"_
& Chr(10) & "4 --> NORMALE ZU SURFACEFLÄCHE DER BLENDE" , "RICHTUNG DER AUSZUGSSCHRÄGE", Richtung)
part1.Update
Dim reference10 As Reference
Set reference10 = part1.CreateReferenceFromObject(hybridShapePointCoord1)
If (Richtung = 1) Or (Richtung = 2) Or (Richtung = 3) Then '************* IF ANWEISUNG
Dim reference9 As Reference
Set reference9 = part1.CreateReferenceFromBRepName("RSur:(Face:(Brp:(AxisSystem.2;"&Richtung&");None:();Cf11:_());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersio n_CXR14)", axisSystem1)
Dim hybridShapePlaneTangent1 As HybridShapePlaneTangent
Set hybridShapePlaneTangent1 = hybridShapeFactory1.AddNewPlaneTangent(reference9, reference10)
hybridBody6.AppendHybridShape hybridShapePlaneTangent1
part1.InWorkObject = hybridShapePlaneTangent1
Else '************* ELSE
Set hybridShapePlaneTangent1 = hybridShapeFactory1.AddNewPlaneTangent(reference5, reference10)
hybridBody6.AppendHybridShape hybridShapePlaneTangent1
part1.InWorkObject = hybridShapePlaneTangent1
End If
Die Variable "&Richtung&" übergibt dann den jeweiligen Wert der Achse.
Gruß
Denis
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP