---

Hallo zusammen,

ich habe eine Frage und zwar ich hab ein Koordinatensystem erzeugt wo Die Axe auch mit Koordinaten definiert sind, ich will auf diese Koordinaten zugreifen und mit Excel ändern, ist das möglich? ich hab das hier versucht, bekomme aber eine Fehlermeldung!!

?Catia.ActiveDocument.part.axissystems.item(1).XAxisDirection.X.value

Gruß Sawah

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

---

Hallo

Du kannst AxisSystem messen und Koordinaten auslesen.
Hier ist ein Beispiel:

Code:

---

Sub CATMain()

Set oPart = CATIA.ActiveDocument.Part
Set ASys = oPart.AxisSystems.Item("Axis System.2")
Set oRef = oPart.CreateReferenceFromObject(ASys)
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(oRef)

Dim Components(11)
TheMeasurable.GetAxisSystem Components

End Sub

---

------------------
Mit freundlichen Grüßen,
JuPaV

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

---

Hi,

vielen Dank für die Antwort. Klappt super.

Gruß Sawah

[Diese Nachricht wurde von sawah am 19. Jul. 2011 editiert.]

[Diese Nachricht wurde von sawah am 19. Jul. 2011 editiert.]

[Diese Nachricht wurde von sawah am 19. Jul. 2011 editiert.]

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

---

Hallo,

ich habe das probiert und funktioniert schon, aber bekomme werte was mit Catia net stimmen!!!
weißt jemand woran das liegen kann???

Code:

---

Sub CATMain()

Set oPart = CATIA.ActiveDocument.Part
Set ASys = oPart.AxisSystems.Item("KOS_2")
Set oRef = oPart.CreateReferenceFromObject(ASys)
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(oRef)

Dim Components(11)
TheMeasurable.GetAxisSystem Components

MsgBox Components(0) & vbLf & Components(1) & vbLf & Components(2) & vbLf & Components(3) & vbLf & Components(4) & vbLf & Components(5) & vbLf & Components(6) & vbLf & Components(7) & vbLf & Components(8) & vbLf & Components(9) & vbLf & Components(10) & vbLf & Components(11)
''Origon KOS1
'ws.Cells(74, 6).Value = Components(0)
'ws.Cells(75, 6).Value = Components(1)
'ws.Cells(76, 6).Value = Components(2)
''X Koordinaten
'ws.Cells(63, 2).Value = Components(3)
'ws.Cells(64, 2).Value = Components(4)
'ws.Cells(65, 2).Value = Components(5)
''Y Koordinaten
'ws.Cells(63, 3).Value = Components(6)
'ws.Cells(64, 3).Value = Components(7)
'ws.Cells(65, 3).Value = Components(8)
''Z Koordinaten
'ws.Cells(63, 4).Value = Components(9)
'ws.Cells(64, 4).Value = Components(10)
'ws.Cells(65, 4).Value = Components(11)

End Sub

---

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

---

Sieht für mich korrekt aus.

Das einzige was mir auffällt, ist dass die Deklarationen fehlen und alternativ die Arrays manchmal von 1 statt 0 anfangen.

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

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

---

Hallo,

ja hat sich erledigt, danke nochmal.

Gruß

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