Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Inventor
  Makro um Zeichnung zu erstellen

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
Autor Thema:   Makro um Zeichnung zu erstellen (312 mal gelesen)
Daenschel
Mitglied
Kontrukteur

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

Beiträge: 6
Registriert: 03.08.2020

erstellt am: 06. Aug. 2020 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

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

EIBe 3D
Mitglied
Dipl. - Ing. (FH)


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

Beiträge: 44
Registriert: 24.01.2020

HP Z4 G4 Workstation
Xeon 3,6 32GB
Nvidia P2000
WIN10
SW2015 SP5.0
SW2017
*************
Inv2018 akt.SP

erstellt am: 07. Aug. 2020 07:41    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 Daenschel 10 Unities + Antwort hilfreich

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

Daenschel
Mitglied
Kontrukteur

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

Beiträge: 6
Registriert: 03.08.2020

erstellt am: 07. Aug. 2020 08:02    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

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

freierfall
Ehrenmitglied V.I.P. h.c.
selbstst. techn. Zeichner



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

Beiträge: 10677
Registriert: 30.04.2004

WIN10 64bit, 32GB RAM
IV bis 2020
SWX Pro Flow 2019

erstellt am: 07. Aug. 2020 08:27    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 Daenschel 10 Unities + Antwort hilfreich

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

nightsta1k3r
Ehrenmitglied V.I.P. h.c.
plaudern



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

Beiträge: 10560
Registriert: 25.02.2004

Hier könnte ihre Werbung stehen!

erstellt am: 07. Aug. 2020 09:13    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 Daenschel 10 Unities + Antwort hilfreich

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

EIBe 3D
Mitglied
Dipl. - Ing. (FH)


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

Beiträge: 44
Registriert: 24.01.2020

HP Z4 G4 Workstation
Xeon 3,6 32GB
Nvidia P2000
WIN10
SW2015 SP5.0
SW2017
*************
Inv2018 akt.SP

erstellt am: 07. Aug. 2020 10:16    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 Daenschel 10 Unities + Antwort hilfreich

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

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)2020 CAD.de | Impressum | Datenschutz