---

hi folks,
ich laufe durch den Featurebaum und suche nach Bohrassi-Featurn.
Dann lasse ich mir die Bohrpunkte ausgeben, allerdings erscheinen die Werte immer im Bezug auf die Skizze.
Wie kann ich die denn auf den Modellursprung umrechnen lassen?

vielen Dank für jeden Tip...

apple

hier der entscheidende Quellcode...

        Dim swSketchPoint As SldWorks.SketchPoint
        Dim HoleFeatureData As SldWorks.IWizardHoleFeatureData2
        Dim xValue As Double
        Dim yValue As Double
        Dim zValue As Double

        displayNodeInfo = False
        nodeObjectType = node.ObjectType
        nodeObject = node.Object

        Select Case nodeObjectType

            Case SwConst.swTreeControlItemType_e.swFeatureManagerItem_Feature      '1
                displayNodeInfo = True
                If Not nodeObject Is Nothing Then

                    featureNode = nodeObject
                    restOfString = "[FEATURE: " & _
                                  " Name: " & featureNode.Name & _
                                  " TypName: " & featureNode.GetTypeName & _
                                  "]"
                    If UCase(featureNode.GetTypeName) = "HOLEWZD" Then
                        Call Ausgabe(frmHauptfenster, frmHauptfenster.txtAusgabe, "Bohrassi")
                        HoleFeatureData = featureNode.GetDefinition
                        counter = HoleFeatureData.GetSketchPointCount
                        Call Ausgabe(frmHauptfenster, frmHauptfenster.txtAusgabe, "Anz Bohrungen: " & Str(counter))

                        vPtArr = HoleFeatureData.GetSketchPoints
                        For Each pt In vPtArr
                            swSketchPoint = pt

                            xValue = swSketchPoint.X * 1000 'Koordinaten
                            yValue = swSketchPoint.Y * 1000
                            zValue = swSketchPoint.Z * 1000

                            Call Ausgabe(frmHauptfenster, frmHauptfenster.txtAusgabe, "          X = " & Str(xValue))
                            Call Ausgabe(frmHauptfenster, frmHauptfenster.txtAusgabe, "          Y = " & Str(yValue))
                            Call Ausgabe(frmHauptfenster, frmHauptfenster.txtAusgabe, "          Z = " & Str(zValue))

                            'pt.Select4(False, Nothing)
                        Next
                    End If

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

---

Hallo apple,

du musst dir die Transformmatrix der Skizze holen und mit den Koordinaten deiner Punkte multiplizieren. hängt mit einigen Vektorrechnungsdingen zusammen und ist nicht so einfach zu durchblicken, aber in der API Hilfe gibt es ein Beispiel dazu namens "Transform Coordinates from Sketch to Model Space Example (VB)"

Stichworte dazu sind: sketch, transform, ModelToSketchTransform, MultiplyTransform

Ciao,
Stefan

------------------
Inoffizielle deutsche SolidWorks Hilfeseite    http://solidworks.cad.de
Stefans SolidWorks Blog

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

---

hallo Stefan,
vielen Dank für die schnelle Antwort.
Ich habe nun diese Funktion mit eingebaut, aber ich schaffe es nicht dem HoleFeatureData - Objekt die dazugehörige Skizze zu entnehmen.
Ansonsten stehen da ja alle notwendigen Daten drin??

                    If UCase(featureNode.GetTypeName) = "HOLEWZD" Then
                        Call Ausgabe(frmHauptfenster, frmHauptfenster.txtAusgabe, "Bohrassi")

                        HoleFeatureData = featureNode.GetDefinition
                        counter = HoleFeatureData.GetSketchPointCount
                        Call Ausgabe(frmHauptfenster, frmHauptfenster.txtAusgabe, "Anz Bohrungen: " & Str(counter))

                        vPtArr = HoleFeatureData.GetSketchPoints
                        For Each pt In vPtArr
                            swSketchPoint = pt
                            xValue = SWZahl(swSketchPoint.X, 6)  'Koordinaten übernehmen
                            yValue = SWZahl(swSketchPoint.Y, 6)
                            zValue = SWZahl(swSketchPoint.Z, 6)
                            Call Ausgabe(frmHauptfenster, frmHauptfenster.txtAusgabe, "          X = " & Str(xValue) & " / Y = " & Str(yValue) & " / Z = " & Str(zValue))
                        Next

                        'featureNode = nodeObject
                        'FeatureTypeName = featureNode.GetTypeName
                        swSketch = HoleFeatureData.GetSketchPoints()

                        vPtArr = GetModelCoordinates(swApp, swSketch, vPtArr)

                        For Each pt In vPtArr
                            swSketchPoint = pt
                            xValue = SWZahl(swSketchPoint.X, 6)  'Koordinaten übernehmen
                            yValue = SWZahl(swSketchPoint.Y, 6)
                            zValue = SWZahl(swSketchPoint.Z, 6)
                            Call Ausgabe(frmHauptfenster, frmHauptfenster.txtAusgabe, "          X = " & Str(xValue) & " / Y = " & Str(yValue) & " / Z = " & Str(zValue))
                        Next
                    End If
         

Wenn Du da noch eine schlaue Idee hättest, wäre ich Dir sehr dankbar.

Thom

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