Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  CATIA V5 Programmierung
  Stückliste mit Makro speichern

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
3DVisualisierung für die Fertigungsindustrie
Autor Thema:  Stückliste mit Makro speichern (3204 mal gelesen)
JohannesWW
Mitglied



Sehen Sie sich das Profil von JohannesWW an!   Senden Sie eine Private Message an JohannesWW  Schreiben Sie einen Gästebucheintrag für JohannesWW

Beiträge: 158
Registriert: 09.10.2008

CATIA v5 R16 Intel Core Duo 2,5Ghz 2 GB RAM Windows XP SP3

erstellt am: 24. Aug. 2010 12:24    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

mit folgendem Makro definieren wir unser Stücklistenformat und spreichern anschließend die Stückliste als EXCEL ab.

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")
Dim arrayOfVariantOfBSTR1(9)
arrayOfVariantOfBSTR1(0) = "Nummer"
arrayOfVariantOfBSTR1(1) = "Menge"
arrayOfVariantOfBSTR1(2) = "Teilenummer"
arrayOfVariantOfBSTR1(3) = "Produktbeschreibung"
arrayOfVariantOfBSTR1(4) = "Hersteller"
arrayOfVariantOfBSTR1(5) = "Werkstoff"
arrayOfVariantOfBSTR1(6) = "Abmessung"
arrayOfVariantOfBSTR1(7) = "Type"
arrayOfVariantOfBSTR1(8) = "DIN"
arrayOfVariantOfBSTR1(9) = "Typ"
assemblyConvertor1.SetCurrentFormat arrayOfVariantOfBSTR1

Dim Speicherziel As String

Speicherziel = CATIA.FileSelectionBox("Sichern unter", "*.xls", CatFileSelectionModeSave)
   
If Right(Speicherziel, 3) = "xls" Then
assemblyConvertor1.[Print] "XLS", Speicherziel, product1

Else
assemblyConvertor1.[Print] "XLS", Speicherziel & ".xls", product1

End If
   
End Sub

Ich würde gerne auch automatisch abspeichern, wobei der Dateinamen aus der Teilenummer und der Beschreibung des Produkts bestehen soll.

Wie kann ich Teilenummer und Beschreibung abfragen?

Gruß

Johannes

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11937
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 24. Aug. 2010 20:42    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für JohannesWW 10 Unities + Antwort hilfreich

Servus
Versuch es mal mit:
Code:
dim FullPath as String
FullPath = productDocument1.Path & "\" & product1.PartNumber & ".xls"
assemblyConvertor1.[Print] "XLS", FullPath, product1

Gruß
Bernd

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

[Diese Nachricht wurde von bgrittmann am 24. Aug. 2010 editiert.]

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

JohannesWW
Mitglied



Sehen Sie sich das Profil von JohannesWW an!   Senden Sie eine Private Message an JohannesWW  Schreiben Sie einen Gästebucheintrag für JohannesWW

Beiträge: 158
Registriert: 09.10.2008

CATIA v5 R16 Intel Core Duo 2,5Ghz 2 GB RAM Windows XP SP3

erstellt am: 25. Aug. 2010 10:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Danke für die Hilfe Bernd.

Aber kann ich auch aus den Eigenschaften die Beschreibung des Products in den Dateinamen bekommen?

Gruß

Johannes

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11937
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 25. Aug. 2010 11:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für JohannesWW 10 Unities + Antwort hilfreich

Servus
Die Beschreibung bekommst du über:
Code:
product1.DescriptionRef

Ich weiß aber nicht was passiert wenn ein Zeilenwechsel bzw ein Sonderzeichen in der Beschreibung vorkommt (ungültiges Zeichen im Dateinamen?).

Gruß
Bernd

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

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

tberger
Mitglied
Application Manager CATIA V5 / V6


Sehen Sie sich das Profil von tberger an!   Senden Sie eine Private Message an tberger  Schreiben Sie einen Gästebucheintrag für tberger

Beiträge: 1385
Registriert: 13.01.2007

WIN 7 64bit
V5R21SP3HF49
3DX/V6 R2016x

erstellt am: 25. Aug. 2010 11:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für JohannesWW 10 Unities + Antwort hilfreich

Das geht mit

.DescriptionRef

------------------
Grüße aus dem Thurgau
Thomas

+++++++++++++++++++++++++++++++++

CATIA - eine Laune der Natur ...

"Phase 2 in CATIA V5"  - www.tobeplus.de

         tberger@tobeplus.de

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

