Hallo zusammen!
Ich bin im Programmieren noch sehr unerfahren und würde gerne ein Programm erstellen, in dem ich unter anderem an einem Rohr ein Innen- und ein Außengewinde erstellen möchte.
Dabei soll es sich um metrische Gewinde handeln.
Leider finde ich nicht heraus, wie ich überhaupt Gewinde definiere. Ich versuche es momentan über den Befehl:
thread1 = Shapefactory1.AddNewThreadWithRef(ref1, ref2)
Dann taucht mein nächstes Problem auf. Die erste Referenz ist die xy-Ebene des absoluten Koordinatensystems. In dieser Ebene beginnt auch mein Rohr. Nun weiß ich aber nicht, wie ich die zweite Referenz erstellen muss. Ich habe folgendes versucht. Bitte nicht erschrecken
Dim hsf As HybridShapeFactory
Dim hybridbody1 As HybridBody
Dim plane2 As HybridShapePlaneOffset
hybridbody1 = MyPart.HybridBodies.Add
hybridbody1.Name = "Mein Set"
hsf = MyPart.HybridShapeFactory
plane2 = hsf.AddNewPlaneOffset(ref1, laenge, False)
plane2.Compute()
hybridbody1.AppendHybridShape(plane2)
ref2 = MyPart.CreateReferenceFromObject(plane2)
thread1 = Shapefactory1.AddNewThreadWithRef(ref1, ref2)
thread1.Side = CatThreadSide.catRightSide
thread1.Diameter = 11
thread1.Pitch = 1
thread1.depht = aussengewindelaenge
Ich bin für jeden Tipp dankbar!
Beste Grüße
Student321
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP