宏-草圖圓周複製後拉伸

ryouss

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

1. ' ******************************************************************************
   ! i9 g) d! g2 o$ J" m& K) V! S
2. ' macro recorded on 05/12/18 by scliang
   # D/ q4 t6 v7 x% N3 `
3. ' 功能:草圖圓周複製後拉伸
   8 v: E+ O# R! G8 j; e
4. ' 操作: 開新零件,執(zhí)行 main
   
5. '
   
6. ' ******************************************************************************
   ; f7 v9 L9 P  Y2 [
7. Option Explicit
   ) i0 S! ?1 Q  D: N# g+ D' n
8. 
   ; l. m" ~# J7 k, E4 T; _
9. Dim swApp As SldWorks.SldWorks
   ! d/ z+ h6 s/ D  d
10. Dim swModel As SldWorks.ModelDoc2
    ; F$ s# a' P- P
11. Dim swSketchMgr As SldWorks.SketchManager
    % @9 G5 F; g' ]% Q( {" G7 b, S
12. Dim swSketchSegment As SldWorks.SketchSegment
    
13. Dim boolstatus As Boolean
    
14. Dim Part As Object
    % ?2 ~, C2 z0 r$ F% r* R
15. Dim myFeature As Object
    ) H* }! F6 B# G! t
16. Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double
    7 v2 Y: H" a+ B5 u* N
17. Dim n As Integer
    
18. 
    - c4 H' [$ R6 F/ {; G. z
19. Sub main()
    
20. 
    ; J. P8 G3 ~; ~7 |( o
21.     Set swApp = Application.SldWorks
    9 \: n4 s4 L& y( A' J) x- E% B
22.     Set Part = swApp.ActiveDoc
    . @7 D0 h& S5 x
23. ' Create part document
    8 q4 r- v9 R. J$ M! @
24.     Set swModel = swApp.ActiveDoc
    / k& M. j6 g5 E0 C: _' t
25.     Set swSketchMgr = swModel.SketchManager
    
26.     pi = Atn(1) * 4 '圓周率
      g! i3 H0 V. t2 c7 B8 T4 \; c
27.     ArcRadius = 0.05 '圓弧半徑
    
28.     ArcAngle = 300 * pi / 180 '圓周中心之圓弧角
    5 N! d% T8 u! V' l! k
29.     n = 5 '複製數(shù)
    7 u: U& z. B! y9 \$ l( U
30.     PatternSpacing = 40 * pi / 180 '複製之間隔弧度
    . s" o6 }6 j/ {8 M( b# S1 q
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, _
    " F& y6 |* q5 }+ X' J
36. DeleteInstances)圓弧半徑、圓弧角、複製數(shù)、複製間距(+ 間隔弧度正轉,- 間隔弧度逆轉)、圖案旋轉、刪除實例
    * k& H1 o( I/ m* Q8 w5 i
37.     boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
    $ A# J# @4 b" F0 u/ S3 V0 e8 A
38. 'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉方向), 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, _
    ! u9 V  e# v( w; T( [& \, {1 R
40.     0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm
    
41. 
    ' `, y( y2 t1 \; O4 G6 V
42. End Sub
    & C% o+ D! R8 T- n7 q7 T2 |1 \

復制代碼

4 s1 L" S/ G1 u; V1 [/ ~' i1 q  l
4 m% ~2 h) \& E9 j, O, m: {) ^
# U: w; p( C& M! L; n
& a. ~4 o: d) i6 }' ^/ k: S8 G
9 n. v/ o5 W) P0 P/ q* b) V1 I& g