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

nanyuchun

以下是程序代码：
' ******************************************************************************
3 M" a6 A3 E$ I' C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\swx5484\Macro1.swb - macro recorded on 05/21/09 by Administrator
3 ~- z: Q) }1 a$ Z( f, ]: ^& ?' ******************************************************************************
Dim swApp As Object
Dim Part As Object
* P' n& C1 t; B6 p8 [. a! aDim SelMgr As Object
! ?. ~1 F1 A- ^( C" T% r1 r8 ^Dim boolstatus As Boolean
5 i" Q8 k7 w% yDim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()
/ N4 a/ v1 {- N; {) vSet swApp = Application.SldWorks
0 e0 p8 }: z( k/ v5 e# ^" dSet Part = swApp.ActiveDoc
) ~% z  G% S. y: C' v/ I2 bSet SelMgr = Part.SelectionManager
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
. @- Q" }7 Q4 pPart.ClearSelection2 True
Part.CreateCircleByRadius2 0, 0, 0, 0.0675
Part.ClearSelection2 True
Part.CreateCircleByRadius2 0, 0, 0, 0.115
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.ShowNamedView2 "*上下二等角轴测", 8
  q$ ]& g! d9 i: V* K3 l( ]Part.ClearSelection2 True
( C5 q+ X0 {& C5 ^boolstatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
, C0 Y% B( C, k6 N8 Q5 j) E9 s+ |Part.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
1 ~! T3 k2 q9 z: \! P- b9 }boolstatus = Part.Extension.SelectByID2("", "FACE", -0.05927102004805, 0.05787187467751, 0.09999999999997, False, 0, Nothing, 0)
7 {2 }; N7 \6 M$ E1 ~Part.SketchManager.InsertSketch True
+ R; p, I4 [0 f+ [! APart.ClearSelection2 True
+ X- ]* c' r' KPart.CreateCircleByRadius2 0, 0, 0, 0.0675
Part.ClearSelection2 True
: J* B0 w* G" T6 g: DPart.CreateCircleByRadius2 0, 0, 0, 0.0875
: V. ^  p" r$ b3 sPart.ClearSelection2 True
4 ?1 V. [  t5 D9 e, f: yPart.SketchManager.InsertSketch True
) A0 V. N2 Q8 I9 {' uPart.SketchManager.InsertSketch True
Part.ClearSelection2 True
- k9 @9 Y) s# f  _. ]1 r/ Uboolstatus = 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
; i7 o( A/ A3 [# sPart.SelectionManager.EnableContourSelection = 0
0 s9 Q! @2 x% K0 Z# G7 v- H9 P) {Part.ShowNamedView2 "*后视", 2
boolstatus = Part.Extension.SelectByID2("", "FACE", 0.06080990629183, 0.08128514056225, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
6 r% g8 s! j7 _, X: @8 F5 v) VPart.ClearSelection2 True
1 S/ T! P. l4 o2 f, K" {; U, |Part.CreateCircleByRadius2 0, 0, 0, 0.0675
+ {2 q3 H' x, ?; a+ m' i; q, t/ _; yPart.ClearSelection2 True
Part.CreateCircleByRadius2 0, 0, 0, 0.0875
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Part.SketchManager.InsertSketch True
' Y) l& B" m! O" ~8 D/ ?& S- g4 U! kPart.ClearSelection2 True
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
) V  I$ B( [; R0 k/ o- QPart.SelectionManager.EnableContourSelection = 0
; x; Y" h9 a0 q! E" }Part.ShowNamedView2 "*前视", 1
boolstatus = Part.Extension.SelectByID2("", "EDGE", -0.01216198125837, 0.06619812583668, 0.15, True, 0, Nothing, 0)
Part.ShowNamedView2 "*后视", 2
boolstatus = Part.Extension.SelectByID2("", "EDGE", -0.001077643908969, 0.06650602409639, -0.05000000000001, True, 0, Nothing, 0)
( O7 h' P6 ~/ P) i( h0 U+ [Part.FeatureManager.InsertFeatureChamfer 4, 1, 0.001, 0.5235987755983, 0, 0, 0, 0
, y; H4 v( x% M/ |6 {7 cboolstatus = Part.Extension.SelectByID2("", "EDGE", 0.06204149933066, 0.06065595716198, -0.05000000000001, True, 0, Nothing, 0)
. ?4 Z: d0 ]: VPart.ShowNamedView2 "*前视", 1
: O* `- t! z! S3 o9 q. mboolstatus = 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
1 D- T2 r! T; Hboolstatus = Part.Extension.SelectByID2("", "EDGE", -0.09006024096386, 0.07235609103079, 0.1, True, 0, Nothing, 0)
Part.ShowNamedView2 "*后视", 2
boolstatus = Part.Extension.SelectByID2("", "EDGE", 2.309237249681E-04, 0.1157697456493, 0, True, 0, Nothing, 0)
( s' r1 N. u" bPart.FeatureManager.InsertFeatureChamfer 4, 1, 0.002, 0.7853981633975, 0, 0, 0, 0
9 c0 A7 \% h; ?Part.ShowNamedView2 "*等轴测", 7
' H2 X% [; i: h; y9 IPart.ViewZoomtofit2
boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.UnBlankRefGeom
7 H8 b; P6 D/ |- |& q8 q0 B% |$ b8 L6 lPart.CreatePlaneAtOffset3 0.05, False, True
3 D6 l- B4 {# [- M* {" |- xPart.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("基准面1", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
9 j% R; j2 O* v" H7 t; }( i$ hboolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
0 y% y6 ^4 `% I2 dPart.UnBlankRefGeom
$ y- ?$ D$ K" a9 x0 V" T' a0 e+ Qboolstatus = Part.Extension.SelectByID2("拉伸1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
4 y# m. f$ E: }Part.FeatureManager.HideBodies
) ^2 H2 U0 [% }  C2 cPart.ClearSelection2 True
" \: e8 V+ T/ ~6 W7 Gboolstatus = Part.Extension.SelectByID2("基准面1", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
0 e! d2 S5 k3 p) c1 FPart.CreateLine2(0, 0, 0, 0.0677539208279, 0, 0).ConstructionGeometry = True
1 U. S6 I9 J7 A: EPart.SetPickMode
( g  O. K$ d1 `# BPart.ClearSelection2 True
8 b+ I, s8 Z7 p" [boolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Part.SetPickMode
Part.ClearSelection2 True
% ]+ d# o5 R5 h) y! t* v$ Gboolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
1 L3 _9 v' }: m8 J; K5 ?Part.SketchManager.InsertSketch True
  J0 R" ^7 f% f3 P: N5 {Part.ClearSelection2 True
Part.CreateLine2 0.0677539208279, -0.05, 0, 0.0677539208279, -0.045, 0
Part.ClearSelection2 True
Part.CreateLine2 0.0677539208279, -0.05, 0, 0.0677539208279, -0.055, 0
* Q) B, N: Y" O" r& Z; ~Part.ClearSelection2 True
6 P! x. S# @% MPart.CreateLine2 0.069, -0.055, 0, 0.02588765176216, -0.055, 0
Part.CreateLine2 0.02588765176216, -0.055, 0, 0.02588765176216, -0.045, 0
( J: F5 Q6 h% S5 ePart.CreateLine2 0.02588765176216, -0.045, 0, 0.069, -0.045, 0
4 j* ~% e* _! a0 B, P) KPart.ClearSelection2 True
Part.SketchManager.InsertSketch True
boolstatus = Part.SetUserPreferenceToggle(7, True)
boolstatus = Part.Extension.SelectByID2("拉伸1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
- R2 \! Y% P+ V' ]Part.FeatureManager.ShowBodies
/ x6 e9 n- @% W) m& TPart.ClearSelection2 True

7 h7 ~7 B2 k- X8 {boolstatus = Part.Extension.SelectByID2("草图5", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
* q0 _% ~% m9 V* D7 \boolstatus = Part.Extension.SelectByID2("", "AXIS", -0.02259891165368, -0.02462367042698, 0.09721858036688, True, 0, Nothing, 0)
, Q- z( r8 Q% E) ^- u% bPart.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("草图5", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
! k1 z$ O; ?; H: pboolstatus = 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)
Part.FeatureManager.FeatureRevolveCut 6.28318530718, False, 0, 0, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
'旋转剖切
# j& O: _. c8 R; K+ }7 {4 U) wEnd Sub

) ^. y# j& A' z% M: j麻烦版上高手们帮忙运行下，看最后一段的旋转剖切为什么没实现（我的solidworks版本是07的），先谢过了。

少来我可

你把最后一个删了，就行了（"草图5"最后一个SelectByID2）
boolstatus = Part.Extension.SelectByID2("草图5", "SKETCH", 0, 0, 0, True, 0, Nothing, 0)
- F, D( p7 R6 _2 j9 v4 _"草图5"选择了两次，但最后一次选择Append设为True，把它上一个选择给清除了，这次也没选上。
8 }4 y; c  D4 |% s4 x( N视图剖面
1 P  q0 j' ~7 c2 g

nanyuchun

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