| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: .xlsx mit iLogic erzeugen (493 / mal gelesen)
|
8023 Mitglied
Beiträge: 3 Registriert: 07.09.2022 Inventor 2022
|
erstellt am: 07. Sep. 2022 08:29 <-- editieren / zitieren --> Unities abgeben:
|
Roland Schröder Moderator Dr.-Ing. Maschinenbau, Entwicklung & Konstruktion von Spezialmaschinen
Beiträge: 13310 Registriert: 02.04.2004 IV 2019 + 2020 + 2021 W7pro64 F-Secure-Safe Dell-M4600 2,13GHz 12GB Quadro2000M 15,4"1920x1080 MS-IntelliMouse-Optical SpacePilotClassic
|
erstellt am: 07. Sep. 2022 11:07 <-- editieren / zitieren --> Unities abgeben: Nur für 8023
|
8023 Mitglied
Beiträge: 3 Registriert: 07.09.2022 Inventor 2022
|
erstellt am: 07. Sep. 2022 11:34 <-- editieren / zitieren --> Unities abgeben:
Moin.. ich möchte einige Eigenschaften aus einer .asm .iam heraus in eine Excel exportieren um sie bei der Zeichnung wieder einfügen zu können. Allerding existiert die .xlsx normal nicht und die Regel wirft einen Fehler. Dann muss ich diese extra manuell erstellen... das nerft Deshalb möchte das die Regel machen lassen. [Diese Nachricht wurde von 8023 am 07. Sep. 2022 editiert.]
[Diese Nachricht wurde von 8023 am 07. Sep. 2022 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2428 Registriert: 15.11.2006 Windows 10 x64, AIP 2023
|
erstellt am: 07. Sep. 2022 14:05 <-- editieren / zitieren --> Unities abgeben: Nur für 8023
Hallo Warunm öffnest du nicht die Zeichnung (dabei wird die Assembly im Hintergrund mit geöffnet) und kopierst die Daten direkt? Ich verstehe den Sinn des Umweges nicht. So könnte man es mit Excel machen:
Code:
myXLS_File = "C:\Temp\Test.xlsx" excelApp = CreateObject("Excel.Application") excelApp.DisplayAlerts = FalseIf Dir(myXLS_File) <> "" Then excelWorkbook = excelApp.Workbooks.Open(myXLS_File) ExcelSheet = excelWorkbook.Worksheets(1) Else excelWorkbook = excelApp.Workbooks.Add End If With excelApp .Range("A1").Select .ActiveCell.FormulaR1C1 = iProperties.Value("Project", "Part Number") End With excelApp.Columns.AutoFit excelWorkbook.SaveAs (myXLS_File) excelWorkbook.Close excelApp.Quit excelApp = Nothing
------------------ MfG Ralf RKW Solutions GmbH www.RKW-Solutions.com Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
8023 Mitglied
Beiträge: 3 Registriert: 07.09.2022 Inventor 2022
|
erstellt am: 07. Sep. 2022 15:19 <-- editieren / zitieren --> Unities abgeben:
ich finde iLogic recht anstrengend dokumentiert (oder ich hab die Doku noch nicht gefunden ) und bin froh, dass es macht was es soll, was ich mir an Codeschnippseln zusammengeklau(b)t hab ich schau mir das heut Abend mal an, Danke für eure Mühen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
rkauskh Moderator Dipl.-Ing. (FH) Versorgungstechnik
Beiträge: 2428 Registriert: 15.11.2006 Windows 10 x64, AIP 2023
|
erstellt am: 07. Sep. 2022 22:18 <-- editieren / zitieren --> Unities abgeben: Nur für 8023
|