宏-草圖圓周複製後拉伸

ryouss

分享在他網的回題小程式,適合想學sw API的初學者參考!

1. ' ******************************************************************************
   " g1 O0 e8 X/ V' a; t8 A
2. ' macro recorded on 05/12/18 by scliang
   1 B* ~; R1 H1 ?% c
3. ' 功能:草圖圓周複製後拉伸
   : f" j" {( V- K/ o/ O5 K
4. ' 操作: 開新零件,執行 main
   & ^, c& G) n7 ^7 t1 _
5. '
   
6. ' ******************************************************************************
   ; p4 x( K" n$ I
7. Option Explicit
   3 Z# d4 |  t! }7 j1 t- B
8. 
   
9. Dim swApp As SldWorks.SldWorks
   5 E2 o0 l4 }  B2 n
10. Dim swModel As SldWorks.ModelDoc2
    # _! u' v  O) v5 i$ X& @" E
11. Dim swSketchMgr As SldWorks.SketchManager
    3 s) j/ a) e. G! x1 P' C5 ]
12. Dim swSketchSegment As SldWorks.SketchSegment
    % N0 M- }$ T% Z& M9 k' x9 G
13. Dim boolstatus As Boolean
    + j8 F/ c; s% Z5 I! a
14. Dim Part As Object
    
15. Dim myFeature As Object
    8 n3 I  j" H" u3 b- e, \# d
16. Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double
    
17. Dim n As Integer
    ( ?- }# C) @5 A8 j5 |9 O  ?
18. 
    
19. Sub main()
    
20. 
    6 d- n5 y5 t- ^; b4 w. G9 X+ |* V
21.     Set swApp = Application.SldWorks
    ' ~5 [: ~- U. M! Q1 e% s- I
22.     Set Part = swApp.ActiveDoc
    . P. m  b, S! a0 x$ o8 J: T6 M
23. ' Create part document
    
24.     Set swModel = swApp.ActiveDoc
    ( I, j9 \. c3 }& `
25.     Set swSketchMgr = swModel.SketchManager
    ; W% R; J! U- h8 |6 {6 k
26.     pi = Atn(1) * 4 '圓周率
    - @3 @0 r. {2 K/ p: ^. j0 N
27.     ArcRadius = 0.05 '圓弧半徑
    
28.     ArcAngle = 300 * pi / 180 '圓周中心之圓弧角
    
29.     n = 5 '複製數
    
30.     PatternSpacing = 40 * pi / 180 '複製之間隔弧度
    
31. ' Sketch a circle
    
32. 'boolstatus = Part.Extension.SelectByID2("前基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    
33.     swModel.ShowNamedView2 "*Front", 1
    
34.     Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓
    : P. C& `$ {: ~9 `% X3 O9 R/ \! _
35. 'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
      C% w- i* f5 k4 I& f8 ]$ n
36. DeleteInstances)圓弧半徑、圓弧角、複製數、複製間距(+ 間隔弧度正轉,- 間隔弧度逆轉)、圖案旋轉、刪除實例
    1 V1 F$ c+ W- F; }: x9 H
37.     boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
    ; g8 R/ ]7 T1 J& Z" t1 ^
38. 'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)
    % W* y% i( b: i: E5 H
39.     Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _
    , T( _# P" z3 f; E
40.     0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm
    6 }' A9 i& i" X% r5 L7 v( L5 G
41. 
    + C, C. T/ V: C) j9 [8 v
42. End Sub
    * v: f8 p0 o6 p- Q9 t' x& J' i

复制代码

9 Z$ o/ R, H6 ^: x

" g+ Y8 N9 Q! A
5 C3 l4 A/ C/ ^6 H: M. x
6 ^/ P  q- Q: N+ Y6 Q% Y
; i# t8 z3 R* Q) G0 c- n% z! H