---

Hallo

bin mal wieder unwissend.Kann mir jemand ein Beispiel zeigen wie ich die Achsen im Sketch verschieben kann?
Funktioniert ja irgendwie mit der Klasse Axis 2Dund dem Feld das sich
aus neun werten zusammensetzt.
Für Hilfe wäre ich sehr Dankbar.

Gruß Andi

Ok auslesen weiß ich jetzt .

Sketch1.GetAbsoluteAxisData A

MsgBox ("X=" &  A(0)  & ", Y=" & A(1)  & ", Z=" & A(2))
Msgbox ("DX=" & A(3)  & ", DY=" & A(4)  & ", DZ=" & A(5))
Msgbox ("DX=" & A(6)  & ", DY=" & A(7)  & ", DZ=" & A(8))

Aber beim setzen happerts noch

Sketch1.SetAbsoluteAxisData A

aber dann???

[Diese Nachricht wurde von Augustiner am 21. Apr. 2006 editiert.]

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

---

Hallo Augustiner,

das Setzen funktioniert genau so, wie Du schreibst, kein "aber dann?"!
Habe Dir mal ein Beispiel drangehängt:

Code:

---

Language="VBSCRIPT"

Sub CATMain()

Dim partDocument1 As PartDocument
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim bodies1 As Bodies
Set bodies1 = part1.Bodies

Dim body1 As Body
Set body1 = bodies1.Item("PartBody")

Dim sketches1 As Sketches
Set sketches1 = body1.Sketches

Dim reference1 As reference
Set reference1 = part1.CreateReferenceFromObject(part1.OriginElements.PlaneYZ)

Dim sketch1 As Sketch
Set sketch1 = sketches1.Add(reference1)

Dim arrayOfVariantOfDouble1(8)
arrayOfVariantOfDouble1(0) = 0
arrayOfVariantOfDouble1(1) = 0
arrayOfVariantOfDouble1(2) = 0
arrayOfVariantOfDouble1(3) = 0
arrayOfVariantOfDouble1(4) = 1
arrayOfVariantOfDouble1(5) = 0
arrayOfVariantOfDouble1(6) = 0
arrayOfVariantOfDouble1(7) = 0
arrayOfVariantOfDouble1(8) = 1

Set sketch1Variant = sketch1
sketch1Variant.SetAbsoluteAxisData arrayOfVariantOfDouble1

part1.InWorkObject = sketch1

Dim factory2D1 As Factory2D
Set factory2D1 = sketch1.OpenEdition()

End Sub

---

Ist mit dem MacroRekorder aufgezeichnet und abgeändert (reference1)! Am Ende des Scripts kann man im Sketch-Mode weiterarbeiten.

mfg,
Lusilnie

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

---

Hallo Lusilnie

Danke für Deine Antwort hatt mir sehr geholfen. Im Prinzip hatte ich das schon so wie in dem Beispiel von Dir.Nur die Angabe der Koordinaten irritiert mich noch.
Wenn z.B schreibe

arrayOfVariantOfDouble1(0) = 20 funktioniert nicht

aber

arrayOfVariantOfDouble1(0) = 20.000 funktioniert Warum??

Gruß Andi

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