---

Hallo Zusammen,

ich möchte gerne meine Achsensysteme Upgraden da dies als
Lösung eines PMRs vorgeschlagen wurde. Leider schaffe ich es
bis jetzt nicht auf die Achsensysteme zuzugreifen die sich in
einem Geometrical Set befinden. Bei den anderen die sich unter
Axis Systems befinden ist dies kein Problem!(siehe unten)

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim axisSystems1 As AxisSystems
Set axisSystems1 = part1.AxisSystems

Dim axisSystem1 As AxisSystem
Set axisSystem1 = axisSystems1.Item("Axis System")

part1.UpdateObject axisSystem1

part1.Update

End Sub

Hat jemand eine Idee wie und ob ich auf Achsensysteme in einem
Geometrical Set zugreifen kann??

Gruß

Marko

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

---

Moin Marko,

an diese Achsensysteme kommst du mit der Selektion ran.
Problematisch wird es nur wenn du nur bestimmte Systeme haben willst und
du nicht weißt wo diese sich befinden, wenn du aber weißt wo die liegen
oder gar alle bearbeiten willst funktioniert das.

Dazu sollte es auch Beiträge hier geben!

Gruß
Proofin

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

---

Hallo Proofin,

danke erst mal! Aber muss ich nicht wenn ich mit
einer Selection arbeite irgendetwas im Baum anklicken
bevor ich das entsprechende Element bekomme??

Gruß
Marko

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

---

Hi,

kannst du mal etwas genauer Beschreiben was du vorhast.

Du kannst auch über ein Befehl Objekte selektieren ohne das der Anwender eingreifen muß.
z.B.
dim sSel
set sSel = CATIA.ActiveDocument.Selection
sSel.Search("Typ=Achsensystem,all")

Diese Zeilen selektieren alle Achsensysteme im aktive Dokument.
Zu Beachten ist, das der Suchstring sprachabhängig ist in meinem Bsp. für die deutsche Version.

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

---

Ja kann ich! Ich möchte einfach alle Achsensysteme in einem Part Updgraden. Dürfte ja, wenn man eines per Script auswählen kann auch kein Problem sein, alle nacheinander zu durchlaufen! Ich habe allerdings keine Ahnung wie die Achsensysteme heissen und wo sie genau liegen, in GeoSets oder unter Axis Systems!

Gruß

Marko

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

---

Was verstehst du unter Upgraden?

Wenn du alle bearbeiten willst kannst du über die Search Funktion( wie oben beschrieben)
alle selektieren und mit 'ner FOR Schleife die einzelnen Objekt abarbeiten.

Über sSel.Count bekommst du die Anzahl der selektierten Objekte und über 
sSel.item(ii).value bekommst du das Objekt.

Gruß
Proofin

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

---

Upgrade.gif

Hallo!
Was ich unter Upgrade verstehe habe ich dir mal als Screenshot
angehängt! Sollte man bei Linkaktualisierungproblemen durchführen!
Ich werde deinen Lösungsansatz versuchen umzusetzen!

Danke und Gruß

Marko

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

---

Versuch mal folgendes:

Dim oMySel
Dim oAxis(200)
Dim iCount
Dim iZaehler

Set oMySel.CATIA.ActiveDocument.Selection

oMySel.Clear
oMySel.Search(" .'Axis System';all ")
If oMySel.Count2>0 Then
  iZaehler=oMySel.Count2
  For iCount=1 To oMySel.Count2
      Set oAxis(iCount)=oMySel.Item2(iCount).Value
  Next
  oMySel.Clear
  For iCount=1 To iZaehler
      oMySel.Clear
      oMySel.Add oAxis(iCount)
      CATIA.StartCommand("Upgrade")
      oMySel.Clear
  Next
End If

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