宏-草圖圓周複製後拉伸

ryouss

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

1. ' ******************************************************************************
   
2. ' macro recorded on 05/12/18 by scliang
   # m7 Y6 W: `' e* D
3. ' 功能:草圖圓周複製後拉伸
   9 U  n! ~( j( f+ R
4. ' 操作: 開新零件,執行 main
   
5. '
   
6. ' ******************************************************************************
   4 `- [( x* _7 V$ H
7. Option Explicit
   
8. 
   6 ^- e" j  _, ?, e/ v  W$ [- C
9. Dim swApp As SldWorks.SldWorks
   
10. Dim swModel As SldWorks.ModelDoc2
    ) N+ m3 }- x* p( z. ~. ?6 A7 K
11. Dim swSketchMgr As SldWorks.SketchManager
    
12. Dim swSketchSegment As SldWorks.SketchSegment
    
13. Dim boolstatus As Boolean
    , G2 O1 \8 e2 o$ \1 g$ V. N) F: V' e
14. Dim Part As Object
    , s& s& a% ?$ z/ F/ g  Y
15. Dim myFeature As Object
    : q5 J1 r7 f! y) s1 c2 T  J/ m
16. Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double
    6 k# `0 y- m( @9 \" x7 z
17. Dim n As Integer
    
18. 
    3 e+ u" F1 T7 K8 U
19. Sub main()
    
20. 
    
21.     Set swApp = Application.SldWorks
    + {. f) o) S5 m8 X# W/ i9 Q
22.     Set Part = swApp.ActiveDoc
    
23. ' Create part document
    6 I- B* @/ d# P7 s
24.     Set swModel = swApp.ActiveDoc
    3 L, o% [: {6 A0 r# }: {4 q
25.     Set swSketchMgr = swModel.SketchManager
    , H. b; p1 S' Z1 q  G* W$ }
26.     pi = Atn(1) * 4 '圓周率
    8 F1 E8 t' s7 }- o
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#) '畫圓
    
35. 'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
    
36. DeleteInstances)圓弧半徑、圓弧角、複製數、複製間距(+ 間隔弧度正轉,- 間隔弧度逆轉)、圖案旋轉、刪除實例
    8 p: ?8 n3 L: I6 d. w9 ?1 I
37.     boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
    9 e, H6 i% k* j" h) T  n
38. 'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)
    # x3 o4 ?$ T% K3 R' c
39.     Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _
      q3 R. V& s' ?4 r9 o
40.     0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm
    
41. 
      w+ C5 P% {1 j
42. End Sub
    + ~1 B2 K" d. h# U7 J. k

复制代码

7 b" Z! A4 c% ~( v- J
! L4 M# I1 @! r: I0 }
( M. ?$ k  ?3 w: n, H: ?- H  q/ k4 A

7 u, B# V! B' e% }6 B7 h4 d
  V1 k/ ^# G8 k2 a# Q