宏-草圖圓周複製後拉伸

ryouss

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

1. ' ******************************************************************************
   2 h: j2 s. ^4 p$ p! I
2. ' macro recorded on 05/12/18 by scliang
   " R0 O5 k$ Q0 M1 f6 t1 w+ D
3. ' 功能:草圖圓周複製後拉伸
   6 I5 g' d: n9 H# Y5 j4 J' K; _+ D' G
4. ' 操作: 開新零件,執(zhí)行 main
   3 u" h& p5 |! D; v
5. '
   
6. ' ******************************************************************************
   ; @9 r2 l. d, J; ?! V1 o2 s  }
7. Option Explicit
   
8. 
   
9. Dim swApp As SldWorks.SldWorks
   
10. Dim swModel As SldWorks.ModelDoc2
    
11. Dim swSketchMgr As SldWorks.SketchManager
    
12. Dim swSketchSegment As SldWorks.SketchSegment
    
13. Dim boolstatus As Boolean
    % l7 y6 {7 Q% Q, U
14. Dim Part As Object
    ! q6 `1 [+ p4 ^8 A+ \2 d
15. Dim myFeature As Object
    
16. Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double
    2 o% l1 f* K+ l2 ]$ H7 Q  F, D
17. Dim n As Integer
    7 y) X5 }. q& u8 S0 O" M
18. 
    1 d2 k# E# L0 c9 a' O4 o0 E
19. Sub main()
    ( k+ |! ]( }7 |( S
20. 
    ( J1 L+ E, E% A; ?
21.     Set swApp = Application.SldWorks
    4 }% L8 t$ E! R4 `
22.     Set Part = swApp.ActiveDoc
    0 s# z) q2 P; w% g3 m, |
23. ' Create part document
    
24.     Set swModel = swApp.ActiveDoc
    
25.     Set swSketchMgr = swModel.SketchManager
    
26.     pi = Atn(1) * 4 '圓周率
    * R  M0 U* a" t  W3 K, b( }
27.     ArcRadius = 0.05 '圓弧半徑
    
28.     ArcAngle = 300 * pi / 180 '圓周中心之圓弧角
      n3 x9 a) R/ g) J; w% f8 X
29.     n = 5 '複製數(shù)
    
30.     PatternSpacing = 40 * pi / 180 '複製之間隔弧度
    7 S  K. N+ v; G' [
31. ' Sketch a circle
    
32. 'boolstatus = Part.Extension.SelectByID2("前基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
    
33.     swModel.ShowNamedView2 "*Front", 1
    ) ?3 H# L1 B# v' z! `. l  _* h
34.     Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓
    
35. 'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
    ' G8 L1 P: O2 l9 z
36. DeleteInstances)圓弧半徑、圓弧角、複製數(shù)、複製間距(+ 間隔弧度正轉(zhuǎn),- 間隔弧度逆轉(zhuǎn))、圖案旋轉(zhuǎn)、刪除實(shí)例
      J( S2 ?6 k3 e1 U1 i( G) [  U
37.     boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
    $ ^& m) L+ ~/ n6 M" l
38. 'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉(zhuǎn)方向), 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, _
    ( ^- R* Q; w" N
40.     0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm
    ( J* }/ D3 h2 ^( ?" K
41. 
    ' S5 \9 B. b# F: D+ a. C, q  O
42. End Sub
    0 S  F8 c& ~3 S1 f4 s& |: e9 B

復(fù)制代碼

3 l( U$ f+ ]  K! q




. Q3 N; l5 Z& P7 [