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