宏-草圖圓周複製後拉伸

ryouss

分享在他網的回題小程式,適合想學sw API的初學者參考!
+ u, W! @0 R. c  t1 {! W/ N

1. ' ******************************************************************************
   ! G3 ?, l5 K; B' w. v. u' V
2. ' macro recorded on 05/12/18 by scliang
   ! \5 e5 v( c  e/ H* V2 B9 q
3. ' 功能:草圖圓周複製後拉伸
   
4. ' 操作: 開新零件,執行 main
   ( T: B: L5 C: q9 u; E
5. '
   
6. ' ******************************************************************************
   
7. Option Explicit
   * m+ T, P: |% x" N- u7 ^
8. 
   
9. Dim swApp As SldWorks.SldWorks
   
10. Dim swModel As SldWorks.ModelDoc2
    7 Z' O( Q3 @+ Z$ ?1 S+ o: Y& C
11. Dim swSketchMgr As SldWorks.SketchManager
    + S( o* t1 T. S1 t
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
    5 ?$ c" x& H" S: o# ?
17. Dim n As Integer
    
18. 
    
19. Sub main()
    3 `$ M5 N; }+ `2 O: b2 ]
20. 
    
21.     Set swApp = Application.SldWorks
    4 N  H2 M3 k% H
22.     Set Part = swApp.ActiveDoc
    1 K, K1 U, R. X  D$ N6 {4 ~+ ^0 M7 e
23. ' Create part document
    
24.     Set swModel = swApp.ActiveDoc
    2 _0 Z: L" b1 n* I9 }
25.     Set swSketchMgr = swModel.SketchManager
    
26.     pi = Atn(1) * 4 '圓周率
    
27.     ArcRadius = 0.05 '圓弧半徑
    
28.     ArcAngle = 300 * pi / 180 '圓周中心之圓弧角
    ! P. s4 p! N' R$ ^" s# m
29.     n = 5 '複製數
    
30.     PatternSpacing = 40 * pi / 180 '複製之間隔弧度
    0 q. m( Z& v( S1 N* [( o; M4 P% |
31. ' Sketch a circle
    ( i# I) P0 N3 T
32. 'boolstatus = Part.Extension.SelectByID2("前基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    ) z" B; Z$ \7 Y
33.     swModel.ShowNamedView2 "*Front", 1
    - f- b, U& R/ q& u
34.     Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓
    4 Y1 h5 L* z- l6 d* Z! U6 `( G
35. 'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
    
36. DeleteInstances)圓弧半徑、圓弧角、複製數、複製間距(+ 間隔弧度正轉,- 間隔弧度逆轉)、圖案旋轉、刪除實例
      M6 S; d2 B$ ?. D7 x# ~( ^! i
37.     boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
    / \. R0 g3 v( M+ ~
38. 'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)
    ) o/ f1 |- v+ j. Y% P
39.     Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _
    ' M! Z/ z8 @; [% H3 L: ?
40.     0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm
    
41. 
    0 B+ H, ~  D) {# v- V
42. End Sub
    ) ~* i+ b; O8 y8 T! Y

复制代码

7 O$ D8 J4 E9 P( \9 p# ~" u# ~) g