宏-草圖圓周複製後拉伸

ryouss · 發(fā)表于 2018-5-14 14:40:18

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

' ******************************************************************************" |, l( D2 C4 I$ k& d) r
' macro recorded on 05/12/18 by scliang9 m; D) G6 s" o- H
' 功能:草圖圓周複製後拉伸/ i$ _- g5 ^) f
' 操作: 開新零件,執(zhí)行 main0 W. d) @1 I) d$ C8 }
'* ?4 Q5 z5 s4 j7 s5 f
' ******************************************************************************+ a' S$ I! }" d. u& ^
Option Explicit' q4 b$ `& a+ \8 o& |" g2 Q# `) v
8 @' s8 |+ b, s9 n O
Dim swApp As SldWorks.SldWorks
' ], \! Q6 t% v
Dim swModel As SldWorks.ModelDoc2- O! V" H( W: M4 ? e, n
Dim swSketchMgr As SldWorks.SketchManager3 z, u, O( Q ]3 G" E
Dim swSketchSegment As SldWorks.SketchSegment
: N, W' S ~* U% y8 d
Dim boolstatus As Boolean& K8 q* k% t4 J( \5 H
Dim Part As Object
9 J: g/ G: y& U1 `# j
Dim myFeature As Object1 w, E3 n+ ] J+ C) P
Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double$ a8 t O# W5 S: y
Dim n As Integer( V1 h7 g6 p6 V* f6 J
$ h; Z+ \: e! a! P# {
Sub main() m V, H' m2 o+ Q# O
$ `8 S& G! y- K8 u; O+ k( x
Set swApp = Application.SldWorks
- t6 A; G. b3 o
Set Part = swApp.ActiveDoc0 f4 p4 ?4 E5 E
' Create part document
5 U8 `$ H; ~1 r) n3 i* X: m
Set swModel = swApp.ActiveDoc" O" P) c4 s! X6 s
Set swSketchMgr = swModel.SketchManager
6 F7 Q8 m; A6 H9 C' q8 |
pi = Atn(1) * 4 '圓周率' Y$ W3 h U( o, k* [- V/ W
ArcRadius = 0.05 '圓弧半徑$ D ^1 V- N: G+ s' r8 ^; g0 _
ArcAngle = 300 * pi / 180 '圓周中心之圓弧角- B& E- f% ^ b8 R5 q+ l
n = 5 '複製數(shù)
3 }% y6 ?9 U+ R g0 U+ w7 p D
PatternSpacing = 40 * pi / 180 '複製之間隔弧度
1 l# u4 R" z3 |7 Q' [( v3 }+ C: K6 r+ J
' Sketch a circle3 B6 c4 q, k! n" n% [
'boolstatus = Part.Extension.SelectByID2("前基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)( F* p y- i( y* N
swModel.ShowNamedView2 "*Front", 1
5 v8 ?! s$ b+ o7 L% s( B0 A5 t, z2 P
Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓
8 m' h' x8 ]7 R; s% C
'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
- J( @% N! T0 r5 U+ U6 c. Q
DeleteInstances)圓弧半徑,、圓弧角,、複製數(shù)、複製間距(+ 間隔弧度正轉(zhuǎn),- 間隔弧度逆轉(zhuǎn)),、圖案旋轉(zhuǎn),、刪除實例. b: U$ u [" S9 E. ^' J
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
1 `4 Z; c* v; H( ?% H9 a4 |
'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉(zhuǎn)方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge) E) ^. }" S0 E g! E/ C0 O
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _
^6 z1 j3 [! h: D5 I- f
0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm3 f7 P0 H; ~ ]
- J" j. Q' u p' u1 ]# U! R; Y5 W
End Sub
, D4 ]; ~+ v- _- w

復制代碼

		自動登錄	找回密碼
密碼			注冊會員

宏-草圖圓周複製後拉伸

本帖子中包含更多資源

評分