---

Hi folks,
gibt es eine Möglichkeit die Materialliste einer .ipt komplett und separat auszudrucken?

Vielen dank schon mal im voraus für schnelle Hilfe.

ciao Andreas

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

---

Hallo Andy,

wenn ich Dich richtig verstehe, willst Du alle verfuegbaren Materialien aufgelistet haben ??? Wenn's das ist, dann:

Private Sub getMaterials()

  Dim oApp As Application
  Set oApp = ThisApplication

  Dim oDoc As PartDocument
  Set oDoc = oApp.ActiveDocument

  Dim oMats As Materials
  Set oMats = oDoc.Materials
 
  Dim oMat As Material
 
  For Each oMat In oMats
   
    ' Materialbezeichnung in's Debug-Fenster ausgeben oder sonst was
    ' damit machen
    Debug.Print oMat.Name
 
  Next oMat
 
End Sub

Gruesse,

Paul

www.morecam.ch/cad.htm

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

---

Hallo Paul,

danke für die schnelle Antwort.

Ich hätte vielleicht vorausschicken müssen dass ich in punkto VBA gänzlich ahnungslos bin. Gib mir doch bitte zwei, drei Stichworte, die mir helfen deine Programmzeilen an die richtige Stelle zu kopieren (immer vorausgesetzt, das ganze lässt sich einem Laien wie mir in zwei, drei Stichworten erklären)

ciao, Andreas

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

---

Hallo Andreas,

erst mal: brauchst Du das Ding nur einmal oder mehrmals ? Wenn Du es nur einmal brauchst, dann kannst Du es nach 'ThisDocument' kopieren: Extras - Makro - Visual Basic Editor

Dort findest Du als Titel 'Document Project (DeinPfadUndDateiname)'. Doppelklick den Eintrag 'ThisDocument' und kopier den code in's Code-Fenster.

Wenn Du aber den code mehrmals brauchen solltest, dann leg ihn in Dein ApplicatinProjekt. Dann musst Du aber diesen code hier nehmen (prueft, ob es ein Part-Doc ist und das Sub ist Public):

Public Sub getMaterials()

  Dim oApp As Application
  Set oApp = ThisApplication
 
  If oApp.ActiveDocumentType <> kPartDocumentObject Then
    MsgBox "Nur für Part-Dokumente", 16, "Unerwarteter Fehler"
    Exit Sub
  End If
 
  Dim oDoc As PartDocument
  Set oDoc = oApp.ActiveDocument

  Dim oMats As Materials
  Set oMats = oDoc.Materials
 
  Dim oMat As Material
 
  For Each oMat In oMats
 
    Debug.Print oMat.Name
 
  Next oMat
 
End Sub

Diesen code kannst Du nun ueber 'Extras - Makros - Makros' anschmeissen. Da wirst Du allerdings nichts sehen, da die Ausgabe der Materialien in's Debug-Fenster geht....

Gruesse,

Paul

www.morecam.ch/cad.htm

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