---

Hallo,

ich habe zwar zu dieser Frage bereits diesen Beitrag gefunden: http://ww3.cad.de/foren/ubb/Forum2/HTML/004838.shtml#000010

Allerdings komme ich mit dem Code der dort als Hilfestellung vorgeschlagen wird auch nicht wirklich weiter ( http://solidworks.cad.de/mm_11.htm  ).

Ich selektiere in einer Zeichnung einen Punkt mit
  Part.Extension.SelectbyID("Point1@Ursprung@" & str_Part_Name & "@Draufsicht/" & stru_Name_comp_list_1.Name, ...) aus.

Ich bekomme dann über den SelectionManager, den ich extra für das Drawing (und nicht das 3d) gestartet habe die Koordinaten 0,0,0 zurück, da der Punkt ja im Ursprung ist, ist das auch korrekt.
Nun brauche ich aber die Koordinaten in der Zeichnung.
Hier der Code den ich durch das obige Beispiel angepasst habe :

Code:

---

Dim swFeat As Object
      Dim swDra_Point As SldWorks.SketchPoint
        Dim typ As Integer
        Dim PointCoords(2) As Double
        Dim PointCoords_Object As Object

        Dim MathUtil As SldWorks.MathUtility
        Dim oLoc As SldWorks.MathPoint

        Dim oViewXform As Object

        Dim swView As Object
        Dim swView_Active As SldWorks.View
        Dim swdraw As SldWorks.DrawingDoc

        Dim ViewXform As Object
        Dim vLocXformed As Object
        Dim oLocXformed As SldWorks.MathPoint

swdraw = DirectCast(swModel_Drawing, SldWorks.DrawingDoc)
            boolstatus = swdraw.ActivateView("3D_Ansicht")
            swView = swdraw.ActiveDrawingView
            swView_Active = DirectCast(swView, SldWorks.View)

            MathUtil = swApp.GetMathUtility

            Debug.Print(swSelMgr_drawing.GetSelectedObjectCount2(-1))

            swFeat = swSelMgr_drawing.GetSelectedObject6(2, -1)
            typ = swSelMgr_drawing.GetSelectedObjectType3(2, -1)
            swDra_Point = DirectCast(swFeat, SldWorks.SketchPoint)
            PointCoords(0) = swDra_Point.X
            PointCoords(1) = swDra_Point.Y
            PointCoords(2) = swDra_Point.Z
            PointCoords_Object = PointCoords

            ViewXform = swView_Active.GetViewXform
            ReDim Preserve ViewXform(15)
            oViewXform = MathUtil.CreateTransform(ViewXform)

            oLoc = MathUtil.CreatePoint(PointCoords_Object)
            oLocXformed = oLoc.MultiplyTransform(oViewXform)

            vLocXformed = oLocXformed.ArrayData
            Debug.Print(vLocXformed(0) & "" & vLocXformed(1) & vLocXformed(2))  'Hier bekomme ich trotzdem wieder 0,0,0 raus

---

Wie im Code bekomme ich auch hier wieder nur 0,0,0 am Ende raus.

Hoffe mir kann jemand weiterhelfen. Ich weiss nicht wo ich hier war verbessern muss.

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