关于ｖｂ光孔 代码无效问题

qtfe

   经典图书

我用ｓｗ２００８录制宏做光孔，然后运行宏发现，该程序段没有实际效果，请问是为什么
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.02011678644675, 0.02492422579218, 0.05000000000001, False, 0, Nothing, 0)
Part.FeatureManager.HoleWizard2 2, 8, 143, "?10.0", 0, 0.01, 0.04, 1, 2.059488517353, 0, 0, 0, 0, 0, -1, -1, -1, -1, -1, "", False, 1, 1, 1, 1
End Sub