---

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

---

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

---

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

---

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

---

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

---

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

---

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

---

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

---

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

---

Ja, richtig. Sorry.

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

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

---

Makro läuft sauber durch.

Vielen Dank und schöne Ostern

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