宏-草圖圓周複製後拉伸

ryouss

分享在他網的回題小程式,適合想學sw API的初學者參考!
9 s( H- K: p. u" |" q

1. ' ******************************************************************************
   
2. ' macro recorded on 05/12/18 by scliang
   
3. ' 功能:草圖圓周複製後拉伸
   2 ^# I& o: r" q
4. ' 操作: 開新零件,執行 main
   
5. '
   
6. ' ******************************************************************************
   ! ?* C4 t" L3 J( Y
7. Option Explicit
   
8. 
   
9. Dim swApp As SldWorks.SldWorks
   
10. Dim swModel As SldWorks.ModelDoc2
    * {* T/ z, L3 t, r- B: q# ^! t$ x
11. Dim swSketchMgr As SldWorks.SketchManager
    5 U; P; g& w; j, y% x
12. Dim swSketchSegment As SldWorks.SketchSegment
    ! t# A9 m& Q: I: f' |
13. Dim boolstatus As Boolean
    0 z- F% G9 h) c, c3 [! M% K
14. Dim Part As Object
    
15. Dim myFeature As Object
    
16. Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double
    / r- Y- n' _! b
17. Dim n As Integer
    # Z$ I  q6 U- I8 P) f
18. 
    7 j7 x8 ~/ h5 ]$ N1 P4 h: W
19. Sub main()
    6 ]5 ]9 B; N& {$ q2 K- E3 J
20. 
    
21.     Set swApp = Application.SldWorks
    ! h2 h5 T! Y6 {$ p; u1 A
22.     Set Part = swApp.ActiveDoc
    ) V8 k- s1 g+ r/ v) y+ O# i5 j
23. ' Create part document
    6 y0 v7 _4 @2 c' v- M3 {0 Z  `
24.     Set swModel = swApp.ActiveDoc
    ' k$ N* S  ]3 ?3 L: P& j
25.     Set swSketchMgr = swModel.SketchManager
    
26.     pi = Atn(1) * 4 '圓周率
    % s8 Z0 r- ?) C7 ?0 O& f0 Z
27.     ArcRadius = 0.05 '圓弧半徑
    
28.     ArcAngle = 300 * pi / 180 '圓周中心之圓弧角
    5 v% m0 \3 |4 n0 P( q
29.     n = 5 '複製數
    
30.     PatternSpacing = 40 * pi / 180 '複製之間隔弧度
    4 E) j' U9 R" ?$ P; N* ?$ G, Q
31. ' Sketch a circle
    & w' y0 }0 a0 p$ k
32. 'boolstatus = Part.Extension.SelectByID2("前基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    $ B" k/ q1 n/ f# c
33.     swModel.ShowNamedView2 "*Front", 1
    , C: S0 j) q4 e/ v
34.     Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓
    
35. 'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
    & @  [: j  g5 L$ }
36. DeleteInstances)圓弧半徑、圓弧角、複製數、複製間距(+ 間隔弧度正轉,- 間隔弧度逆轉)、圖案旋轉、刪除實例
    " d* W3 v) ^0 M4 b* p
37.     boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
      B4 ~6 m/ H: l# _3 T
38. 'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)
    - A2 B, p# X+ {! K  `( V
39.     Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _
    
40.     0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm
    $ ]  i  |6 U$ M, M" g" F0 Q$ \
41. 
    
42. End Sub
    ( C) h  v' v$ C2 I

复制代码

( g* F* h* e# ]( B: U
% H8 P& |9 w# n, O1 B, C, z0 X( M
' _  ^( y5 r/ [$ t
1 \% U: Y' ]/ p* X

5 w! B0 G1 P7 \( J$ q# g1 Q. N