---

Strukturbaum.JPG

Hallo Community,
ich möchte gerne aus einem Product (>50 Parts) chamfers löschen. Besteht die Möglichkeit, dass ich über das Product alle chamfers suche und selektiere? Nach der Selektion würde ich gerne alle chamfers löschen (Part-übergreifend). Gibt es da eine Möglichkeit oder muss ich jedes Part einzeln aktivieren und die chamfers manuell löschen?
Grüße!

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

---

Hallo,

(1) Ich habe das zunaechst mal nach Part / Assembly verschoben, dort findet es eher Aufmerksamkeit.
(2) Du kannst ueber Edit-Search eine Suchmaske oeffnen, in der Du ueber Einstellung Workbench = Part Design und dann Feature = Chamfer in der Tat alle Chamfers finden kannst (Laden der Baugruppe in Design Mode notwendig)
Ob Du sie auf einmal loeschen kannst, musst Du ausprobieren.
Alle Achsensysteme finden und auf einen Schlag ins Hide hat jedenfalls schon mal funktioniert 

LG ... Wolfi 

------------------
NX neun minus CATIA fuenf ergibt Hartz IV 

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

---

Hallo zusammen,

das wird so (Suche und Löschen) nur mit Einschränkungen (Part innerhalb der Baugruppe muss aktiviert werden, gilt dann nur für das aktive Part) gehen.

Habe ein kleines Makro geschrieben, das alle Chamfer löscht.

Code:

---

Sub CATMain()

Dim oDoc As ProductDocument
On Error GoTo Quit
Set oDoc = CATIA.ActiveDocument
oDoc.Selection.Clear
oDoc.Selection.Search "'Part Design'.Chamfer;all"
oDoc.Selection.Delete
oDoc.Product.Update
MsgBox "Finish", vbInformation, "Finish"
Exit Sub
Quit:
MsgBox "Wrong document type", vbInformation, "Error"
End Sub

---

Hinweis:
Allerdings kann es auch hier zu Problemen führen, wenn nach einem Chamfer weitere Features (aufbauend auf Flächen/Kanten des Chamfers) existieren.

Gruß Randle

------------------
Planung ersetzt Fehler durch Irrtum!

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

---

Vielen Dank für Makro. Ein Makro würde das Ganze sehr erleichter!!!  Ich bekomme eine Fehlermeldung ScriptingErr_1002. Statement: Dim oDoc As ProductDocument" Line 2, Column 9 wird bemängelt... Makros funktionieren versionunanhängig, oder?

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

---

Servus

Als was hast du die Makro abgespeichert?
Ändere mal die Dateiendung in CATScript

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

als .catvbs

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

---

Das Script endet jetzt mit .CATScript. Die Gehlermeldung ist weiterhin ScriptingERR_1002.

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

---

Hallo,
geschrieben habe ich das in VBA. Ich glaube CATScript/catvbs kommen mit den Sprungmarken nicht klar.

Gruß Randle

------------------
Planung ersetzt Fehler durch Irrtum!

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