Sergei1985
Mitglied
Konstrukteur

Sehen Sie sich das Profil von Sergei1985 an!   Senden Sie eine Private Message an Sergei1985  Schreiben Sie einen Gästebucheintrag für Sergei1985

Beiträge: 8
Registriert: 27.03.2024

Catia V5 R24

erstellt am: 28. Mrz. 2024 14:08    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für JohannesWW 10 Unities + Antwort hilfreich

Hallo zusammen,

ich habe ein ähnliches Problem mit dem Speichern.

Die Stückliste immer mit dem selben Namen abzuspeichern geht.

Sub CATMain()

'Dim MyProduct As Product
Set MyProduct = CATIA.ActiveDocument.Product

'Dim  catFileTypeText As CatFileType
MyProduct.ExtractBOM  catFileTypehtml , "W:\000000_Transfer\CAD-Miclas X\BOM.html"

End Sub

Jetzt möchte ich gerne die Teilenummer und die Nomenklatur als Dateinamen haben.
Name1 = Produkt.PartNumber
Name2 = Produkt.Nomenclature

Kann ich das ohne großen aufwand mit in den Code einbauen. Ich bin was VBA angeht leider nicht ganz auf der Höhe. Bis jetzt habe ich mit logischem hin und her kopieren helfen können...

Vielen Dank im voraus.

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

Randle
Mitglied
CAD/PLM Consultant


Sehen Sie sich das Profil von Randle an!   Senden Sie eine Private Message an Randle  Schreiben Sie einen Gästebucheintrag für Randle

Beiträge: 730
Registriert: 12.04.2003

Win10 x64
CATIA V5 R18, R19, R21, R27-29

erstellt am: 28. Mrz. 2024 14:26    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für JohannesWW 10 Unities + Antwort hilfreich

Hallo,

Code:

Dim BomName as String
BomName = Product.PartNumber & "_" &Product.Nomenclature & ".html"
MyProduct.ExtractBOM  catFileTypehtml , "W:\000000_Transfer\CAD-Miclas\x\" &  BomName

Gruß Randle

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

[Diese Nachricht wurde von Randle am 28. Mrz. 2024 editiert.]

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

Sergei1985
Mitglied
Konstrukteur

Sehen Sie sich das Profil von Sergei1985 an!   Senden Sie eine Private Message an Sergei1985  Schreiben Sie einen Gästebucheintrag für Sergei1985

Beiträge: 8
Registriert: 27.03.2024

Catia V5 R24

erstellt am: 28. Mrz. 2024 14:44    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für JohannesWW 10 Unities + Antwort hilfreich

Der meckert leider diese Zeile an, Spalte 0
BomName = Product.PartNumber & "_" &Product.Nomenclature & ".html"

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

bgrittmann
Moderator
Konstrukteur


Sehen Sie sich das Profil von bgrittmann an!   Senden Sie eine Private Message an bgrittmann  Schreiben Sie einen Gästebucheintrag für bgrittmann

Beiträge: 11937
Registriert: 30.11.2006

CATIA V5R19

erstellt am: 28. Mrz. 2024 15:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für JohannesWW 10 Unities + Antwort hilfreich

Servus

MyProduct ist bei dir das Product-Object

Code:
BomName = MyProduct.PartNumber & "_" & MyProduct.Nomenclature & ".html"
Gruß
Bernd

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

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

Randle
Mitglied
CAD/PLM Consultant


Sehen Sie sich das Profil von Randle an!   Senden Sie eine Private Message an Randle  Schreiben Sie einen Gästebucheintrag für Randle

Beiträge: 730
Registriert: 12.04.2003

Win10 x64
CATIA V5 R18, R19, R21, R27-29

erstellt am: 28. Mrz. 2024 15:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für JohannesWW 10 Unities + Antwort hilfreich

Ja, richtig. Sorry.

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

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

Sergei1985
Mitglied
Konstrukteur

Sehen Sie sich das Profil von Sergei1985 an!   Senden Sie eine Private Message an Sergei1985  Schreiben Sie einen Gästebucheintrag für Sergei1985

Beiträge: 8
Registriert: 27.03.2024

Catia V5 R24

erstellt am: 28. Mrz. 2024 15:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für JohannesWW 10 Unities + Antwort hilfreich

Makro läuft sauber durch.

Vielen Dank und schöne Ostern

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2024 CAD.de | Impressum | Datenschutz