---

Hi!
Gibt es eine Möglichkeit alle Elemente eines (Ordered)Geometrical Sets automatisch für eine weitere Operation zu verweden?
Also folgendes Beispiel:
Es exsistiert ein GS in welchen sich nur z.B. Kurven befinden.
Jetzt möchte ich auf jeder Kurve dieses GS einen Punkt erzeugen.
Wie programmiere ich das am geschicktesten??z.B. als For-Schleife oder so....

Das hier ist mein Ansatz (funktioniert aber leider nicht^^)

Code:

---

'****Referenz für Punkteerstellung deklarieren
' GS deklarieren
Set GS = NewPart.HybridBodies.Item ("Kurven")

For I=1 To Count

Set Ref  = GS.HybridShapes.Item (I)

'Geometrie vordefinieren ---------------------------------------------

Dim P1HybridShapePointOnCurve
Set P1 = Wzk3D.AddNewPointOnCurveFromPercent (Ref, 0, True)

' Geometrie dem geometrischen Set zuweisen ---------------------

GS.AppendHybridShape P1

Next

---

Oder was noch besser wäre wenn man über das Makro alle Elemente eines Typs erkennt & dann die folgenden Operationen durchführt...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus,

wie wärs hiermit?

Code:

---

'***Geometrisches Set auswählen
    strSearchFilter(0) = "HybridBody"
    strSel = objSel.SelectElement2(strSearchFilter, "Wählen Sie das Geometrische Set mit den Punkten aus", False)
    '***Auswertung der Selektion
    If strSel = "Normal" Then
        '***Performanceerhöhung der Suche
        CATIA.HSOSynchronized = False
        '***Element suchen
        objSel.Search ("Part Design.Point ;sel")
        CATIA.HSOSynchronized = True
    Else
        MsgBox "Abbruch der Selektion durch den User." & vbNewLine & _
        "Das Makro wird beendet.", vbExclamation + vbOKOnly, "Abbruch der Selektion"
        objSel.Clear
        Exit Sub
    End If

---

Als erstes mußt du ein Geometrisches Set auswählen. Danach wird innerhalb dieser Selektion (GeoSet) alle Punkte gesucht. Danach mußt du nur noch die For Schleife anpassen.

------------------
Mit freundlichen Grüßen aus Tirol
Christian Obholzer

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP