|
Inventor VBA : ein kleines Druck-plugin
Bluejay am 05.01.2012 um 08:13 Uhr (0)
Guten Morgen zusammen,ich wollte noch einmal kurz das Problem erläutern was ich nicht gelöst bekomme. Wir haben einen Drucker der mit dem Formaten A2 und A1 in Übergröße druckt. Starte ich das Druckmakro scheint er dieses Format nicht zuerkennen denn er zentriert die Zeichnung nicht auf dem Papier?Ich habe es schon versucht mit der Eingabe von spezifischen Blattformaten oDrgPrintMgr.PaperSize = kPaperSizeCustom oDrgPrintMgr.PaperHeight = 45 oDrgPrintMgr.PaperWidth = 64.9und mit der fu ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : ein kleines Druck-plugin
Bluejay am 05.01.2012 um 13:23 Uhr (0)
Zitat:Original erstellt von Bluejay:Guten Morgen zusammen,ich wollte noch einmal kurz das Problem erläutern was ich nicht gelöst bekomme. Wir haben einen Drucker der mit dem Formaten A2 und A1 in Übergröße druckt. Starte ich das Druckmakro scheint er dieses Format nicht zuerkennen denn er zentriert die Zeichnung nicht auf dem Papier?Ich habe es schon versucht mit der Eingabe von spezifischen Blattformaten oDrgPrintMgr.PaperSize = kPaperSizeCustom oDrgPrintMgr.PaperHeight = 4 ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : ein kleines Druck-plugin
Bluejay am 05.01.2012 um 08:13 Uhr (5)
Guten Morgen zusammen,ich wollte noch einmal kurz das Problem erläutern was ich nicht gelöst bekomme. Wir haben einen Drucker der mit dem Formaten A2 und A1 in Übergröße druckt. Starte ich das Druckmakro scheint er dieses Format nicht zuerkennen denn er zentriert die Zeichnung nicht auf dem Papier?Ich habe es schon versucht mit der Eingabe von spezifischen Blattformaten oDrgPrintMgr.PaperSize = kPaperSizeCustom oDrgPrintMgr.PaperHeight = 45 oDrgPrintMgr.PaperWi ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnungsresourcen
Bluejay am 02.07.2012 um 11:52 Uhr (0)
Hallo zusammen und Danke für alle Antworten,anbei das fertige Makro mit dem ich nun alle Zeichnungsresourcen aus der Vorlage in die Aktive Zeichnung kopieren kann. Vielleicht kann es ja jemand brauchen!Sub Zeichnungsresourcen()ersetzt die Zeichnungsresourben in der aktuellen Zeichnung durch die der Template If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then Dim ZielDoc As DrawingDocument Set ZielDoc = ThisApplication.ActiveDocument Dim Blatt As Sheet Set Blatt = ZielDoc.ActiveSheet Dim i, ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnungsresourcen
Bluejay am 28.06.2012 um 11:52 Uhr (0)
Hallo Zusammen,ich habe eine kleine Frage und zwar beschäftige ich mich noch immer mit dem unten aufgeführten Makro - ich bin ein Anfäger in diesem Bereich und würde mich über jede Unterstützung freuen.Was ich erreichen zu versuche - die gesamten Zeichnungsresourcen in der activen Zeichnung mit denen der Vorlage abzugleichen.Ziel: 1. Rahmen, Schriftfeld aus Zeichnung löschen2. Kopieren von den gesamten Resourcen aus Vorlage in die Resourcen der activen Zeichnung (Symbole die auf der Zeichnug sind und nicht ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnungsresourcen abgleich
Bluejay am 28.09.2012 um 08:31 Uhr (0)
Guten Tag zusammen,Fals es jemand braucht ein Makro das die Zeichnungsresourcen(Rahmen, Symbole usw) und die Stilbiliothek mit einer Vorlage Datei bzw mit der globalen Stilbibliotek abgleicht und die nicht verwendete Stile löscht.Sub Zeichnungsresourcen()ersetzt die Zeichnungsresourben in der aktuellen Zeichnung durch die der Template If ThisApplication.ActiveDocumentType = kDrawingDocumentObject Then Dim ZielDoc As DrawingDocument Set ZielDoc = ThisApplication.ActiveDocument Dim Blatt As Sheet Set Blatt = ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Stücklisten Filter
Bluejay am 27.08.2021 um 10:15 Uhr (1)
Guten Tag zusammen,ich suche nach einer Möglichkeit eine Zeichnungsstückliste nach bestimmten Kriterien zu filtern / Anzuzeigen. Ich würde gerne in der Stückliste einer Baugruppe, die Komponenten von Unterbaugruppen (mit bestimmten Iprop "z.B. Montagegrupppe" in der Hauptstückliste summmiert anzeigen. Ich weiß, das dies einfach über die Phantom Funktion erledigt werden könnte, aber dann fehlt mir die Option auf der Zeichnung die Nummer der Montagebaugruppe anzuzeigen?Über alle Ideen hierzu bedanke ich mich ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Zeichnungsresourcen abgleich
Bluejay am 07.11.2012 um 07:37 Uhr (0)
Hallo Ehli,ich habe dier mal eine entstrippte Vorlagedatei wie ich sie im Netzwerk habe angehängt - dort kanst du auch herausfinden wie ich das mit den anpassbaren Rahmen für die verschiedenen Blattformate gemacht habe. Mit dem Schrifftfeldnamenseintrag sollte so Richtig sein - Die Symbole sollten funktionieren, allerdings werden Symbole die auf der Vorlage, sowie auf der Zeichnung vorhanden sind nicht gelöscht und ersetzt, nur in den Resourcen und zwar aus dem Grund, das diese einen Bezug zu Zeichnungsinh ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Kante aus Auswahl wählen
Bluejay am 26.10.2021 um 10:20 Uhr (1)
Guten Morgen zusammen,ich habe wieder mal eine kleine Frage: Ich möchte gerne im Zeichnungebrowser eine Unterbaugruppe auswählen und folgend per Makro an eine Kante dieser Auswahl einen Führungstext platzieren. Wie kann ich aus einem selectiertem Set eine Kante auswählen?Habt ihr einen Ansatz für mich: Dim oDrawingCurveSegment As DrawingCurveSegment Set oDrawingCurveSegment = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingCurveSegmentFilter, "Linie Auswählen")Momentan mache ich das noch üb ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : Führungslinientext formatieren
Bluejay am 21.06.2024 um 09:25 Uhr (1)
Guten Morgen zusammen,ich benutze folgendes Makro um den Text aller Führungslinientexte einer Zeichnung zu formatieren. Leider schreibt das Makro alles Texte in eine Zeile - ich möchte gerne alle Zeilen des Führungslinientextes erhalten. Könnt ihr mir hiermit helfen? Vielen Dank schon mal im voraus LGSub LeaderNoteTextSize2()Dim oDoc As DrawingDocumentSet oDoc = ThisApplication.ActiveDocumentDim oLeaderNote As LeaderNoteDim oFormattedText As StringFor Each oLeaderNote In oDoc.ActiveSheet.DrawingNotes.Leade ...
|
| In das Form Inventor VBA wechseln |
|
Inventor VBA : DXF Export auf Desktop
Bluejay am 02.07.2012 um 10:01 Uhr (1)
Guten Morgen zusammen,habe mal eine kurze Frage - wie kann ich dem unten aufgeführten Programm beibringen das es die Datei immer auf dem Desktop ablegt?Vielen Dank im vorausMFGPublic Sub CreateDXF() On Error Resume Next If ThisApplication.ActiveDocument.DocumentType kDrawingDocumentObject Then Exit Sub End If Dim oDoc As Inventor.DrawingDocument Set oDoc = ThisApplication.ActiveDocument If oDoc.FullFileName = "" Then MsgBox "Bitte zuerst die Zeichnung speichern... " Exit Sub End If oDo ...
|
| In das Form Inventor VBA wechseln |
