宏-草圖圓周複製後拉伸

ryouss

分享在他網的回題小程式,適合想學sw API的初學者參考!
# u. z* x& P) W9 U. I

1. ' ******************************************************************************
   4 q+ a: ~5 F% m
2. ' macro recorded on 05/12/18 by scliang
   
3. ' 功能:草圖圓周複製後拉伸
   
4. ' 操作: 開新零件,執行 main
   ! b& ]6 u- [, ?& y7 _) i b
5. '
   
6. ' ******************************************************************************
   
7. Option Explicit
   
8. 
   6 Q+ M" Y/ X f M+ `
9. Dim swApp As SldWorks.SldWorks
   6 D0 c% C$ x) I- n a M
10. Dim swModel As SldWorks.ModelDoc2
    
11. Dim swSketchMgr As SldWorks.SketchManager
    , Z* `2 f# M! E& s/ u. V% e& z C
12. Dim swSketchSegment As SldWorks.SketchSegment
    0 \7 a8 t" G; u: ^3 A: S0 I/ P. t1 g4 @, A
13. Dim boolstatus As Boolean
    
14. Dim Part As Object
    
15. Dim myFeature As Object
    8 R" n) }/ B& w: m6 N' I/ \
16. Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double
    3 I9 n; q8 r) A4 f0 ~
17. Dim n As Integer
    . w% u3 @/ n& ^$ {* ^
18. 
    
19. Sub main()
    
20. 
    
21. Set swApp = Application.SldWorks
    1 Z$ ^2 M$ g7 `
22. Set Part = swApp.ActiveDoc
    # y: q# N7 ~0 c. ?. x8 k; h
23. ' Create part document
    
24. Set swModel = swApp.ActiveDoc
    
25. Set swSketchMgr = swModel.SketchManager
    ! q5 Y( Q/ l- U6 K* o; ^
26. pi = Atn(1) * 4 '圓周率
    
27. ArcRadius = 0.05 '圓弧半徑
    
28. ArcAngle = 300 * pi / 180 '圓周中心之圓弧角
    0 D/ j) T* O0 N4 l3 M
29. n = 5 '複製數
    ( r, O. j; C( d f+ t! q
30. PatternSpacing = 40 * pi / 180 '複製之間隔弧度
    # Q5 U8 ]' g2 H' C8 \4 n
31. ' Sketch a circle
    # h0 O4 a9 x, m1 Y U# H
32. 'boolstatus = Part.Extension.SelectByID2("前基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    
33. swModel.ShowNamedView2 "*Front", 1
    ' z- k, o% Y; x7 f5 t
34. Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓
    
35. 'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
    / @) U7 s# |/ N) l9 K
36. DeleteInstances)圓弧半徑、圓弧角、複製數、複製間距(+ 間隔弧度正轉,- 間隔弧度逆轉)、圖案旋轉、刪除實例
    
37. boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
    2 B8 a7 k! J5 _1 E
38. 'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)
    6 ]& a' m6 J/ N" _% p0 k
39. Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _
    ! ~1 t6 u' Z: T* n, j' J
40. 0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm
    
41. 
    ! K3 ?1 ^ a2 R ~4 |
42. End Sub
    

复制代码

2 z8 n8 C5 `$ A5 }# L% s' y
! _, z' {$ u: r& Y; s2 e( N4 P2 n
1 j/ n) W7 i, R3 p0 K
3 J# m3 W7 ]; ^2 |5 i5 Y8 e