Autor
|
Thema: Namen einer Scene ermitteln (1434 mal gelesen)
|
RAA Mitglied CAD/PDM-Supporter
Beiträge: 57 Registriert: 05.08.2009 HP Z420 Intel Xeon 3,6GHz 32GB Windows 7 Enterprise V5R19+R22+R24+R26 VB.net 2010
|
erstellt am: 21. Feb. 2013 17:28 <-- editieren / zitieren --> Unities abgeben:
Hallo, wie kann man den Namen einer Scene auf die eine View weist ermitteln? Zu sehen ist er im Link-Editor unter "To element", aber mir gelingt es nicht per VB darauf zuzugreifen. Ich habe bereits einige andere Themen hierzu durchgearbeitet. Beim Nachvollziehen der Beispiele scheitert bei mir schon der Versuch etwas wie: Dim oScenes as ProductScenes zu dimensionieren. Frage nebenbei: Welchen Verweis von VB muss ich machen damit o.g. Zeile gültig ist? mfg Rainer Asmus 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: 21. Feb. 2013 17:36 <-- editieren / zitieren --> Unities abgeben: Nur für RAA
|
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 21. Feb. 2013 18:17 <-- editieren / zitieren --> Unities abgeben: Nur für RAA
Servus Wenn eine Ansicht von einer Szene abgeleitet wurde, liefert dir dieser Code den Namen der Szene. Code: Sub CATMain()Dim drawingDocument1 As DrawingDocument Set drawingDocument1 = CATIA.ActiveDocument Dim drawingSheets1 As DrawingSheets Set drawingSheets1 = drawingDocument1.Sheets Dim drawingSheet1 As DrawingSheet Set drawingSheet1 = drawingSheets1.ActiveSheet Dim drawingViews1 As DrawingViews Set drawingViews1 = drawingSheet1.Views Dim drawingView1 As DrawingView Set drawingView1 = drawingViews1.ActiveView MsgBox drawingView1.GenerativeBehavior.Document.Name End Sub
Gruß Bernd------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RAA Mitglied CAD/PDM-Supporter
Beiträge: 57 Registriert: 05.08.2009 HP Z420 Intel Xeon 3,6GHz 32GB Windows 7 Enterprise V5R19+R22+R24+R26 VB.net 2010
|
erstellt am: 22. Feb. 2013 08:37 <-- editieren / zitieren --> Unities abgeben:
Hallo Bernd, Danke für den Hinweis. Ich habe heute morgen durch etwas "fummeln" auch eine Lösung gefunden: drawingView1.GenerativeLinks.FirstLink.Name Worin dort jetzt ein Unterschied besteht, versuche ich noch herauszufinden, aber besser 2 Lösungen als keine ;-) mfg Rainer Asmus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |