Record MACRO,
Select Point → X → -0.5
boolstatus = Part.Extension.SelectByID2("Point42", "SKETCHPOINT", -0.5, -0.2510447260161, 0, False, 0, Nothing, 0)
Select EDGE → X → 0.1446216745001
boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.1446216745001, 0.1024454966003, -4499.402892281, False, 0, Nothing, 0)
Follow code SwPt.X → -0.5
Private Sub ll()
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim SwSelMgr As SelectionMgr
Set SwSelMgr = SwModel.SelectionManager
Dim SwPt As SketchPoint
Set SwPt = SwSelMgr.GetSelectedObject5(1)
Debug.Print SwPt.X
End Sub
Help me, X → 0.1446216745001
SolidworksApi macros