Autor
|
Thema: Drawing Name (945 mal gelesen)
|
Martin K Mitglied Konstrukteur, CAD Administrator
Beiträge: 141 Registriert: 24.01.2002
|
erstellt am: 28. Feb. 2008 16:02 <-- editieren / zitieren --> Unities abgeben:
Hallo Bin nicht sehr fit in Makroprogrammierung. Hat bis jetzt aber gereicht. Nun suche ich deinen Parameter. Und zwar möchte ich den Modellnamen einer Drawing auslesen. Leider wird die Drawing aus VPM aufgerufen. Wenn ich nach dem CATIA.ActiveDocument.Name frage wird der HexacodeVPM Name ausgegeben. In der Drawing wird aber der richtige Name im Strukturbaum angegeben. Kann man auf diesen Parameter zugreifen? Danke Gruß Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RSchulz Moderator² Head of CAD, Content & Collaboration / IT-Manager
Beiträge: 5541 Registriert: 12.04.2007 @Work Lenovo P510 Xeon E5-1630v4 64GB DDR4 Quadro P2000 256GB PCIe SSD 512GB SSD SmarTeam V5-6 R2016 Sp04 CATIA V5-6 R2016 Sp05 E3.Series V2019 Altium Designer/Concord 19 Win 10 Pro x64
|
erstellt am: 28. Feb. 2008 16:27 <-- editieren / zitieren --> Unities abgeben: Nur für Martin K
Hallo, versuchs mal mit Dim DRW as Drawingdocument set DRW = CATIA.ActiveDocument msgbox Drw.name Wenn da nichts bei rumkommt, wird warscheinlich nicht der Name im Baum angezeigt... ------------------ MFG Rick Schulz Konfuzius sprach: "Wer sich das Alte noch einmal vor Augen führt, um das Neue zu verstehen, der kann anderen ein Lehrer sein."
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Martin K Mitglied Konstrukteur, CAD Administrator
Beiträge: 141 Registriert: 24.01.2002
|
erstellt am: 28. Feb. 2008 16:39 <-- editieren / zitieren --> Unities abgeben:
Hallo Rick Genau das habe ich ja geschrieben. Ich kann nicht auf den CATIA.ActiveDocument Name zugreifen da dieser aus VPM kommt. Der richtige Name wird aber von VPM an CATIA übergeben. Der Strukturbaumeintrag ist ja richtig
Gruß Martin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAMiCADse Mitglied
Beiträge: 177 Registriert: 17.02.2006 V5,R19,SP9
|
erstellt am: 28. Feb. 2008 17:23 <-- editieren / zitieren --> Unities abgeben: Nur für Martin K
|
Martin K Mitglied Konstrukteur, CAD Administrator
Beiträge: 141 Registriert: 24.01.2002
|
erstellt am: 29. Feb. 2008 09:24 <-- editieren / zitieren --> Unities abgeben:
|
martin2 Mitglied Konstrukteur
Beiträge: 941 Registriert: 05.2002.27 Windows 11 / 64bit CATIA V5-6R2018 bis V5-6R2022
|
erstellt am: 28. Sep. 2010 11:34 <-- editieren / zitieren --> Unities abgeben: Nur für Martin K
|
martin2 Mitglied Konstrukteur
Beiträge: 941 Registriert: 05.2002.27
|
erstellt am: 02. Feb. 2011 10:22 <-- editieren / zitieren --> Unities abgeben: Nur für Martin K
|
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 02. Feb. 2011 10:35 <-- editieren / zitieren --> Unities abgeben: Nur für Martin K
Servus Sollte über den Titel des Fensters gehen: Code: Sub Test()Dim oWindow As Window Set oWindow = CATIA.ActiveWindow MsgBox (oWindow.Caption) End Sub
Den String musst du eventuell noch "nacharbeiten" ("Rolle1..." abschneiden).Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Nachwuchs - Konstrukteur (m/w/d) | ibb, der Engineering Spezialist. Wir entwickeln und konstruieren Produkte, Anlagen, Betriebsmittel und Werkzeuge. Wir optimieren mit FEM Analysen und Simulationen. Wir unterstützen Prozesse von der Arbeitsvorbereitung, Fertigung bis hin zum Qualitätsmanagement. CAD Aus- und Weiterbildungen als zertifizierter Bildungsträger runden unser Portfolio ab. Wir möchten unser Team erweitern und entwickeln.... | Anzeige ansehen | Konstruktion, Visualisierung |
|
martin2 Mitglied Konstrukteur
Beiträge: 941 Registriert: 05.2002.27
|
erstellt am: 02. Feb. 2011 16:28 <-- editieren / zitieren --> Unities abgeben: Nur für Martin K
Hallo nochmal, Besten Dank - es funktioniert!!! Anbei noch der Codeausschnitt: For Each aktuellesDokument In alleDokumente 'Zeichnungen If TypeOf aktuellesDokument Is DrawingDocument Then Dim oWindow As Window Dim strInfo() As String Set oWindow = CATIA.ActiveWindow strInfo = Split(oWindow.Caption, " ", -1, vbTextCompare) Name_neu = txtSpeicherpfad.Text & strInfo(0) MsgBox Name_neu lblaktuelleDatei = Name_neu frmHauptformular.Repaint aktuellesDokument.SaveAs (Name_neu) End If Next Gruß Martin
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |