| |
| KISTERS 3DViewStation: Unterstützung für 3D CAD Kollaboration mit Lieferanten, eine Pressemitteilung
|
Autor
|
Thema: Formelwert suchen und löschen (762 / mal gelesen)
|
Esterbauer Mitglied
Beiträge: 62 Registriert: 26.09.2008
|
erstellt am: 05. Dez. 2018 09:11 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, Wer kann mir helfen. Habe ein Produkt mit mehreren Parts. In den Parts gibt es eine Formel z.B. ( Formel.37:`001_part1/Teilenummer`=`Stücklisten Information\Hilfsparameter\Dateibenennung` ) Wie schaffe ich per Makro (Automatisch)die Formel.37 zu löschen? Problem ist nur das in Part 1 es die Formel.37 ist und in Part 2 ist es die Formel.40 usw... es ist immer nur der Formelwert an sich gleich (`Stücklisten Information\Hilfsparameter\Dateibenennung` ) wer kann mir da helfen.
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Randle Mitglied CAD/PLM Consultant
Beiträge: 743 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29
|
erstellt am: 05. Dez. 2018 10:01 <-- editieren / zitieren --> Unities abgeben: Nur für Esterbauer
Hallo, wie weit bist du denn schon? Evtl. kannst du den Outputparameter abfragen, wenn das die Teilenummer kannst du sie löschen. Gruß Randle ------------------ Wer für nichts steht, fällt für alles! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Esterbauer Mitglied
Beiträge: 62 Registriert: 26.09.2008
|
erstellt am: 07. Dez. 2018 10:00 <-- editieren / zitieren --> Unities abgeben:
Da ich kaum Kenntnisse im der VBA Programmierung habe bin ich auch noch nicht Richtig weiter gekommen. Habe versuch mit der Catia Suchfunktion die Formel zu finden das funktioniert aber leider nicht. Was meinst du mit Outputparameter ? wie kann man den abfragen ? Gruß
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
moppesle Ehrenmitglied V.I.P. h.c. Konstrukteur
Beiträge: 3425 Registriert: 28.05.2009 CATIA V5 R19 SP9 WIN 7 64bit
|
erstellt am: 07. Dez. 2018 11:41 <-- editieren / zitieren --> Unities abgeben: Nur für Esterbauer
Hallo Esterbauer, hab mal was zusammengebastel. Evtl. mußt du den Parameternamen "Part Number" auf die Deutsche Umgebung anpassen. DelFormula.CatSript Code: Sub CATMain()Dim oActiveDoc 'As Document Set oActiveDoc = CATIA.ActiveDocument If (InStr(oActiveDoc.Name, ".CATProduct")) Then Call MsgBox("Part im separaten Fenster öffnen!", vbExclamation) Exit Sub End If ' Check whether the document is a CATPart If (InStr(oActiveDoc.Name, ".CATPart")) <> 0 Then Dim oRelations 'As Relations Set oRelations = oActiveDoc.Part.relations Dim oFormula1 As Formula Dim oParameters 'As Parameters Set oParameters = oActiveDoc.Product.Parameters Dim strParam1 'As Parameters Dim paraPartnum As String Dim FormulaWertFuell As String paraPartnum = "Part Number" FormulaWertFuell = "" Set strParam1 = oParameters.Item(paraPartnum) Set oFormula1 = strParam1.OptionalRelation 'Verknüpfte Relation zu Parameter suchen oRelations.Remove (oFormula1.Name) 'Verknüpfte Relation zu Parameter löschen strParam1.Value = " " CATIA.ActiveDocument.Part.Update End If End Sub
------------------ Gruß Uwe Auch Catia ist nur ein Mensch! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |