Sketch Axis Problem (Dassault Systemes - PLM Solutions/CATIA V5 Programmierung)

Hallo zusammen

Habe Probleme mit der Ausrichtung einer Skizze.Egal was ich in mein Array reinschreibe.Es setzt mir die achsen nicht richtig.
Der H-Vektor sollte entlang der Y Achse ausgerichtet sein und der V-Vektor entlang der X-Achse.Ist aber genau umgekehrt.Wenn ich als Skizzierebene "Referenzebene1Beschriftung" setze dann stimmt die ausrichtung.Irgendwo ist der wurm drin.
Arbeite mit R14 Catscript

Hier das Makro und im ZIP ist das passende Part

Sub CATMain()

Dim partDocument1 As Document
Set partDocument1 = CATIA.ActiveDocument

Dim part1 As Part
Set part1 = partDocument1.Part

Dim hybridBodies1 As HybridBodies
Set hybridBodies1 = part1.HybridBodies

Dim hybridBody1 As HybridBody
Set hybridBody1 = hybridBodies1.Item("Beschriftung")

Dim sketches1 As Sketches
Set sketches1 = hybridBody1.HybridSketches

Dim hybridShapes1 As HybridShapes
Set hybridShapes1 = hybridBody1.HybridShapes

'Ref1 = "Referenzebene" & StringReferenzebene & "Beschriftung"

Dim reference1 As HybridShape
Set reference1 = hybridShapes1.Item("Referenzebene2Beschriftung")

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

Dim A3D(8)

A3D(0) = 0.00000
A3D(1) = 0.00000
A3D(2) = 0.00000

A3D(3) = 0.00000
A3D(4) = 1.00000
A3D(5) = 0.00000

A3D(6) = 1.00000
A3D(7) = 0.00000
A3D(8) = 0.00000

Set sketch1Variant = sketch1
sketch1Variant.SetAbsoluteAxisData A3D

part1.InWorkObject = sketch1

Dim Wzk As Factory2D
Set Wzk = Sketch1.OpenEdition

Dim Punkt (12) As Point2D
Dim Linie (12) As Line2D

Set Punkt(1) = Wzk.CreatePoint (0,0)
Set Punkt(2) = Wzk.CreatePoint (0,8)
Set Punkt(3) = Wzk.CreatePoint (-4.5,8)
Set Punkt(4) = Wzk.CreatePoint (-4.5,6.8)
Set Punkt(5) = Wzk.CreatePoint (-1.2,6.8)
Set Punkt(6) = Wzk.CreatePoint (-1.2,4.6)
Set Punkt(7) = Wzk.CreatePoint (-3,4.6)
Set Punkt(8) = Wzk.CreatePoint (-3,3.4)
Set Punkt(9) = Wzk.CreatePoint (-1.2,3.4)
Set Punkt(10) = Wzk.CreatePoint (-1.2,1.2)
Set Punkt(11) = Wzk.CreatePoint (-4.5,1.2)
Set Punkt(12) = Wzk.CreatePoint (-4.5,0)

Set Linie (1) = Wzk.CreateLine (0,0,0,8)
Linie(1).StartPoint = Punkt(1)
Linie(1).EndPoint = Punkt(2)
Set Linie (2) = Wzk.CreateLine (0,8,-4.5,8)
Linie(2).StartPoint = Punkt(2)
Linie(2).EndPoint = Punkt(3)
Set Linie (3) = Wzk.CreateLine (-4.5,8,-4.5,6.8)
Linie(3).StartPoint = Punkt(3)
Linie(3).EndPoint = Punkt(4)
Set Linie (4) = Wzk.CreateLine (-4.5,6.8,-1.2,6.8)
Linie(4).StartPoint = Punkt(4)
Linie(4).EndPoint = Punkt(5)
Set Linie (5) = Wzk.CreateLine (-1.2,6.8,-1.2,4.6)
Linie(5).StartPoint = Punkt(5)
Linie(5).EndPoint = Punkt(6)
Set Linie (6) = Wzk.CreateLine (-1.2,4.6,-3,4.6)
Linie(6).StartPoint = Punkt(6)
Linie(6).EndPoint = Punkt(7)
Set Linie (7) = Wzk.CreateLine (-3,4.6,-3,3.4)
Linie(7).StartPoint = Punkt(7)
Linie(7).EndPoint = Punkt(8)
Set Linie (8) = Wzk.CreateLine (-3,3.4,-1.2,3.4)
Linie(8).StartPoint = Punkt(8)
Linie(8).EndPoint = Punkt(9)
Set Linie (9) = Wzk.CreateLine (-1.2,3.4,-1.2,1.2)
Linie(9).StartPoint = Punkt(9)
Linie(9).EndPoint = Punkt(10)
Set Linie (10) = Wzk.CreateLine (-1.2,1.2,-4.5,1.2)
Linie(10).StartPoint = Punkt(10)
Linie(10).EndPoint = Punkt(11)
Set Linie (11) = Wzk.CreateLine (-4.5,1.2,-4.5,0)
Linie(11).StartPoint = Punkt(11)
Linie(11).EndPoint = Punkt(12)
Set Linie (12) = Wzk.CreateLine (-4.5,0,0,0)
Linie(12).StartPoint = Punkt(12)
Linie(12).EndPoint = Punkt(1)

Sketch1.CloseEdition

Part1.update

End Sub

Gruß Andi

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

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