---

Hallo Zusammen,

ist es möglich mit einem Programm die Elemente aus einem Teilefamilie-Mutterteil zu löschen?

Als Hintergrund: Unsere ersten Normteile von CAD-Partner wurden mit einer Teilefamile erstellt. Diese Dateien sind dadurch recht groß, weil für jedes Part noch mehrere hunderte Elemente in der Tabelle stehen, obwohl es die Teile (Elemente) physikalisch nicht gibt.
Leider sind noch einige Normteile verbaut, die ich geren bereinigen möchte. Ich hoffe ihr könnt mir helfen.
Stefan

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

---

1. Habt Ihr die selbergemacht?
Cad-Partner hat doch die Varianten verschlüsselt als Stream in den Masterteilen drin, aber nicht in den generierten Teilen.

2. Darüber hinaus ist es ja kriminell, Masterteile einer Teilefamilie zu verbauen. Wenn dort eine andere Variante aktiviert würde, habt Ihr die dann in der Baugruppe.

3. Das ginge wohl per Programm. Würde dann für ein aktives Part oder SheetMetal-Dokument folgendermaßen aussehen.

Dim o_app As Object
Dim o_doc As Object
Dim o_FoPs As FamilyMembers
Dim o_FoP As FamilyMember

Set o_app = GetObject(, "solidedge.application")
Set o_doc = o_app.activedocument
Set o_FoPs = o_doc.FamilyMembers

For Each o_FoP In o_FoPs
    o_FoP.Delete
Next

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

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

---

Hallo Arne,
vielen Dank für deine schnelle Antwort. Ich werde es einmal probieren. Natürlich haben wir nicht die Masterteile verwendet. Diese Teile wurden so abgelegt. Sie wurden einmal mit den richtigen Parametern erstellt und dann abgespeichert. Die weiteren Elemente hatten dann keine Funktion mehr, außer Ballast für die Datei.
Ich wollte Dir ein Beispiel anhängen, aber die Funktion fuzzt nicht!
Stefan

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

---

Moin,

dann aendere die For Schleife mal vielleicht geht's dann:

    For i = o_FoPs.Count To 1 Step -1
        o_FoPs.Item(i).delete
    Next i

Achtung: in der Edgebar muss 'Feature Pathfinder' aktiv sein ansonsten
laeuft nix

modeng

------------------
Unser Unwissen erobert immer weitere Welten. (S.J. Lec)

[Diese Nachricht wurde von modeng am 13. Mai. 2007 editiert.]

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