Hi, Everyone

I trying to get the face from selectionbox (see picture below) forreference plane to insert sketch this is the code that i create inVB.NET 2005

>>>
Sub OnClose(ByVal reason As Integer) ImplementsPropertyManagerPage2Handler2.OnClose
Dim swApp As SldWorks.SldWorks
Dim Model As ModelDoc2
Dim swSelMgr As SelectionMgr
Dim SelType As Long
Dim VarSelPt As Object '(in macro "Dim VarSelPt As Variant)
Dim boolstatus As Boolean

Model = swApp.ActiveDoc
swSelMgr = Model.SelectionManager
If reason =SwConst.swPropertyManagerPageCloseReasons_e.swPropertyManagerPageClose_OkayThen
SelType = swSelMgr.GetSelectedObjectType(1)
If SwConst.swSelectType_e.swSelFACES = SelType Then
swFace = swSelMgr.GetSelectedObject5(1)
VarSelPt = swSelMgr.GetSelectionPoint(1)
VarClosePt = swFace.GetClosestPointOn(VarSelPt(0), VarSelPt(1),VarSelPt(2))
End If
Model.ClearSelection2(True)
boolstatus = Model.Extension.SelectByID2("", "FACE",VarClosePt(0),VarClosePt(1), VarClosePt(2), False, 0, Nothing, 0)
Model.InsertSketch2(True)
Model.CreateCircleByRadius2(0.048, 0.048, 0, 0.008)
Model.CreateCircleByRadius2(-0.048, 0.048, 0, 0.008)
Model.CreateCircleByRadius2(0.043, -0.048, 0, 0.008)
Model.CreateCircleByRadius2(-0.043, -0.048, 0, 0.008)
Model.InsertSketch2(True)
End If

End Sub
>>>
- I try this in macro it working
- But in vb.Net It's don't working because it can't selected theface (boolstatus=False)
- Do you have any suggestion?

Thanks,
Shukree
SolidworksApi macros