---

Hallo Zusammen,

das ist mein erster Beitrag hier.
Ich bin Maschinenbau Student und Mitglied in dem Formula Student Teamg der Hochschule.
Da ich bei unserem Team für das CAD zuständig bin, möchte ich ein Makro erstellen das die Zeichnungserstellung erleichtert.

Bei meinem Praxissemster bei einem Automobilhersteller hatten wir ein ähnliches Makro.

Was ich mir vorstelle wäre, dass ich ein offenes Part/Produkt habe und das Makro starte.

Es öffnet sich eine Oberfläche wo man folgendes auswählen kann.

1. Zeichnungsgröße A3, A2, A1, A0 (danach wird die vorhandene Template gewählt)
2. Bauteil Name mit Teilenummer (alle Products/Parts sind richtig benannt, müsste man also da raus kopieren)
3. Werkstoff (ich habe eine Exel Liste mit den gängigsten Werkstoffen und Eigenschaften erstellt, müsste man aus der Excel einfügen)
4. Datum (das aktuelle automatisch einfügen, oder selbst eintragen)
5. Name des Konstrukteurs aus einer Dropdown liste auswählen (In einer weiteren Excel sind die Namen+ Telefonnummern+ Email vorhanden)

Die Daten die ausgewählt wurden, müssten dann in den Titleblock geschrieben werden.

Jetzt wäre meine Frage, wie ich da vorgehe?! Ich muss sagen dass ich blutiger makro anfänger bin (mal ein vorhandenes etwas abgewandelt, mehr aber auch nicht).
Gibt es vllt. schon etwas ähnliches?
Ich erwarte nicht, dass mir das hier jemand programmiert, würde ja selbst gern etwas dazu lernen.
Oder gibt es gute Literatur zur Programmierung?

Danke im Voraus für euere Hilfe!

Viele Grüße,
Daniel

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

---

Servus
Willkommen im Forum. Bitte Systeminfo ausfüllen.
Bevor du das ganze selbst programmieren willst, schau dir mal den Titel Block Editor von Michael Neukirchen an.

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

Hallo,
auf der HP ist die V4.1.3
auf  catia.cad.de ist die V4.4.3 zu finden.

------------------
Sei Schlau bleib Dumm !!?!!

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

---

Servus

Bei mir funktioniert das so, dass jeder Zeichnung hat Parameter-Gruppe mit Dinge zu ausfullen - Zeichnungsersteller, Zeichnungsdaten, index-Standt uzw. danach diese Parameters sind verbunded mit entsprechende Text-Felde...

Weiter, du kannst mit Inputbox die Paramteres ausfullen.

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

---

Hallo zusammen,

bei uns läuft das eigentlich vollautomatisch. Da ich das Ganze nicht mehr in vba, sondern .Net mit entsprechendem COM-Verweis geschrieben habe, konnte ich auch direkt auf die SmarTeam-Datenbank zugreifen und die aktuellsten Daten heranziehen. Der Rahmen an sich wird quasie vom Makro gezeichnet, hier hilft der Makrorecorder sehr gut weiter. Die Logiken drum herum muss man halt entwickeln. Die Oberfläche elbst kann man gestalten wie man möchte.

Hier mal das sehr einfache Beispiel aus der chm...

Code:

---

Option Explicit
' COPYRIGHT DASSAULT SYSTEMES 2002

' ***********************************************************************
'  Purpose:      This macro allows you to create a title block
'                      from Drawing Table
'  Author:
'  Languages:  VBScript
'  Locales:      English
'  CATIA Level: V5R10
' ***********************************************************************

