---

Hi!

Ich würde im IV 2021 gerne ein Makro schreiben, womit ich Automatisch meine Bauteile auf einer .idw, auf einem definierten Template ablegen kann. Evtl. sogar alles in einer Datei als würde man "Neues Blatt" auswählen.

Ist sowas möglich, bzw. kann mir damit jemand Helfen? Oder wäre das zu umständlich? 

Grüße
Daniel

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

---

Hallo Daenschel,

kannst du vielleicht genauer beschreiben was du genau vorhast?

Weil für ALT+C in Teil oder BG benötigt man ja eigentlich nicht wirklich ein Macro. Vorlage lässt sich dann aus Vorlagenordner wählen.

Mutmaßlich hast du wohl etwas spezielleres vor.

Grüße

EIBe 3D

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

---

Ich würde am liebsten alles einfach in eine BG schmeißen, und dann für jedes Teil automatisch eine Zeichnung erstellen bzw. am liebsten wie schon beschrieben in einer .idw ablegen als würde man "Neues Blatt" verwenden.

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

---

ok - die idw ist kein Buch und sollte nicht viele Blätter beinhalten. Sehr gut hat sich je Teil eine Zeichnung bewährt. Mit deiner eigentlichen Frage kann ich leider nicht helfen. herzlich Sascha

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

---

Arbeitsblattformate könnte das Thema sein ...

------------------

------------------
Der Clown ist die wichtigste Mahlzeit am Tag.

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

---

Zitat:

---

Original erstellt von Daenschel:
Ich würde am liebsten alles einfach in eine BG schmeißen, und dann für jedes Teil automatisch eine Zeichnung erstellen bzw. am liebsten wie schon beschrieben in einer .idw ablegen als würde man "Neues Blatt" verwenden.

---

Konnte Ähnliches auch grad brauchen.

Ggf. ist Hier und da noch Error Handling von Nöten.

Legt aus allen Teilen einer BG eine Zeichnung an (inkl. Teile in UBGs). Werden dort gespeichert wo das Teil liegt.

ÜBERSCHEIBT bereits vorhandene Zeichnungen im Ordner!!

Code:

---

Sub ZeichnungenAusBG()

Dim oApp As Application
Set oApp = ThisApplication

Dim oDoc As Document
Dim oAsmDoc As AssemblyDocument
Dim oPrtDoc As PartDocument
Dim oDrwDoc As DrawingDocument
Dim sDrwNamePath As String
Dim oSheet As Sheet
Dim Punkt As Point2d
Dim oDocType As DocumentTypeEnum

Set oDoc = oApp.ActiveDocument
oDocType = oDoc.DocumentType

Dim oRefDoc As Document
Dim oAllRefDocs As DocumentsEnumerator

Dim sTemplate As String
sTemplate = oApp.DesignProjectManager.ActiveDesignProject.TemplatesPath & "Norm.idw" 'Norm.idw muss im Vorlagenordner liegen!!

oApp.SilentOperation = True

If oDocType = kAssemblyDocumentObject Then

    Set oAllRefDocs = oDoc.AllReferencedDocuments
   
    For Each oRefDoc In oAllRefDocs
        If oRefDoc.DocumentType = kPartDocumentObject Then
           
            oApp.Documents.Open oRefDoc.FullDocumentName
           
            Set oDoc = oApp.ActiveDocument
           
            Set oDrwDoc = oApp.Documents.Add(DocumentTypeEnum.kDrawingDocumentObject, sTemplate)
           
            Set oSheet = oDrwDoc.ActiveSheet
           
            Set Punkt = oApp.TransientGeometry.CreatePoint2d(10, 10)

            Call oSheet.DrawingViews.AddBaseView(oDoc, Punkt, 1, kFrontViewOrientation, kHiddenLineRemovedDrawingViewStyle)
           
            sDrwNamePath = Left(oRefDoc.FullFileName, Len(oRefDoc.FullFileName) - 4) & ".idw"
           
            Call oDrwDoc.SaveAs(sDrwNamePath, False)
           
            Call oRefDoc.Close
           
        End If
    Next

End If

oApp.SilentOperation = False

End Sub

---

Läuft in INV2018

Viel Spaß

EIBE 3D

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