| | |
 | CATIA V5 Grundkurs | Einsteiger - 5 Std. 15 Min 48 |
| | |
 | KISTERS 3DViewStation: Multitalent für Branchen und Nischenmärkte, eine Pressemitteilung
|
|
Autor
|
Thema: Drawing Name (1109 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
Ehrenmitglied V.I.P. h.c.
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: 1014
Registriert: 05.2002.27 Windows 11 / 64bit
CATIA V5-6R2020 bis V5-6R2024
|
erstellt am: 28. Sep. 2010 11:34 <-- editieren / zitieren --> Unities abgeben: Nur für Martin K
|
martin2
Mitglied
Konstrukteur
Beiträge: 1014
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: 12054
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 |
martin2
Mitglied
Konstrukteur
Beiträge: 1014
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 |
Foren auf CAD.de
| 
