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
2D Zeichnung 3D Warehouse 3D Zeichnung 3D-Modellierungslösung Abonnements ACC ACC Module Advance Steel AEC AEC Collection Angebot Anlagenbau Anleitung APS APS CAD Architektur artaker AU 2025 AutoCAD AutoCAD LT AutoCAD Plant 3D Autodesk Autodesk Account Autodesk Bridge Autodesk Build Autodesk Construction Cloud Autodesk Design Collaboration Autodesk Docs Autodesk Forma Autodesk Forma Industry Cloud Autodesk Inventor Autodesk Inventor iLogic Autodesk Login Autodesk Model Coordination Autodesk Platform Services Autodesk Plattform Services Autodesk Revit Autodesk Software Autodesk University Automated Product System Automatisierte Rohrklassentests Automatisierungswerkzeug Baugruppen Baustellenmanagement Bauwesen Benutzerdefinierter Status Bildung BIM BIM 360 BIM Collaborate BIM Collaborate Pro BIM Lösungen BIM Objekte BIM Projekt BIM Prozesse BIM Schulung BIM Symposium BIM Weiterbildung BIM World BIM-Starterpaket Blechteile Civil 3D Cloud Collection coolorange Corona D&M DACH Bibliothek Data Exchange Dateiformate Datenmanagement Datentransfer Design & Manufacturing Desktop Connector Digitale Transformation Digitaler Umschwung Digitalisierung Dokumentenmanagement Dynamo ERP ERP-Schnittstelle Facility Management Fertigungsindustrie Forma Forma Building Design Forma Connected Clients Forma Data Management Forma Site Design Forschung Fusion 360 Gebäudeausrüster Generatives Design Geschäftsmodell Government Gratis Kurse Handbuch Highlights Home-Office IFC Individualschulungen Industrie 4.0 Information Infrastruktur Inhaltscenter IntegaDesign Integration in Plant 3D Inventor Inventor 2026 Job-Server Katasthrophenschutz KI Komponente Kundenreferenz Kundenreferenzstory Kundenservice Kundenstory Künstliche Intelligenz LayOut Lizenzen verwalten Lizenzmanagement Maschinenbau Mechanical mightyBrowser Mobile Model Management Bundle Modellkoordination Multi-User My Esel Nachhaltigkeit Navisworks Nesting Utility Netzwerklizenzen Neuerungen Neugigkeiten News Nummernschemata Nutzungsbericht Öffentliche Gebäude Öffentliche Versorgungsunternehmen Öffentlicher Sektor Online Configurator Online Konfigurator Online Training openBIM P&ID Plant 3D plm powerEvents powerGate Client powerGate Server powerJobs Processor powerPLM (powerFLC) powerVault Praxiswissen Product Design und Manufacturing Collection Product Lifecycle Management Product Release Projektplattform ReCap Report Creator Revit Revit LT Rohrklassen Schnupperkurs Schulungen Schulungsangebot Seriennummer Sicherheitslücke SketchUp Softwarelösungen SpecCheck Stadtplanung Stahlbau Subscription SuCri Support Sustainability Tipps und Tricks Training Trainings Trainingshandbuch Transfer Tool Bridge Transport Treppenlifte Trimble TurnOn Tutorials Umweltschutz Update Updates V-Ray Vault Vault PLM Vault Server Ventile Verkehr Vernetzung Visualisierungswerkzeug Vorgängerversionen VR-Brille Webinar Werkzeugkasten What\'s new Workshops YouTube
RSS Feed
Beitrag teilen:  
zurück zur Übersicht
Artaker CAD Systems