Hallo,
meine Probleme hängen eigentlich zusammen, deshalb nur ein Thema.
Ich definiere mit der Funktion "äußerster Punkt" jeweils ein Minimum und ein Maximum in die Hauptausdehnungsrichtungen meiner Fläche. Dabei habe ich bei einigen Flächen das Problem, dass Catia mir eine Linie anstatt eines Punktes definiert. Das macht mir ein Problem bei der darauffolgenden Definition der eingrenzenden Ebenen. Gibt es eine Möglichkeit eine Schleife anzuhängen, die kontrolliert ob Punkt oder Linie gefunden wurde und falls eine Line gefunden wurde einen Punkt darauf erzeugt?
Dann erstelle ich die eingrenzenden Ebenen und danach habe ich das nächste Problem. Man soll mit InputBox wählen können wieviele Ebene man ertsellen will. Das funktioniert auch aber alle Ebenen werden daraufhin identisch auf einer eingrenzenden Ebene erstellt. Ich poste hier mal den Ausschnitt indem ich den Fehler vermute:
Set hybridShapePlaneOffset1 = hybridShapeFactory1.AddNewPlaneOffset(reference1, 0.000000, True)
hybridShapePlaneOffset1.Name="EbeneX_" & 1
hybridBody1.AppendHybridShape hybridShapePlaneOffset1
part1.InWorkObject = hybridShapePlaneOffset1
dim count
count=InputBox("Ebenanzahl: ")
Set relations1 = part1.Relations
Set length1 = hybridShapePlaneOffset1.Offset
'Set formula1 = relations1.CreateFormula("", "", length1, "(distance(`Geometrisches Set.1\PlaneMaxX`,`Geometrisches Set.1\PlaneMinX`)) / (count + 1)")
For z=1 To count - 1
Set reference2 = part1.CreateReferenceFromObject(hybridShapePlaneOffset1)
Set hybridShapePlaneOffset2 = hybridShapeFactory1.DuplicateGSMSpec(reference2)
hybridShapePlaneOffset2.Name="EbeneX_" & z +1
Set reference3 = part1.CreateReferenceFromObject(hybridShapePlaneOffset2)
Set reference4 = part1.CreateReferenceFromObject(hybridShapePlaneOffsetPt1)
hybridShapeFactory1.SetReferenceElemForMultiple reference3, reference4
Set relations2 = part1.Relations
Set length2 = hybridShapePlaneOffset2.Offset
Set formula2 = relations2.CreateFormula("", "",length2, "(distance(`Geometrisches Set.1\PlaneMaxX`,`Geometrisches Set.1\PlaneMinX`)) * z / (count + 1)")
Next
Danke für eventuelle Antworten
breitinger
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP