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

xzysquall

我用ｓｗ２００８录制宏做光孔，然后运行宏发现，该程序段没有实际效果，请问是为什么
$ f7 b$ q; W4 x) g7 _
/ F6 s' @( O8 r, ^  \Sub main()
* @' \. I" a0 f. V" tSet swApp = Application.SldWorks
9 e, @, y- B7 B: DSet Part = swApp.ActiveDoc
' [6 q8 F  C% l9 ^. YSet SelMgr = Part.SelectionManager
0 K* G) J2 Z7 Y' G* ~0 i3 iboolstatus = Part.Extension.SelectByID2("", "FACE", 0.02011678644675, 0.02492422579218, 0.05000000000001, False, 0, Nothing, 0)
$ t' [7 M6 {& U% RPart.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
0 i9 M# Q" Q; a8 @End Sub