| |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co. |
| |
 | KISTERS 3DViewStation mit neuer Zerschneidefunktionen und erweitertem PMI-Support, eine Pressemitteilung
|
Autor
|
Thema: Stückliste (3483 mal gelesen)
|
Michel39 Mitglied Admin

 Beiträge: 42 Registriert: 05.03.2003
|
erstellt am: 07. Sep. 2004 17:30 <-- editieren / zitieren --> Unities abgeben:         
|
Randle Mitglied CAD/PLM Consultant
  
 Beiträge: 743 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-30
|
erstellt am: 07. Sep. 2004 19:02 <-- editieren / zitieren --> Unities abgeben:          Nur für Michel39
|
Catrin Ehrenmitglied Ingenieurin Maschinenbau/Informatik
    
 Beiträge: 1928 Registriert: 12.12.2000 HP EliteBook 8560w Windows 7 / V5R19SP3 / NX 8.5
|
erstellt am: 08. Sep. 2004 17:57 <-- editieren / zitieren --> Unities abgeben:          Nur für Michel39
Du kannst ein eigenes Format abspeichern (da wo AP203 steht, einfach ein Hinzufuegen angeben). Dann die Einstellungen entsprechend aendern. Das Format kann jederzeit wieder aufgreufen werden. Gruss Catrin ------------------ CATIS GmbH 38444 Wolfsburg catrin.eger@catis.de www.catis.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
V5Paul Mitglied Technischer Angestellter
 
 Beiträge: 411 Registriert: 12.01.2003 R12SP6, W2KSP4, WINXPSP1
|
erstellt am: 08. Sep. 2004 20:03 <-- editieren / zitieren --> Unities abgeben:          Nur für Michel39
|
Filippo Mitglied CAx-Systemverwalter
 
 Beiträge: 168 Registriert: 09.11.2003
|
erstellt am: 08. Sep. 2004 20:11 <-- editieren / zitieren --> Unities abgeben:          Nur für Michel39
Hallo Michel, es get auch viel einfacher, hier das Makro. ####################################################### Language="VBSCRIPT" Sub CATMain() Dim productDocument1 As Document Set productDocument1 = CATIA.ActiveDocument Dim product1 As Product Set product1 = productDocument1.Product Dim assemblyConvertor1 As CATBaseDispatch Set assemblyConvertor1 = product1.GetItem("BillOfMaterial") 'Der inhalt der unteren Variablen kann untereinander auch ausgetauscht werden Dim arrayOfVariantOfBSTR1(4) arrayOfVariantOfBSTR1(0) = "Überarbeitung " arrayOfVariantOfBSTR1(1) = "Teilenummer" arrayOfVariantOfBSTR1(2) = "Typ" arrayOfVariantOfBSTR1(3) = "Nomenklatur " arrayOfVariantOfBSTR1(4) = "Menge" assemblyConvertor1.SetCurrentFormat arrayOfVariantOfBSTR1 ' Wenn man will kann man die untere Variable auch auskomentieren Dim arrayOfVariantOfBSTR2(1) arrayOfVariantOfBSTR2(0) = "Menge" arrayOfVariantOfBSTR2(1) = "Teilenummer" assemblyConvertor1.SetSecondaryFormat arrayOfVariantOfBSTR2 ' Damit kann man die Stückliste als Excel-Format abspeichen 'assemblyConvertor1.Print "XLS", "C:\temp\stückliste.xls", product1 End Sub ######################################## Ciao Filippo
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RDeppe Mitglied Maschinenbautechniker

 Beiträge: 35 Registriert: 27.02.2002
|
erstellt am: 09. Sep. 2004 08:30 <-- editieren / zitieren --> Unities abgeben:          Nur für Michel39
|
Filippo Mitglied CAx-Systemverwalter
 
 Beiträge: 168 Registriert: 09.11.2003
|
erstellt am: 09. Sep. 2004 12:00 <-- editieren / zitieren --> Unities abgeben:          Nur für Michel39
|
RDeppe Mitglied Maschinenbautechniker

 Beiträge: 35 Registriert: 27.02.2002
|
erstellt am: 14. Sep. 2004 13:56 <-- editieren / zitieren --> Unities abgeben:          Nur für Michel39
|
Filippo Mitglied CAx-Systemverwalter
 
 Beiträge: 168 Registriert: 09.11.2003
|
erstellt am: 17. Sep. 2004 13:23 <-- editieren / zitieren --> Unities abgeben:          Nur für Michel39
|
Filippo Mitglied CAx-Systemverwalter
 
 Beiträge: 168 Registriert: 09.11.2003
|
erstellt am: 17. Sep. 2004 20:05 <-- editieren / zitieren --> Unities abgeben:          Nur für Michel39
|
atngmbh Mitglied Konstrukteur

 Beiträge: 43 Registriert: 24.04.2002
|
erstellt am: 15. Feb. 2005 11:56 <-- editieren / zitieren --> Unities abgeben:          Nur für Michel39
Hallo Filippo, ich habe Dein Script etwas erweitern wollen bekomme aber immer eine Fehlermeldung? Keine Ahnung warum. Vieleicht kannst Du mir dabei helfen. ' Damit kann man die Stückliste als Excel-Format abspeichen Dim Datei as CATBSTR Datei = CATIA.FileSelectionBox ("Datei auswählen", "*.xls", CATFileSelectionModeSave) assemblyConvertor1.Print "XLS", Datei, product1 Danke
Gruß Uwe Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
amigician Mitglied Berechnungsingenieur
 
 Beiträge: 176 Registriert: 18.06.2004 P4 3Ghz 1GB RAM WinXP SP2 CATIA R15SP5 (Ansys, IcemCFD, CFX) 10.0
|
erstellt am: 01. Jul. 2005 10:18 <-- editieren / zitieren --> Unities abgeben:          Nur für Michel39
|