Kleine Sektflaschen Hochzeit
7GHz 16GB NVidia Quadro M5010 Catia V5R19 VB6Pro. SP6/VBA 6. 1053 erstellt am: 29. 2015 11:14 <-- editieren / zitieren --> Unities abgeben: Nur für dabreit Hallo Daniel, ich schildere Dir mal meine Gedanken beim lesen Deines Posts: Zitat: ich möchte einen Zeichnungsrahmen für die Blattgröße A0 bis A4 automatisch im drafting anpassen. Toll! Nur Mut! Nur - automatisch ist's nur, wenn Du's so machst. Dann bist hier im falschen Forum. Zitat: Hab gelesen, dass man das Schriftfeld und die Zeichnungsrahmen in 2 Details abspeichern muss, aber eine genauere Anleitung wär mir hilfreich. Zeichnungsrahmen. Au weia! Der weiss ja gar nix! Zwei je Format, wobei der Schriftkopf gewöhnlich identisch ist; bei A4 eventuell nicht. Um das zu automatisieren, musst das Format aus lesen und anschliessend zwei Dittos ins Blatt einfügen. Das geht mit einem Makro. Dafür gibt's das Programmier-Forum. Um eine Idee zu bekommen, wie das Makro aussehen könnte, würd ich die erforderlichen Schritte für ein Format mit dem Makro-Rekorder aufzeichnen.
Die Werte für die Attribute können aus den CATIA V5-Standardeigenschaften und auch aus den benutzerdefinierten Eigenschaften ausgelesen werden. Konfiguration von bis zu 20 Attributen im Standard. Standardattribute wie z. B. Teilenummer, Nomenklatur, Definition können direkt übernommen werden. Weitere benutzerdefinierte Attribute können in einer Konfigurationsdatei hinzugefügt werden. Die Dokumentation der Änderungshistorie ist in einer Tabelle möglich. Änderungen werden in einem Tabelleneditor eingetragen und in die Zeichnung übernommen. Die Tabellenspalten sind frei konfigurierbar Überschriften Spaltenbreite Standard 6 Spalten Folgende drei Arten der Änderungstabelle sind möglich: Innerhalb des Schriftkopfs Die Lage richtet sich nach dem Schriftkopf-Layout der Kundenzeichnung. Catia v5 zeichnungsrahmen einfügen e. Außerhalb des Schriftkopfs - Bottom Up Die Änderungstabelle steht oberhalb des Schriftkopfs und wächst von unten nach oben. Außerhalb des Schriftkopfs - Top Down Die Änderungstabelle steht außerhalb des Schriftkopfs in der rechten oberen Ecke der Zeichnung und wächst von oben nach unten.
◦ Assoziative Bemaßungen neu berechnen (Recompute Associative Dimensions) – Berechnet Bemaßungswerte oder den Abstand der 2D-Elemente von den Maßhilfslinien einer Bemaßung neu, bevor die Bemaßungen den Elementen zugeordnet werden, die den Maßhilfslinien am nächsten sind. Catia v5 zeichnungsrahmen einfügen video. Verwenden Sie diese Option mit der Option Assoziative Bemaßungen importieren (Import Associative Dimensions) oder Bemaßungen automatisch zuordnen (Automatically Associate Dimensions). Assoziative Bemaßungen neu berechnen (Recompute Associative Dimensions) wird ausgewählt, wenn Sie die Konfigurationsoption intf2d_in_recompute_dim_value auf yes einstellen. ◦ Bemaßungen automatisch zuordnen (Automatically Associate Dimensions) – Ordnet die importieren Bemaßungen automatisch den entsprechenden 2D-Elementen zu, wenn die Bemaßungen vor dem Importieren nicht zugeordnet waren. Bemaßungen automatisch zuordnen (Automatically Associate Dimensions) wird ausgewählt und Assoziative Bemaßungen neu berechnen (Recompute Associative Dimensions) ist verfügbar, wenn Sie die Konfigurationsoption auto_associate_dimensions auf yes einstellen.
Alle Informationen dazu finden Sie hier.
00. 0. 0 / 01. 05. 2013 ' Description:Auswahl von Zeichnungsvorlagen ' ' Manual: ' Modifications: '------------------------------------------------------------------------------- ' 1. Catia v5 zeichnungsrahmen einfügen en. 2010 - TH ' created ' ****************************************************************************** '------------------------------------------------------------------------- Dim oFenster As Windows Dim ObjType As String Set oFenster = If = 0 Then Box = MsgBox("Es ist kein Dokument geladen! " + Chr(10) + "Das Makro kann nicht ausgefuehrt werden und wird beendet! ", vbCritical, "Keine Dokument geladen") Exit Sub End If Set oRoot = tiveDocument ObjType = TypeName(oRoot) If ObjType <> "PartDocument" Then If ObjType <> "DrawingDocument" Then Box = MsgBox("Das aktive Dokument ist kein Part! "