Sub CATMain()

    ' Set the CATIA popup file alerts to False
    ' It prevents to stop the macro at each alert during its execution
    CATIA.DisplayFileAlerts = False

    ' Optional: allows to find the sample wherever it's installed
    dim sDocPath As String
    sDocPath=CATIA.SystemService.Environ("CATDocView")
    If (Not CATIA.FileSystem.FolderExists(sDocPath)) Then
      Err.Raise 9999,,"No Doc Path Defined"
    End If

    ' Variables declaration
    Dim oDrwDocument As DrawingDocument
    Dim oDrwSheets As DrawingSheets
    Dim oDrwSheet As DrawingSheet
    Dim oDrwView As DrawingView
    Dim oDrwTables As DrawingTables
    Dim oDrwTable As DrawingTable
   
    ' Create a new drawing document
    Set oDrwDocument = CATIA.Documents.Add("Drawing")

    ' Set the drawing document standard
    oDrwDocument.Standard = catISO
   
    ' Retrieve the drawing document's sheets collection
    Set oDrwSheets = oDrwDocument.Sheets

    ' Retrieve the active sheet
    Set oDrwSheet = oDrwSheets.ActiveSheet

    ' Set the sheet properties
    oDrwSheet.PaperSize = catPaperA4
    oDrwSheet.Orientation = catPaperLandscape
    oDrwSheet.Scale2 = 1
   
    ' Retrieve the active view of the sheet
    Set oDrwView = oDrwSheet.Views.ActiveView
    ' Retrieve the view's tables collection
    Set oDrwTables = oDrwView.Tables
   
    ' Create a new drawing table
    Set oDrwTable = oDrwTables.Add(107, 70, 9, 9, 5, 20)
   
    ' Set the drawing table's name
    oDrwTable.Name = "Title Block"

    ' Do not update drawing table modifications
    oDrwTable.ComputeMode = CatTableComputeOFF

    ' Merge drawing table's cells
    oDrwTable.MergeCells 1, 1, 2, 2
    oDrwTable.MergeCells 1, 3, 1, 7
    oDrwTable.MergeCells 2, 3, 2, 7
    oDrwTable.MergeCells 4, 3, 1, 7
    oDrwTable.MergeCells 5, 4, 1, 5
    oDrwTable.MergeCells 6, 3, 2, 1
    oDrwTable.MergeCells 6, 4, 2, 5
    oDrwTable.MergeCells 6, 9, 2, 1
    oDrwTable.MergeCells 7, 1, 2, 1
    oDrwTable.MergeCells 7, 2, 2, 1
    oDrwTable.MergeCells 8, 3, 2, 1
    oDrwTable.MergeCells 8, 4, 2, 1
    oDrwTable.MergeCells 8, 5, 2, 1
    oDrwTable.MergeCells 8, 6, 2, 1
    oDrwTable.MergeCells 8, 7, 2, 1
    oDrwTable.MergeCells 8, 8, 2, 1
    oDrwTable.MergeCells 8, 9, 2, 1

    ' Set the drawing table's row sizes
    oDrwTable.SetRowSize 1, 20
    oDrwTable.SetRowSize 2, 4
    oDrwTable.SetRowSize 3, 5
    oDrwTable.SetRowSize 4, 7
    oDrwTable.SetRowSize 5, 5
    oDrwTable.SetRowSize 6, 7
    oDrwTable.SetRowSize 7, 2
    oDrwTable.SetRowSize 8, 3
    oDrwTable.SetRowSize 9, 7

    ' Set the drawing table's column sizes
    oDrwTable.SetColumnSize 1, 45
    oDrwTable.SetColumnSize 2, 20
    oDrwTable.SetColumnSize 3, 15
    oDrwTable.SetColumnSize 4, 15
    oDrwTable.SetColumnSize 5, 27
    oDrwTable.SetColumnSize 6, 18
    oDrwTable.SetColumnSize 7, 20
    oDrwTable.SetColumnSize 8, 15
    oDrwTable.SetColumnSize 9, 15
   
    ' Update drawing table modifications
    oDrwTable.ComputeMode = CatTableComputeON

    CATIA.ActiveWindow.ActiveViewer.Reframe

End Sub

---

------------------
MFG
Rick Schulz

Nettiquette (CAD.de)  -  Was ist die Systeminfo?  -  Wie man Fragen richtig stellt.  -  Unities

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