宏-草圖圓周複製後拉伸

ryouss

分享在他網(wǎng)的回題小程式,適合想學(xué)sw API的初學(xué)者參考!
7 H, r3 h. y; c$ c4 a3 M/ k

1. ' ******************************************************************************
   
2. ' macro recorded on 05/12/18 by scliang
   
3. ' 功能:草圖圓周複製後拉伸
   
4. ' 操作: 開(kāi)新零件,執(zhí)行 main
   9 g" Z' e$ x0 n( r: |
5. '
   
6. ' ******************************************************************************
   
7. Option Explicit
   . K  b' ?* D3 J* l% u+ W& a- ^
8. 
   
9. Dim swApp As SldWorks.SldWorks
   
10. Dim swModel As SldWorks.ModelDoc2
    1 v7 s% C2 l2 I9 x7 {
11. Dim swSketchMgr As SldWorks.SketchManager
    ) h8 L4 n4 X' _0 j" S
12. Dim swSketchSegment As SldWorks.SketchSegment
    
13. Dim boolstatus As Boolean
    
14. Dim Part As Object
    
15. Dim myFeature As Object
    
16. Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double
    
17. Dim n As Integer
    * f' T9 f& M+ p! l$ p* U
18. 
    
19. Sub main()
    5 B% H) g; H" V0 r& ]" @8 S- l
20. 
    4 w. h0 k8 g5 t% f6 e( e  ~
21.     Set swApp = Application.SldWorks
    : g4 L- L. N+ K2 ^1 S8 k
22.     Set Part = swApp.ActiveDoc
    / k$ x! S( V& g) J. ?
23. ' Create part document
    
24.     Set swModel = swApp.ActiveDoc
    
25.     Set swSketchMgr = swModel.SketchManager
    
26.     pi = Atn(1) * 4 '圓周率
    2 n5 R+ H2 }/ _. w% r
27.     ArcRadius = 0.05 '圓弧半徑
    # I7 d) E. ]0 l% C, M. E" \: N5 }
28.     ArcAngle = 300 * pi / 180 '圓周中心之圓弧角
    . @2 m' y9 ^3 W# y7 e, ?5 w
29.     n = 5 '複製數(shù)
    * _; r1 Q& `: A
30.     PatternSpacing = 40 * pi / 180 '複製之間隔弧度
    & @9 u  c( w7 a- s) ~" p
31. ' Sketch a circle
    
32. 'boolstatus = Part.Extension.SelectByID2("前基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    
33.     swModel.ShowNamedView2 "*Front", 1
    8 J% q( n1 }4 r$ }
34.     Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫(huà)圓
    2 ?# y* g( `. I0 o' G4 D
35. 'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
    ! h; J: i3 x. S0 h- k( }/ G
36. DeleteInstances)圓弧半徑、圓弧角、複製數(shù)、複製間距(+ 間隔弧度正轉(zhuǎn),- 間隔弧度逆轉(zhuǎn))、圖案旋轉(zhuǎn)、刪除實(shí)例
    4 W5 W; }# h7 f; r  e- e) i
37.     boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
    6 k2 u  C/ Q( c
38. 'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉(zhuǎn)方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)
    
39.     Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _
    ! _' \6 e5 A6 k  ?, o; g
40.     0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm
    
41. 
    1 @% `5 A3 e; q( T3 g9 f( J
42. End Sub
    

復(fù)制代碼

( r& S, o# a- }
  u0 ~' R. z4 |
  M% r, [' p$ K. Z" R  ~2 l# w