---

Hallo Zusammen,

ich habe ein Problem, dass ich mich für weiter Verwendungszwecke in anderen Programmen bei bestimmten Modelen (z.B. Gußteile) die kleinen Radien (< 0.5 mm) stören.

Ist es möglich, per Makro den Featuremanager durchzulaufen und bei den Verrundungen den Radius auszulesen und gegebenfalls die Verrundung zu löschen bzw. zu unterdrücken.

Gruß
Yankee

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

---

Denke schon, obwohl ich noch nichts dergleichen gemacht hab.

Den Ablauf stell ich mir so vor:
- den Featurebaum durchlaufen
- jedes Feature prüfen, ob es ein Rundungsfeature ist
- wenn ja, Radius auslesen
- wenn R<0,5mm, Feature unterdrücken

Risiko: abhängige Folgefeatures werden auch unterdrückt.

Ich hab mal schnell durch die API-Hilfe gesucht und das gefunden:

Der Befehl SimpleFilletFeatureData2.Type meldet, ob es ein Verrundungsfeature mit konstantem Radius ist.

SimpleFilletFeatureData2.DefaultRadius liest den Radius aus.

In dem Umfeld gibt es bestimmt noch einiges mehr.

Wenn das klappt, könnte man daraus ein schönes Tool zum Erstellen von vereinfachten Bauteilkonfigurationen machen:
- neue Konfig anlegen
- Größtmaße des Teils auslesen
- Fasen und Rundungen unterdrücken, die kleiner 5% des Größtmaßes sind
Hmm, lecker. Wenn man mal Zeit für sowas hätte....

Piet

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

---

So etwa; es unterdrückt Features, die auch noch das Wort "Verrundung" im Namen haben...

Set Feature = Part.FirstFeature      ' das erste Feature suchen
    While Not Feature Is Nothing    ' Schleife über alle Features
        featurename = Feature.Name  ' Namen bekommen
        Featuretyp = Feature.GetTypeName  ' was für ein Feature?
        If Featuretyp = "Fillet" Then    ' Verrundungen erkannt
            drin = InStrRev(featurename, "Verrundung")' Verrundung im Namen?
            If drin > 0 Then Feature.SetSuppression (swSuppressFeature)'unterdrücken
        End If 'es ist eine Verrundung
        Set Feature = Feature.GetNextFeature
    wend

------------------
Lutz Federbusch
Mein Gästebuch

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

---

Danke @ Piet & Lutz,

das Codebeispiel sieht sehr gut aus,... jetzt muß ich eigentlich nur noch wenn im Featurenamen "Verrundung" vorkommt diese aktivieren um den Radius raus zu lesen um dann diese dementsprechend zu löschen bzw. zu unterdrücken, oder ?

Grüßle

Yankee

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

---

Piet hat ja schon auf die FeatureData verwiesen - damit kriegst Du den Radius. Der Codeschnipsel stammt aus einem Vereinfachungsmakro, bei dem man durch Umbenennen bestimmte Verrundungen vor dem automatischen Unterdrücken retten konnte, ansonsten wurden alle Verrundungen, auch die großen unterdrückt...

------------------
Lutz Federbusch
Mein Gästebuch

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

---

Gucks Du hier:
http://www.solidworks.com/downloads/API/Examples%5C00000%5C0100s%5C0168/Example.htm

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