Hot News:

Unser Angebot:

  Foren auf CAD.de (alle Foren)
  ENOVIA SmarTeam
  Projekt erkennen mittels Script

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
Autor Thema:  Projekt erkennen mittels Script (998 mal gelesen)
floe
Mitglied
Application Engineer


Sehen Sie sich das Profil von floe an!   Senden Sie eine Private Message an floe  Schreiben Sie einen Gästebucheintrag für floe

Beiträge: 32
Registriert: 22.03.2004

erstellt am: 28. Aug. 2007 11:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo zusammen

Folgende Ausgangslage:
Ein Document-Object (z.B. CATIA Part) ist unter einem Folder Object angehängt, welches zu einem Project gehört. Das Document-Object hat ebenfalls einen Link zum Project.
Nun kann es sein, dass das Document-Object in mehreren Projects vorkommt, zu diesen ebenfalls einen Link hat.

Num möchte ich auf diesem Document-Object ein UDT erstellen, welches auch erkennen sollte in welchem Project ich mich aktuell befinde.. Ich kriege ohne Probleme alle verlinkten Projects heraus, doch in welchem befinde ich mich gerade? Gibt es da eine Möglichkeit?

Besten Dank
gruss floe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

ChristianS
Moderator
Leiter Kundenbetreuung


Sehen Sie sich das Profil von ChristianS an!   Senden Sie eine Private Message an ChristianS  Schreiben Sie einen Gästebucheintrag für ChristianS

Beiträge: 635
Registriert: 27.09.2000

erstellt am: 28. Aug. 2007 18:12    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für floe 10 Unities + Antwort hilfreich

Hi,

  Dim Project As ISmObject
  Dim GUI As SmCommonGUI
  Set GUI = smsession.GetService("SmGUISrv.SmCommonGUI")

  Dim ViewWindow As ISmViewWindow
  Set ViewWindow = GUI.ActiveViewWindow

  If Not ViewWindow Is Nothing Then
 
  ' the script is called from the documents view
         
  Dim View As ISmView
  Set View = ViewWindow.smView
  Dim Controller As Object ' variant object of SmGUISrv.ISmGUIComponent class fam
  Set Controller = View.Controller
  ' main object for view is requested project
  Set Project = Controller.DataSource.MainClassObject
  End If


Gruß
Christian

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

floe
Mitglied
Application Engineer


Sehen Sie sich das Profil von floe an!   Senden Sie eine Private Message an floe  Schreiben Sie einen Gästebucheintrag für floe

Beiträge: 32
Registriert: 22.03.2004

erstellt am: 29. Aug. 2007 13:08    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

hi Christian

besten dank für deine hilfe.
komme leider grad nicht zum testen, bin aber gespannt 

gruss floe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

alias
Mitglied
CAD Betreuer


Sehen Sie sich das Profil von alias an!   Senden Sie eine Private Message an alias  Schreiben Sie einen Gästebucheintrag für alias

Beiträge: 282
Registriert: 25.09.2003

erstellt am: 16. Jan. 2008 08:28    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für floe 10 Unities + Antwort hilfreich

Hallo,
habe Programm getestet, da ich es ebenfalls benötigen würde, erhalte aber dann keine Daten zum Projekt
z.b. msgbox Project.Data.ValueAsString("TDM_ID") liefert leeren String

Danke für jede Hilfe 

Habs gefunden, mir fehlte noch:

Project.Retrieve

[Diese Nachricht wurde von alias am 16. Jan. 2008 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz