---

Hallo,
wie kann ich mir auf einer Profilkarte eines CATPart oder Products einen Wert z.B. Projektleiter aus der Profilkarte des dazugehörigen Projects anzeigen lassen?

Gruß
C. Leson

P.S.: Ich habe schon mit Verknüpfungsklassen herumprobiert habe es aber leider nicht hinbekommen.

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

---

Hallo,

folgendes ist hierzu notwendig:
1. Ein ReferenceToClass Feld in der Klasse CATIA Part, mit der Referenzklasse Projekt und einer Projektion für das gewünschte Attribut.
2. Ein Script, dass bei der Linkerstellung zwischen Projekt und CATIA Part diese Referenz einträgt.

Folgende Fragen würde ich allerdings im Hinterkopf behalten:
- Wird ein Part nur mit einem Projekt verlinkt?
- Was soll in dem Feld stehen, wenn es mit mehr als einem Projekt verlinkt wird?
- Was soll passieren, wenn das Part mit einem anderen Projekt verlinkt wird => Script?

------------------
Gruß,

mkh

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

---

Hallo,
um das Problem genauer darzustellen:

Ich möchte in der Project Profilkarte die verwendete CAD-Umgebung (z.B. DC oder BMW) hinterlegen.
Dieses Attribut CAD-Umgebung, soll dann beim anlegen eines Parts auf dessen Profilkarte übernommen werden.
Geht dies nur mit einem Script oder auch über Verknüpfungen?

Danke für die Hilfe

------------------
Gruß

C. Leson

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

---

Hi,

das kannst du über ein Script machen.

Vom Prinzip her :
über die GUI oder das CAD Interface das selektierte Projekt holen,
Werte die Du benötigst in die geöffnete Profilkarte kopieren.
Das geht entweder im Screen Startup oder mit einem Button.

Gruß
Christian

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

---

Hallo,

erstmal Dank für die schnelle Antwort.

Leider bin ich bei der Scripterstellung für SmarTeam noch Anfänger und kann mit den allgemeinen Antworten noch nicht das Meiste Anfangen.
Gibt es z.B. ein Beispielscript in dem ein Wert aus einem Projekt geholt wird?

------------------
Gruß

C. Leson

[Diese Nachricht wurde von Polyboy am 30. Apr. 2007 editiert.]

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

---

Hi,

hier ein kleines Beispiel dazu,

'Projektfinden :

'' Wenn eines in SmarTeam Editor selektiert wurde
  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

'' Wenn über CAD Speichern durchgeführt wird

  If Project Is Nothing Then
 
  On Error GoTo KeinProjekt
  ' the script is called from the integration
  Dim SmCAD As SmCADInterface
  Set SmCAD = smsession.GetService("SmCAD.SmCADInterface")
  Dim ProjectObjId As Long
  Dim ProjectClassId As Integer
  Dim RetCode As Integer
  RetCode = SmCAD.GetProject(ProjectObjId, ProjectClassId)
    If Not IsMissing(smsession.MetaInfo.SmAllClasses.ItemByClassId(ProjectClassId).Name) Then
    ' Nur ein Trick um einen Fehler zu produzieren, wenn die die Klasse nicht vorhanden ist.
    ' Dies kann z.B. bei einer Separaten Top Down Ansicht der Fall sein
    End If
    Dim Fparentid As Long
    Dim Fparentclassid As Integer
    RetCode = SmCAD.GetParent(Fparentid, Fparentclassid)
    If ProjectObjId = -2147483647 Or ProjectObjId = 0 Then
        '        MsgBox "Kein Projekt gewählt", vbOKOnly, "ProjectToDocument"
        '        ProjectToDocument = ercGen
        '        Exit Function
    Else
    Set Project = smsession.ObjectStore.RetrieveObject(ProjectClassId, ProjectObjId)
    End If
  End If

'' so und nun hast Du das Project Object aus dem Du die gewünschten Werte abholen kannst.

msgbox Project.Data.ValueAsString("TDM_ID")
.
.
.
.
Exit Function

KeinProjekt:
msgbox "Doch kein Projekt gewählt"

End Function

Gruß
Christian

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