---

Hallo Zusammen,

ich möchte von allen Punkte einer Skizze einen 3D-Punkt an gleicher Stelle erzeugen und habe damit mit den Referenzen Probleme.

  Dim myGeoElem As MECMOD.GeometricElements
  Dim myElem As MECMOD.Point2D
  Set myGeoElem = sketch1.GeometricElements
  For I = 1 To myGeoElem.count
      If myGeoElem.Item(I).GeometricType = catGeoTypePoint2D Then
          Set myElem = myGeoElem.Item(I)
          If myElem.Construction = False Then
         
          Dim hybridShapeFactory1 As HybridShapeFactory
          Set hybridBodies1 = Part1.HybridBodies
          Set hybridBody1 = hybridBodies1.Add()
          Set hybridShapeFactory1 = Part1.HybridShapeFactory
          Part1.InWorkObject = hybridBody1
          Set Reference1 = Part1.CreateReferenceFromObject(myGeoElem.Item(I))

          hybridShapePointCoord1.PtRef = Reference1
          hybridBody1.AppendHybridShape hybridShapePointCoord1
         
         
          End If
      End If
  Next

Der Punkt wird zwar auf 0,0,0 erzeugt hat aber keine Referenz zu dem Punkt der Skizze.

Kann mir bitte jemand weiterhelfen ?  Vielen Dank !

Gruss

Louis

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