API中关于SelectByID2的重复选择问题，诚望高手解答。

liyan608

本人现做SW的宏二次开发，遇到如下问题不能解决：
如何在同一个平面内完成一幅草图后退出，又重复在该平面上画出另一幅草图？

具体如图：
在选择矩形实体平面完成草图42并退出的情况下，又在该矩形实体平面完成草图44？

宏如下：（如何让第二段红色标注的SelectByID2复制第一段SelectByID2的内容？）
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("", "FACE", 5.38182960311673E-02, 4.04496913331087E-02, 9.99999999993406E-03, False, 0, Nothing, 0)      ’选择矩形平面Part.SketchManager.InsertSketch True
Dim vSkLines As Variant
vSkLines = Part.SketchManager.CreateCornerRectangle(6.39699101702149E-02, 3.25491177380428E-02, 0, 8.72770337929865E-02, 1.64175388973291E-02, 0)     ‘画出草图42
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True              ’退出草图
boolstatus = Part.Extension.SelectByID2("", "FACE", 2.88455184873158E-02, 4.80236397692408E-02, 9.99999999987722E-03, False, 0, Nothing, 0)        ’选择同一个矩形平面Part.SketchManager.InsertSketch True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(0.029503, 0.038117, 0#, 0.039606, 0.044338, 0#)   ‘画出草图44
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
End Sub

明智的

没看懂啊