Hello,

A part of macro I'm making has to select a point by it's ID (sketch point, geometry point, Center of Mass point, etc.) and output it's coordinates. I'm using GetSelectionPoint2 method, testing it out on a sketch point (for now), with the following code:

Function GetCGdifferences()
    Dim SelPt As Variant
    
    boolstatus = swModel.Extension.SelectByID2("Point1@SET Center of Mass", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing, 0)
    SelPt = swSelMgr.GetSelectionPoint2(1, -1)
    
    Debug.Print SelPt(0)
    Debug.Print SelPt(1)
    Debug.Print SelPt(2)
End Function

However, for whatever reason, this code doesn't work - it selects the point, but the output is 0, 0, 0. Now, most surprisingly, if I select the point manually, the GetSelectionPoint2 outputs the proper coordinates. In fact, if I replace the 4th line with:

boolstatus = swModel.Extension.SelectByID2"Point1@SET Center of Mass", "EXTSKETCHPOINT", 0.370861965642898, -0.109938984318898, 2.58003532522887, False, 0, Nothing, 0)

then the GetSelectionPoint2 also outputs the correct coordinates. The difference in that line is that the selection is overiden by selection coordinates (I got them by recording a macro).

This is most puzzling for me, because I don't understand why the GetSelectionPoint2 is so picky about the way I select that point that I need to extract coordinates from. Can someone please point out my mistake? Why isn't the initial code working?

Thank you in advance.