---

Mahlzeit Community,
ihr müsst mich retten 
Ich finde meinen Fehler einfach nicht und hab warscheinlicht sowieso zu kompliziert gedacht.
Und all das am letzten Tag vor meinem Urlaub.
Hier mein Gedanke, ich will eine Gerade, im 3D, per Point und Direction erzeugen. Vorher soll der Startpunkt (immer Koordinatenursprung) und eine Richtung (immer eine der Achsen)ausgewählt werden.
(Ist zum Teil aufgenommen, zum Teil aus dem Board und zum Teil von mir Aber das könnt ihr ja besser erkennen als ich.)
Hier der Code:

Code:

---

Sub CATMain()

Set partDocument1 = CATIA.ActiveDocument
set sel = partDocument1.selection
sel.Clear
Dim oit(0)
oit(0)="AnyObject"

msgbox "Punkt auswählen"
stat=sel.SelectElement2(oit,"huhu",true)
msgbox "  " &sel.Item(1).Value.Name

punkt1 = Right(sel.Item(1).Value.Name, Len(sel.Item(1).Value.Name) -17)
punkt = Left(punkt1, Len(punkt1) -23)
msgbox " " &punkt
set sel = partDocument1.selection
sel.Clear

msgbox "Achse auswählen"
stat1=sel.SelectElement2(oit,"huhu",true)
msgbox "  " &sel.Item(1).Value.Name
achse1 = Right(sel.Item(1).Value.Name, Len(sel.Item(1).Value.Name) -17)
achse = Left(achse1, Len(achse1) -23)
msgbox " " &achse

Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set hybridShapeFactory1 = part1.HybridShapeFactory
Set axisSystems1 = part1.AxisSystems
Set axisSystem1 = axisSystems1.Item("Origin")
Set reference1 = part1.CreateReferenceFromBRepName("REdge:(",achse,";WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", axisSystem1)

'Set reference1 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(AxisSystem.1;2);None:();Cf11:());Face:(Brp:(AxisSystem.1;1);None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithPe rmanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", axisSystem1)
'zum kontrollieren ob Len Stimmt
Set hybridShapeDirection1 = hybridShapeFactory1.AddNewDirection(reference1)
Set reference2 = part1.CreateReferenceFromBRepName("FVertex",punkt,";WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", axisSystem1)
'Set reference2 = part1.CreateReferenceFromBRepName("FVertex:(Vertex:(Neighbours:(Face:(Brp:(AxisSystem.1;2);None:();Cf11:());Face:(Brp:(AxisSystem.1;3);None:();Cf11:());Face:(Brp:(AxisSystem.1;1);N one:();Cf11:()));Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", axisSystem1)
'zum kontrollieren ob Len Stimmt
Set hybridShapeLinePtDir1 = hybridShapeFactory1.AddNewLinePtDir(reference2, hybridShapeDirection1, 0.000000, 50.000000, False)
Set hybridBodies1 = part1.HybridBodies
Set hybridBody1 = hybridBodies1.Item("Geometrical Set.53")
hybridBody1.AppendHybridShape hybridShapeLinePtDir1
part1.InWorkObject = hybridShapeLinePtDir1
part1.Update

End Sub

---

------------------
Mfg. Tim
Please
consider the environment before printing this Post

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

---

Code:

---

Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set hybridShapeFactory1 = part1.HybridShapeFactory
Set axisSystems1 = part1.AxisSystems
Set axisSystem1 = axisSystems1.Item("Origin")
Set reference1 = part1.CreateReferenceFromBRepName("REdge:(",achse,";WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", axisSystem1)

'Set reference1 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(AxisSystem.1;2);None:();Cf11:());Face:(Brp:(AxisSystem.1;1);None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithPe   rmanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", axisSystem1)
'zum kontrollieren ob Len Stimmt
Set hybridShapeDirection1 = hybridShapeFactory1.AddNewDirection(reference1)
Set reference2 = part1.CreateReferenceFromBRepName("FVertex",punkt,";WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", axisSystem1)
'Set reference2 = part1.CreateReferenceFromBRepName("FVertex:(Vertex:(Neighbours:(Face:(Brp:(AxisSystem.1;2);None:();Cf11:());Face:(Brp:(AxisSystem.1;3);None:();Cf11:());Face:(Brp:(AxisSystem.1;1);N   one:();Cf11:()));Cf11:());WithPermanentBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", axisSystem1)

---

Sieht nach absolutem Unsinn aus.
Du hast doch bereits beide Elemente.
Aus der Selection kannst Du Dir ihre Referenzen sogar ganz unkompliziert mit objSelection.item2(1).Reference holen.
Mehr ist es nicht.

Falls doch wäre es für uns Helfer sehr Hilfreich auch zu wissen wo Dein Klemmer ist.

------------------
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

[Diese Nachricht wurde von HoBLila am 14. Apr. 2014 editiert.]

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

---

Danke für die Antwort, hab den an dem Code und den Beitrag mit Scheuklappen erstellt.
Werde das nochmal über arbeiten, mit deiner Hilfestellung, nochmals danke.

------------------
Mfg. Tim
Please
consider the environment before printing this Post

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

---

Guten Morgen,
muss das noch eben los werden.
Ich habs mir ja wirklich kompliziert gemacht^^.
Hätte nicht gedacht, dass es so simpel ist.
Wer sieht auch den Wald vor lauter Bäumen nicht und kann ahnen, dass wenn mach sich die Reference holt, auch direkt eben diese als Reference benutzen kann.

Danke nochmals

------------------
Mfg. Tim
Please
consider the environment before printing this Post

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