---

Hallo,

kennt jemand eine Möglichkeit einzelne/alle Formelemente in einem Part via VB zu selektieren?

Gruß,
BJ

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

---

Soll das interaktiv geschehen oder geschieht die gesamte Auswahl per Programm?

1. es gibt eine Features Collection
2. es gibt ein Selectset
3. für das Selectset gibt es doch ne ADD-Methode.

Aber vielleicht denke ich das zu kurz.

------------------
APeters@BSS-Online.de

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

---

Hallo Arne,

die Auswahl soll per Programm erfolgen.
Wie sieht den die Add-Methode bei SelectSet aus?
Mit SelectSet alleine kann ich doch nur prüfen was ausgewählt wurde, oder sehe ich das falsch?

Gruß,
BJ

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

---

Naja, eben einfach das gewünschte Object hinzufügen.

"Selectset.add Object"

Sub Main()

    Dim o_app As Object
    Dim o_doc As PartDocument
    Dim o_mods As Models
    Dim o_mod As Model
    Dim o_ss As SelectSet
    Dim o_fs As Features
   
    Dim i As Integer
   
    Set o_app = GetObject(, "SolidEdge.Application")
    Set o_doc = o_app.ActiveDocument
    Set o_ss = o_doc.SelectSet
    Set o_mods = o_doc.Models
    Set o_mod = o_mods.Item(1)
    Set o_fs = o_mod.Features
   
o_app.DelayCompute = True
    For i = 1 To o_fs.Count
        o_ss.Add o_fs.Item(i)
    Next i
o_app.DelayCompute = False

End Sub

------------------
APeters@BSS-Online.de

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

---

Vielen Dank! Genau das was ich wollte!

Gruß,
BJ

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