---

Hallo zusammen,

ich versuche mich gerade im CATScripten in Catia v5 und hänge fest. Und zwar geht es darum, dass ich ein CATScript erzeugen möchte, welches ich in einem CATProduct ausführen werde. Als ersten Schritt möchte ich ein aktives CATPart auswählen, in dem ich dann arbeiten möchte. Im zweiten Schritt möchte ich ein Achsensystem auswählen, welches im weiterhin aktiven CATPart geschehen soll, und nicht im CATProduct.

Im Moment funktioniert, das Auswählen des CATParts am Anfang oder die Selektierung des Achsensystems separat hervorragend, jedoch nicht in Kombination. Ich habe das Gefühl, dass ich auf die Selektion des Parts nicht noch eine Selektion des Achsensystems ausführen kann.

Ich habe mal die paar Script Zeilen unten hineinkopiert. Falls jemand eine Idee hat, an welcher Stelle geschraubt werden muss, würde ich mich sehr über jeden Hinweis freuen.

Sub CATMain()
Dim oSelP
Dim sFilterP(0)
Dim oSelectionP
Dim oSelPa
Dim sFilterPa(0)
Dim oSelectionPa

' -------------------------------------------------------------------
' Part selektieren
' -------------------------------------------------------------------

MsgBox("Please select active part!")
Set oSelPa = CATIA.ActiveDocument.Selection
    sFilterPa(0) = "Part"
    oSelectionPa = oSelPa.SelectElement2(sFilterPa, "Please select the CATPart", True)
If oSelectionPa ="Normal" Then
  Dim oSelPart As PartDocument
  Set oSelPart= oSelPa.Item(1).Value
End If

' -------------------------------------------------------------------
' Achsensystem selektieren
' -------------------------------------------------------------------

MsgBox("Please select the axis system as reference for the new point coordinates!")

Set oSelP = oSelPart.Selection 
'Set oSelP = CATIA.ActiveDocument.Selection  'Dieser Versuch hat die Aktivierung des Parts gelöscht und wieder das Produkt aktiviert
sFilterP(0) = "AxisSystem"
oSelectionP = oSelPart.SelectElement2(sFilterP, "Please select the axis system", True)
   
    If oSelectionP = "Normal" Then
        Set oAxissystem = oSelPart.Item2(1).Value
    End If

Vielen Dank und Grüsse,
jupo2804

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

---

Hallo.
Du brauchst keine Selection für das Part Definieren. Das brauchst du nur wenn du das Part im eigenen Fenster öffnest. Wenn du das Product geöffnet hast und dort direkt im Part arbeiten möchtest dann kannst du alles dort auch mit der selection vom Product selektieren.
Versuchs mal so

Code:

---

Sub CATMain()
Dim oSelP
Dim sFilterP(0)
Dim oSelectionP
Dim oSelPa
Dim sFilterPa(0)
Dim oSelectionPa

' -------------------------------------------------------------------
' Part selektieren
' -------------------------------------------------------------------

MsgBox("Please select active part!")
Set oSelPa = CATIA.ActiveDocument.Selection
    sFilterPa(0) = "Part"
    oSelectionPa = oSelPa.SelectElement2(sFilterPa, "Please select the CATPart", True)
If oSelectionPa ="Normal" Then
  Dim oSelPart As PartDocument
  Set oSelPart= oSelPa.Item(1).Value
End If

' -------------------------------------------------------------------
' Achsensystem selektieren
' -------------------------------------------------------------------

MsgBox("Please select the axis system as reference for the new point coordinates!")

sFilterP(0) = "AxisSystem"
oSelectionP = oSelPa.SelectElement2(sFilterP, "Please select the axis system", False) <==== hier hattest du auch noch oSelPart stehen. Das wäre sowieso nicht richtig weil das dein Part und nicht deine selection ist!
   
    If oSelectionP = "Normal" Then
        Set oAxissystem = oSelPa.Item2(1).Value
    End If

---

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

---

Hallo razzor88,

super! Vielen Dank für deine Hilfe. Das hat das Problem behoben.

Viele Grüsse!

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