---

hallo! ich wüsste gerne,wie man bei einer bestehenden aufspannung per VBA-makro die achse zum beispiel nach (3,3,3) zeigen lässt!

------------------
-Windows 7 64 bit
-Catia V5 r19

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

---

Hallo,
ich denke das könnte evtl. besser ins Programmierforum passen.

Weiterhin handelt es ich meiner Meinung nach um Vektoren, welche Werte zwischen -1 und +1 haben sollten.

Gruß
Martin

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

---

alles klar martin,nur da antwortet leider keiner. weißt du vllt auch,wie man bei einem gerade ins prismatic-machining modul geladenen modul per makro das bearbeitungs-achsen-system neu setzt. ich habe es so probiert:

Code:

---

Sub catmain()

Dim a As ProcessDocument
Set a = CATIA.ActiveDocument

Dim b As PPRDocument
Set b = a.PPRDocument

Dim c As Activities
Set c = b.Processes

Dim d As PPRActivity
Set d = c.Item(1)

Dim e As ChildrenActivities
Set e = d.ChildrenActivities

Dim f As ManufacturingSetup
Set f = e.Item(1)

Dim x, y, z As Double
Dim g As ManufacturingMachiningAxis
Set g = f.MachiningAxisSystem
g.SetOriginZDirection (1,1,1)
end sub

---

und in der kursiven zeile kommt es zu einem "syntax-fehler". weißt du was d los ist?

------------------
-Windows 7 64 bit
-Catia V5 r19

[Diese Nachricht wurde von adrian83 am 28. Apr. 2013 editiert.]

[Diese Nachricht wurde von adrian83 am 28. Apr. 2013 editiert.]

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

---

Servus
Ich vermute dass du einen Vektor mit dem Betrag 1 einsetzen musst (zB 1,0,0). In CATIA ist es üblich das Richtungen mit einem Einheitsvektor angegeben werden (zb sonst auch recht häufig in der Mathematik)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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

---

hi,nachdem ich hier soviel erfahren habe,hier der richtige code für die das nc-achssystem setzen,es lag am "call",oder am getItem vorher statt item
normierter richtungsvektor braucht man nicht

Code:

---

Option Explicit

Sub catmain()

Dim a As ProcessDocument
Set a = CATIA.ActiveDocument

Dim b As PPRDocument
Set b = a.PPRDocument

Dim c As Activities
Set c = b.Processes

Dim d As PPRActivity
Set d = c.Item(1)

Dim e As ChildrenActivities
Set e = d.ChildrenActivities

Dim f As ManufacturingSetup
Set f = e.GetItem("Part Operation.1")

Dim x, y, z As Double

Dim g As ManufacturingMachiningAxis
Set g = f.MachiningAxisSystem
Call g.SetOriginZDirection(3, 3, 3)

End Sub

---

------------------
-Windows 7 64 bit
-Catia V5 r19

[Diese Nachricht wurde von adrian83 am 03. Mai. 2013 editiert.]

[Diese Nachricht wurde von adrian83 am 03. Mai. 2013 editiert.]

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

---

Servus
Fragen zu VB und VBA gehören eher ins Programmier Forum.
Alternativ zu dem Call-Befehl hättest du wahrscheinlich auch einfach die Klammern in der Zeile weglassen können. (ich hatte es übersehen, und im anderen Forum wäre dies sicher jemandem aufgefallen)

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

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