| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Von der Idee zum Prototyp: Effiziente Prozesse im Rapid Prototyping, ein Webinar am 25.10.2024
|
Autor
|
Thema: Inventor Tabelle auf neues Blatt oder neue Zeichnung kopieren (3700 mal gelesen)
|
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9803 Registriert: 01.12.2003 AutoCAD 2.5 - 2025, Inventor AIP 4-2025 Windows 11 i7, 96 GB, SSD, Quadro P2200
|
erstellt am: 19. Aug. 2007 18:11 <-- editieren / zitieren --> Unities abgeben:
Ich vermisse die Drag & Drop Funktionalität für Zeichnungselemente für IV11 und IV 2008. Speziell geht es um eine ausgefüllte und gestaltete Inventor Tabelle (kein Excel OLE Objekt) ohne Tabellenbezug, welche ich auf eine andere Zeichnung übernehmen möchte (lediglich ein Eintrag muss verändert werden). Der Export/Import via Exceltabelle stellt mich dafür nicht zufrieden. Hab ich was übersehen? ------------------ Mit freundlichem Gruß Udo Hübner Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Michael Puschner Moderator Rentner
Beiträge: 13006 Registriert: 29.08.2003 Toshiba Encore mit MS Office Ein Programm sollte nicht nur Hand und Fuß, sondern auch Herz und Hirn haben. (Michael Anton)
|
erstellt am: 19. Aug. 2007 19:11 <-- editieren / zitieren --> Unities abgeben: Nur für CAD-Huebner
Zitat: Original erstellt von CAD-Huebner: ... Hab ich was übersehen? ...
Nein, Udo, du hast da nichts übersehen. Eine Tabellen-Objekt kann weder auf ein anderes Blatt verschoben, noch über die Zwischenablage kopiert werden. Nur wenn man das ganze Blatt oder das ganze Dokument kopiert, kommt die Tabelle mit. Warum das so ist? Keine Ahnung. Wahrscheinlich hat die Projektleitung "Abgeben!" gerufen und der Entwickler war noch nicht ganz fertig. Genauso verstehe ich nicht, warum man ein Blatt nicht innerhalb des selben Dokumentes kopieren kann, sondern den Umweg über ein temporäres zweites Dokument wählen muss. Zitat: Original erstellt von CAD-Huebner: ... Der Export/Import via Exceltabelle stellt mich dafür nicht zufrieden. ...
Etwas besser als der Weg über Excel ist das Kopieren des Tabelleninhaltes über die Zwischenablage. Hierzu die Tabelle bearbeiten, die gesamte Tabelle markieren (obere linke Ecke des Grids anklicken) und mit STRG C kopieren (im Kontextmenü steht es nicht drin). Auf dem neuen Blatt eine Tabelle mit der selben Größe anlegen, bearbeiten, die erste Zelle oben links anklicken und STRG V. Formatierung abweichend vom Stil? Pech gehabt! ------------------ Michael Puschner Autodesk Inventor Certified Expert Scholle und Partner GmbH Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 20. Aug. 2007 08:46 <-- editieren / zitieren --> Unities abgeben: Nur für CAD-Huebner
Hallo, das Makro kopiert die selektierte Tabelle von einem Blatt auf das andere. Wenn ich ein wenig mehr Zeit habe, schreibe ich ein AddIn dafür, und gestallte es ein wenig komfortabler mit einer Benutzeroberfläche. Code:
Sub FX64CopyCustomTable() Dim oDrawing As DrawingDocument Set oDrawing = ThisApplication.ActiveDocument Dim oSheet As Sheet Set oSheet = oDrawing.ActiveSheet ' ######### Selektierte Tabelle holen ########## Dim oTable As CustomTable On Error Resume Next Set oTable = oDrawing.SelectSet(1) If Err.Number <> 0 Then MsgBox "Bitte zuerst eine Tabelle selektieren", vbOKCancel, "Keine Selektion" Exit Sub End If Dim i As Integer Dim j As Integer ' ######### Spaltenbezeichnungen ############### Dim sColumnTitles() As String ReDim Preserve sColumnTitles(oTable.Columns.Count - 1) For i = 0 To oTable.Columns.Count - 1 sColumnTitles(i) = oTable.Columns(i + 1).Title Next ' ######### Tabelleninhalt ##################### Dim sContents() As String ReDim Preserve sContents((oTable.Rows.Count * oTable.Rows(1).Count) - 1) For i = 1 To oTable.Rows.Count For j = 0 To oTable.Rows(i).Count - 1 sContents(((i - 1) * oTable.Columns.Count) + j) = oTable.Rows(i).Item(j + 1).Value Next Next ' ######### Spaltenbreite ###################### Dim dColumnWidths() As Double ReDim Preserve dColumnWidths(oTable.Columns.Count - 1) For i = 0 To oTable.Columns.Count - 1 dColumnWidths(i) = oTable.Columns(i + 1).Width Next ' ######### Zeilenhöhe ######################### Dim dRowHeights() As Double ReDim Preserve dRowHeights(oTable.Rows.Count - 1) For i = 0 To oTable.Rows.Count - 1 dRowHeights(i) = oTable.Rows(i + 1).height Next ' ######### Auf Blatt2 wechseln ################ Dim oSheet2 As Sheet Set oSheet2 = oDrawing.Sheets(2) ' <--- Hier die Zahl für das Zielblatt einfügen oSheet2.Activate ' Für Blatt 3 z.B. Set oSheet2 = oDrawing.Sheets(3) ' ######### Die neue Tabelle einfügen ########## Call oSheet2.CustomTables.Add(oTable.Title, _ oTable.Position, _ oTable.Columns.Count, _ oTable.Rows.Count, _ sColumnTitles, _ sContents, _ dColumnWidths, _ dRowHeights) If Err.Number <> 0 Then MsgBox Err.Description, vbOKCancel, "Fehler" End If End Sub
------------------ Grüße Igor FX64 Software Solutions Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Christian-67 Mitglied Entwicklungsingenieur
Beiträge: 103 Registriert: 14.06.2006 DELL PRECISION 5810 RAM 32 GB Inventor 2018
|
erstellt am: 26. Sep. 2007 15:00 <-- editieren / zitieren --> Unities abgeben: Nur für CAD-Huebner
Hallo Igor, Habe deine Makro eingesetzt, bekomme aber die Meldung "Die Methode 'Add' für das Objekt '_IRCustomTables' ist fehlgeschlagen' Weist du vielleicht an was dass liegen kann?
------------------ Gruß Christian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
daywa1k3r Ehrenmitglied V.I.P. h.c. Softwareentwickler
Beiträge: 3497 Registriert: 01.08.2002 Desktop: 3.3GHz;8GB;SSD OCZ Vertex 3;Gainward Phantom GTX570 Laptop: Alienware m17x Win7, Inventor2012 64Bi
|
erstellt am: 26. Sep. 2007 15:22 <-- editieren / zitieren --> Unities abgeben: Nur für CAD-Huebner
|
Christian-67 Mitglied Entwicklungsingenieur
Beiträge: 103 Registriert: 14.06.2006 DELL PRECISION 5810 RAM 32 GB Inventor 2018
|
erstellt am: 26. Sep. 2007 15:27 <-- editieren / zitieren --> Unities abgeben: Nur für CAD-Huebner
|