Autor
|
Thema: Größe CATPart ermitteln (905 mal gelesen)
|
Tweety79 Mitglied Entwicklung Automotive
Beiträge: 269 Registriert: 09.12.2007 WPF, VBA, CATScript, Access
|
erstellt am: 08. Mai. 2019 14:11 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, wie kann ich von einem geöffneten CATPart auslesen, wie die Dateigröße ist? Über Fullname komme ich an den Speicherort und den Namen, aber wie greife ich auf die Größe zu? Grüße
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 08. Mai. 2019 14:26 <-- editieren / zitieren --> Unities abgeben: Nur für Tweety79
Servus Schau dir mal dazu das File-Objekt an. Dieses hat die Methode Size. Über GetFile solltest du auf die Datei zugreifen können. Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Tweety79 Mitglied Entwicklung Automotive
Beiträge: 269 Registriert: 09.12.2007 WPF, VBA, CATScript, Access
|
erstellt am: 08. Mai. 2019 14:46 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd, meinst du so: Dim mySize mySize = myProductDoc1.Application.FileSystem.GetFile(myCatiaApp.ActiveDocument.FullName).Size Als was muss ich mySize dann deklarieren? Integer wird mir als Fehler unterstrichen. THX Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 08. Mai. 2019 14:54 <-- editieren / zitieren --> Unities abgeben: Nur für Tweety79
|
Tweety79 Mitglied Entwicklung Automotive
Beiträge: 269 Registriert: 09.12.2007 WPF, VBA, CATScript, Access
|
erstellt am: 16. Mai. 2019 10:55 <-- editieren / zitieren --> Unities abgeben:
Servus Bernd, im vb.NET funktioniert meine Zeile nicht, um die Part Größe auszulesen. Jetzt möchte ich es über Script im CATIA herausfinden und dann in vb.NET überführen und hätte gedacht so - über Item und nicht über Dokument: Sub CATMain() set DokInst = CATIA.ActiveDocument.Product.Products.Item(1) ' erstes Bauteil eines Products MsgBox DokInst .Application.FileSystem.GetFile(myCatiaApp.ActiveDocument.FullName).Size End Sub Funktioniert aber auch nicht. Hast du eine Idee? Danke. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Randle Mitglied CAD/PLM Consultant
Beiträge: 695 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29
|
erstellt am: 16. Mai. 2019 11:19 <-- editieren / zitieren --> Unities abgeben: Nur für Tweety79
|
Tweety79 Mitglied Entwicklung Automotive
Beiträge: 269 Registriert: 09.12.2007 WPF, VBA, CATScript, Access
|
erstellt am: 16. Mai. 2019 11:31 <-- editieren / zitieren --> Unities abgeben:
|
Randle Mitglied CAD/PLM Consultant
Beiträge: 695 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29
|
erstellt am: 16. Mai. 2019 11:51 <-- editieren / zitieren --> Unities abgeben: Nur für Tweety79
|
Tweety79 Mitglied Entwicklung Automotive
Beiträge: 269 Registriert: 09.12.2007 WPF, VBA, CATScript, Access
|
erstellt am: 16. Mai. 2019 12:48 <-- editieren / zitieren --> Unities abgeben:
Das wäre die Zeile: My.Computer.FileSystem.GetFileInfo("C:\Neues Textdokument.txt").Length Wie kann ich mich jetzt auf ein Part im Product referenzieren ohne Pfad und Partnamen in der Klammer anzugeben? Also anstatt "C:\Neues Textdokument.txt" myProduct3 aus dem bestehenden Coding. Danke. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Randle Mitglied CAD/PLM Consultant
Beiträge: 695 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29
|
erstellt am: 16. Mai. 2019 12:54 <-- editieren / zitieren --> Unities abgeben: Nur für Tweety79
|
Tweety79 Mitglied Entwicklung Automotive
Beiträge: 269 Registriert: 09.12.2007 WPF, VBA, CATScript, Access
|
erstellt am: 16. Mai. 2019 14:55 <-- editieren / zitieren --> Unities abgeben:
Hi, danke schon mal. Das wäre mein Code: Dim productDocument1 As ProductStructureTypeLib.ProductDocument Dim myNamePart As String productDocument1 = myCatiaApp.ActiveDocument Dim product2 As ProductStructureTypeLib.Product Dim products1 As ProductStructureTypeLib.Products products1 = productDocument1.Product product2 = products1.Item(1) Dim product3 As ProductStructureTypeLib.Product product3 = products1.Item(2) myNamePart = products1.ReferenceProduct.Parent.FullName Mit der letzten Zeile greife ich den ganzen Namen ab, aber vom Product. Ich bräuchte die Namen aber von Item 1 und 2, also von product2 und product3. Für product2 kann ich aber nirgends FullName auswählen. Danke. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Randle Mitglied CAD/PLM Consultant
Beiträge: 695 Registriert: 12.04.2003 Win10 x64 CATIA V5 R18, R19, R21, R27-29
|
erstellt am: 16. Mai. 2019 17:35 <-- editieren / zitieren --> Unities abgeben: Nur für Tweety79
|
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 16. Mai. 2019 17:59 <-- editieren / zitieren --> Unities abgeben: Nur für Tweety79
|