---

Hallo Zusammen!

Ich suche gerade nach einer Möglichkeit SketchLine-Objekte in Line- oder LineSegment-Objekte umzuwandeln oder ein neues Line-/LineSemgent-Obj mit denselben Koordinaten anzulegen.
Ich hab über StartSketchPoint und EndSketchPoint probiert eine neues LineSemgent-Obj anzulegen. Allerdings will das LineSemgent nur Points und keine SketchPoints als Parameter.

Code:

---

oLineSegment = mApp.TransientGeometry.CreateLineSegment(oLine.StartSketchPoint, oLine.EndSketchPoint)

---

Ich hab bisher auch keine Möglichkeit gefunden, die reinen Raumkoordinaten vom Start- und EndSketchPoint auszulesen. Bei Point-Obj geht das ja über oPoint.X, oPoint.Y, oPoint.Z, aber für SketchPoints gibt es diese Properties irgwie nicht.
Hat jmd eine Idee? Ich bin mir sicher, dass es da eine Möglichkeit gibt, aber ich finde keine.

Grüße
Colli

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

---

Hallo

Mal unter SketchPoint.Geometry geschaut?

------------------
MfG
Ralf

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

---

Hallo

unter Geometry hab ich schon mal nachgeschaut. Da aber SketchLine.StartSketchPoint.Geometry ein Point2D-Objekt zurückgibt hab ich .Geometry nicht weiter verwendet, weil ich ein Point- und kein Point2D-Objekte zurückbekommen wollte.
Jetzt hab ich einen Weg gefunden wie ich auch mit einem Point2D-Object an gesuchte Properties und Methoden komme.
Danke auf jeden Fall für den Vorschlag.

Gruß
Colli

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

---

Moin

Du hattest nach den Koordinaten gefragt und die stehen an der genannten Stelle.
Ist deine Lösung streng geheim?

------------------
MfG
Ralf

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

---

Hallo

Stimmt ich hab nach den Koordinaten gefragt. Mein Code ist nicht geheim, aber vllt ein bisschen undurchsichtig:

Code:

---

Dim mApp As Inventor.Application = Marshal.GetActiveObject("Inventor.Application")
Dim oDoc As Inventor.PartDocument = mApp.ActiveDocument
Dim oSketches As PlanarSketches = oDoc.ComponentDefinition.Sketches
Dim oLastSketch As PlanarSketch = oSketches.Item(oSketches.Count)
Dim Zähler As Integer = oLastSketch.SketchLines.Count
Dim oSketchLine2d As SketchLine = oLastSketch.SketchLines.Item(Zähler)
Dim oPoint2d1 As Point2d = oSketchLine2d.StartSketchPoint.Geometry
Dim oPoint2d2 As Point2d = oSketchLine2d.EndSketchPoint.Geometry

---

[Diese Nachricht wurde von Colli123 am 14. Dez. 2014 editiert.]

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