谁帮我运行一下这段程序，看看旋转剖切为什么没实现？

nanyuchun

以下是程序代码：
& h5 f: t/ `* g& Z  \& ~' ******************************************************************************
' C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\swx5484\Macro1.swb - macro recorded on 05/21/09 by Administrator
/ J% }0 y; Y% X0 \. U% f' ******************************************************************************
Dim swApp As Object
4 u% V7 u1 P' @: f" {8 _# P  R# X2 nDim Part As Object
2 N$ D% _8 H, L% z5 p( L6 S  o! iDim SelMgr As Object
0 S2 d# n9 u' I; y6 G* ~' z. SDim boolstatus As Boolean
; u  _2 t6 b/ e5 j6 `Dim longstatus As Long, longwarnings As Long
+ _4 h3 S: b( T% C$ D6 l8 |Dim Feature As Object
Sub main()
7 r* S# Q, C; o! T/ n" a. }Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Set SelMgr = Part.SelectionManager
. l6 Z; E9 L  G) Y4 z( R0 W) sboolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.CreateCircleByRadius2 0, 0, 0, 0.0675
Part.ClearSelection2 True
Part.CreateCircleByRadius2 0, 0, 0, 0.115
- h* W* a/ ~4 |/ R2 v$ J/ G) [Part.ClearSelection2 True
! y2 ^  _$ i, o) T& ePart.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.ShowNamedView2 "*上下二等角轴测", 8
$ w- m9 I2 Z3 x- L, o. wPart.ClearSelection2 True
1 K  i0 J$ Y3 C' o8 n+ Eboolstatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
- D" C7 g; Q' b1 m, YPart.FeatureManager.FeatureExtrusion2 True, False, False, 0, 0, 0.1, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1, 0, 0, False
Part.SelectionManager.EnableContourSelection = 0
boolstatus = Part.Extension.SelectByID2("", "FACE", -0.05927102004805, 0.05787187467751, 0.09999999999997, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
+ M' Y6 V3 U! d" ~Part.ClearSelection2 True
Part.CreateCircleByRadius2 0, 0, 0, 0.0675
Part.ClearSelection2 True
9 D+ n! x, y4 f1 T3 OPart.CreateCircleByRadius2 0, 0, 0, 0.0875
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
! Y6 {$ m& k0 J3 O# V6 D7 s/ yPart.SketchManager.InsertSketch True
/ D3 a4 X* D( n5 I8 ~, KPart.ClearSelection2 True
8 W/ \; c7 m' R& F# Wboolstatus = Part.Extension.SelectByID2("草图2", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.05, 0.1, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
- d0 v- i$ }) IPart.SelectionManager.EnableContourSelection = 0
% v$ a$ `+ g) F/ _4 F6 ~Part.ShowNamedView2 "*后视", 2
4 z8 S: Z/ F  n6 A" D# R7 Gboolstatus = Part.Extension.SelectByID2("", "FACE", 0.06080990629183, 0.08128514056225, 0, False, 0, Nothing, 0)
/ ]7 N3 S& M- t: a, M6 v# SPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
' b+ r3 R3 S; Y0 uPart.CreateCircleByRadius2 0, 0, 0, 0.0675
0 T; u4 p; x& e0 ]7 c& ~7 U3 `Part.ClearSelection2 True
Part.CreateCircleByRadius2 0, 0, 0, 0.0875
Part.ClearSelection2 True
* j! i, G3 _: T3 c( P3 [Part.SketchManager.InsertSketch True
' e( X7 a) T3 d3 ?Part.SketchManager.InsertSketch True
7 I* m6 m0 q$ ]+ ~* x. A. oPart.ClearSelection2 True
4 \4 E3 L5 p1 O1 A9 q- z5 |! u& ^boolstatus = Part.Extension.SelectByID2("草图3", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.05, 0.05, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Part.ShowNamedView2 "*前视", 1
boolstatus = Part.Extension.SelectByID2("", "EDGE", -0.01216198125837, 0.06619812583668, 0.15, True, 0, Nothing, 0)
Part.ShowNamedView2 "*后视", 2
. K9 b! K# s9 \& pboolstatus = Part.Extension.SelectByID2("", "EDGE", -0.001077643908969, 0.06650602409639, -0.05000000000001, True, 0, Nothing, 0)
/ I3 t/ a; Y9 K6 ^& F9 |% c- I& ePart.FeatureManager.InsertFeatureChamfer 4, 1, 0.001, 0.5235987755983, 0, 0, 0, 0
2 J9 p; b  p& X. ^boolstatus = Part.Extension.SelectByID2("", "EDGE", 0.06204149933066, 0.06065595716198, -0.05000000000001, True, 0, Nothing, 0)
1 n' X8 }4 ], ?- W8 G) S& D7 QPart.ShowNamedView2 "*前视", 1
% y, F% q9 R; H7 H% h+ Aboolstatus = Part.Extension.SelectByID2("", "EDGE", -0.06080990629183, 0.06219544846051, 0.15, True, 0, Nothing, 0)
Part.FeatureManager.InsertFeatureChamfer 4, 1, 0.016, 0.7853981633975, 0, 0, 0, 0
% I0 _7 u% g$ [, Nboolstatus = Part.Extension.SelectByID2("", "EDGE", -0.09006024096386, 0.07235609103079, 0.1, True, 0, Nothing, 0)
6 D& _# Y0 \& o3 r4 Q( u* I5 ePart.ShowNamedView2 "*后视", 2
boolstatus = Part.Extension.SelectByID2("", "EDGE", 2.309237249681E-04, 0.1157697456493, 0, True, 0, Nothing, 0)
5 e7 S2 u5 }& D+ M! m! cPart.FeatureManager.InsertFeatureChamfer 4, 1, 0.002, 0.7853981633975, 0, 0, 0, 0
" p# {  O8 P) n) \4 A* G6 [Part.ShowNamedView2 "*等轴测", 7
  s& [3 Q: [7 NPart.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.UnBlankRefGeom
# ?1 g' q) G' K  A/ D( K: ~Part.CreatePlaneAtOffset3 0.05, False, True
Part.ClearSelection2 True
9 a. [" u2 d- }0 E6 W' Cboolstatus = Part.Extension.SelectByID2("基准面1", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
0 B, m% U/ r4 K: Rboolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
9 v! `' ?+ x  C% U$ N8 K3 \* SPart.UnBlankRefGeom
/ a6 y% a# n. m, ]boolstatus = Part.Extension.SelectByID2("拉伸1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
+ W- i8 G- Q5 M1 ^Part.FeatureManager.HideBodies
2 s0 O6 s- K- Z$ ^Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("基准面1", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
# @9 Q8 N" }8 K0 C  D! c$ LPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
. i" ~+ W+ Y8 ^Part.CreateLine2(0, 0, 0, 0.0677539208279, 0, 0).ConstructionGeometry = True
Part.SetPickMode
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Part.SetPickMode
1 G7 F# Y; I. v* b& g3 K+ OPart.ClearSelection2 True
; v) B. P% }% q' H2 _5 t$ Vboolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
; g) q7 F, y! ?2 Q- G- HPart.SketchManager.InsertSketch True
# p+ G2 m- D! mPart.ClearSelection2 True
- j1 ?% s0 {; aPart.CreateLine2 0.0677539208279, -0.05, 0, 0.0677539208279, -0.045, 0
& z1 n( ]3 T( M& OPart.ClearSelection2 True
/ O) N4 _& n+ t$ i6 lPart.CreateLine2 0.0677539208279, -0.05, 0, 0.0677539208279, -0.055, 0
Part.ClearSelection2 True
" z) p- @# N" j: a# B2 l, `& PPart.CreateLine2 0.069, -0.055, 0, 0.02588765176216, -0.055, 0
7 c; _' U  b0 q4 nPart.CreateLine2 0.02588765176216, -0.055, 0, 0.02588765176216, -0.045, 0
Part.CreateLine2 0.02588765176216, -0.045, 0, 0.069, -0.045, 0
Part.ClearSelection2 True
3 F# b8 Z- k& Z7 c* H: ]0 T2 aPart.SketchManager.InsertSketch True
boolstatus = Part.SetUserPreferenceToggle(7, True)
boolstatus = Part.Extension.SelectByID2("拉伸1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
. q. p6 z6 S6 ^# E# P8 ]5 JPart.FeatureManager.ShowBodies
, l6 z4 d' J% q/ ~4 F! NPart.ClearSelection2 True

boolstatus = Part.Extension.SelectByID2("草图5", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
2 ]" f( j. ~, }; ?5 Z0 L+ lboolstatus = Part.Extension.SelectByID2("", "AXIS", -0.02259891165368, -0.02462367042698, 0.09721858036688, True, 0, Nothing, 0)
  N3 p7 B& g3 |' T$ ]Part.ClearSelection2 True
$ d) G$ e- @5 r/ ?/ Xboolstatus = Part.Extension.SelectByID2("草图5", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
( _' E" e, a: r! y" H! D8 K( U  ^0 dboolstatus = Part.Extension.SelectByID2("", "AXIS", -0.02259891165368, -0.02462367042698, 0.09721858036688, True, 4, Nothing, 0)
boolstatus = Part.Extension.SelectByID2("草图5", "SKETCH", 0, 0, 0, True, 0, Nothing, 0)
: N9 h) k- i/ O4 c1 ?3 z; {' PPart.FeatureManager.FeatureRevolveCut 6.28318530718, False, 0, 0, 0, 1, 1
7 O$ Z* t! n5 |! PPart.SelectionManager.EnableContourSelection = 0
'旋转剖切
9 K2 y+ e. o, I( OEnd Sub
( k% A, h5 m( e0 O0 s2 l* y! C
2 S4 _& j5 N  F0 |+ z) i% s麻烦版上高手们帮忙运行下，看最后一段的旋转剖切为什么没实现（我的solidworks版本是07的），先谢过了。

少来我可

你把最后一个删了，就行了（"草图5"最后一个SelectByID2）
boolstatus = Part.Extension.SelectByID2("草图5", "SKETCH", 0, 0, 0, True, 0, Nothing, 0)
+ t9 f4 W( ]7 m"草图5"选择了两次，但最后一次选择Append设为True，把它上一个选择给清除了，这次也没选上。
视图剖面
# b  {. Z1 `5 ~+ x4 N9 E

nanyuchun

楼上真是好人啊，谢谢了！