Autodesk

Inventor: auf Knopfdruck Schriftkopf tauschen

Blogdatum
16.09.2015
von Artaker CAD Systems
Ich habe in meinem letzten Projekt ein kleines VBA Tool geschrieben welches dafür verwendet werden kann, aus einer angegeben Vorlage (Pfad) den Schriftkopf in die aktuelle Zeichnung zu kopieren. Benutzung auf eigene Gefahr Sub Schriftkopf_tauschen()
   
   
    Dim odrawdoc As DrawingDocument
   
    On Error Resume Next
    Set odrawdoc = ThisApplication.ActiveDocument     If (odrawdoc.DocumentType <> kDrawingDocumentObject) Then Exit Sub
   
    Dim oTemplate As DrawingDocument
    Dim oSourceTitleBlockDef As TitleBlockDefinition
    Dim oNewTitleBlockDef As TitleBlockDefinition
    Dim oSheet As Sheet
    Dim titlename As String
   
    Dim Titelblock As TitleBlock
   
    Set oSheet = odrawdoc.ActiveSheet
   
    Set Titelblock = odrawdoc.ActiveSheet.TitleBlock
   
        If (Titelblock Is Nothing) Then
            MsgBox ("Kein Schriftkopf vorhanden")
            Exit Sub
               
        ElseIf (Titelblock.Name = "DIN") Then
            titlename = "DIN"
         
        Else:
            MsgBox ("Kein DIN Schriftkopf vorhanden")
            Exit Sub
        End If
   
    Set oTemplate = ThisApplication.Documents.Open("C:PROTOTYPENNorm.idw", False)
    Set oSourceTitleBlockDef = oTemplate.ActiveSheet.TitleBlock.Definition
    Set oNewTitleBlockDef = oSourceTitleBlockDef.CopyTo(odrawdoc, True)
   
    ' Iterate through the sheets.
    For Each oSheet In odrawdoc.Sheets
        'oSheet.Activate if error occurs
        oSheet.TitleBlock.Delete
        Call oSheet.AddTitleBlock(oNewTitleBlockDef)
    Next
    oTemplate.Close
   
    Exit Sub End Sub     Zwei Zeilen müssen auf die aktuelle Umgebung angebpasst werden: 1) Pfad an der die Prototypen Datei vorhanden ist Set oTemplate = ThisApplication.Documents.Open("C:TempPROTOTYPENnorm.idw", False)
  2) Name des Schriftkopfes ElseIf (Titelblock.Name = "DIN") Then
            titlename = "DIN"
SCHLAGWÖRTER
Abonnements Advance Steel AEC Collection Angebot Anlagenbau Architektur artaker AutoCAD AutoCAD LT Autodesk Autodesk Account Autodesk Construction Cloud Autodesk Docs Autodesk Login Autodesk Software Autodesk University Automatisierte Rohrklassentests Automatisierungswerkzeug Baugruppen BIM BIM 360 BIM Collaborate BIM Lösungen BIM Objekte BIM Projekt BIM Prozesse BIM Symposium BIM World BIM-Starterpaket Blechteile Civil 3D Collection coolorange Corona DACH Bibliothek Dateiformate Datenmanagement Digitale Transformation Digitaler Umschwung Digitalisierung Dokumentenmanagement Dynamo ERP ERP-Schnittstelle Fertigungsindustrie Fusion 360 Gebäudeausrüster Generatives Design Handbuch Home-Office IFC Industrie 4.0 Inhaltscenter IntegaDesign Integration in Plant 3D Inventor Inventor 2026 Job-Server KI Komponente Kundenservice Künstliche Intelligenz Maschinenbau Mechanical mightyBrowser Mobile Model Management Bundle Multi-User My Esel Nachhaltigkeit Navisworks Nesting Utility Netzwerklizenzen Neuerungen Nummernschemata Nutzungsbericht Online Training openBIM P&ID Plant 3D plm powerEvents powerGate Client powerGate Server powerJobs Processor powerPLM (powerFLC) powerVault Product Design und Manufacturing Collection Product Lifecycle Management Product Release Projektplattform ReCap Report Creator Revit Revit LT Rohrklassen Schulungen Seriennummer Sicherheitslücke SpecCheck Stahlbau Subscription SuCri Support Sustainability Training Trainingshandbuch TurnOn Tutorials Update Vault Vault Server Vernetzung Visualisierungswerkzeug Vorgängerversionen VR-Brille Webinar Werkzeugkasten What\'s new Workshops YouTube
RSS Feed
Beitrag teilen:  
zurück zur Übersicht
Artaker CAD Systems