宏-草圖圓周複製後拉伸

ryouss · 发表于 2018-5-14 14:40:18

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

' ******************************************************************************1 E. v. ?8 l J% w
' macro recorded on 05/12/18 by scliang
9 y# y4 Z$ Z8 h1 l" h( h4 g
' 功能:草圖圓周複製後拉伸! ]$ d9 J5 ^% C7 |0 y- F
' 操作: 開新零件,執行 main
$ h# k* B2 f3 C9 M9 F& K
'
: L) @+ V$ V/ B( k' o
' ******************************************************************************9 U9 g/ E' s6 G8 {
Option Explicit
6 z% y; A" |9 t- S5 [# b
# @" _9 s& ?. s* G" d
Dim swApp As SldWorks.SldWorks
6 I$ T& C* \7 l3 \* v/ W4 l
Dim swModel As SldWorks.ModelDoc2& n3 H/ o! L; R0 d0 r, [
Dim swSketchMgr As SldWorks.SketchManager t, e* Z5 g- D' J% R$ l; W. N) {
Dim swSketchSegment As SldWorks.SketchSegment
2 p2 T: R! u- J4 V' O9 m3 [" l
Dim boolstatus As Boolean# r7 }- \: E( N7 l
Dim Part As Object$ n ^5 w* |" C6 f3 v) T
Dim myFeature As Object- i. d. @1 a/ U3 F- q
Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double) u5 D- q6 p' [/ h5 @( Q
Dim n As Integer
I& V9 u# R4 X, | a1 O# k
& T! F$ i4 B7 h6 {3 y( X' _ V) }( y
Sub main()( s m9 H# _7 O: j5 D
4 q7 O/ r5 \5 A6 g
Set swApp = Application.SldWorks* t3 e7 i+ m) }
Set Part = swApp.ActiveDoc
% ]& ]: N0 w8 f/ ~; ]2 h
' Create part document/ f) u$ M7 v; E9 a. i
Set swModel = swApp.ActiveDoc6 C, j( @. f2 Z% X- t
Set swSketchMgr = swModel.SketchManager9 p! J- l; L9 |4 W8 r- l3 ]" ~6 s
pi = Atn(1) * 4 '圓周率$ n; [7 ]$ y& Y4 ]
ArcRadius = 0.05 '圓弧半徑
# ?( T$ |, M8 D$ Q2 K! K: A
ArcAngle = 300 * pi / 180 '圓周中心之圓弧角* t$ ?% k: ~ a3 Q8 I4 N
n = 5 '複製數
- S4 k4 m0 n1 i4 x& O( Z
PatternSpacing = 40 * pi / 180 '複製之間隔弧度7 D- Y" ~9 [5 ~* ?# Y% J! [
' Sketch a circle+ p- |% z/ b' H. c& C1 |
'boolstatus = Part.Extension.SelectByID2("前基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0); U' y* y( o( O/ V7 I7 R. {- \
swModel.ShowNamedView2 "*Front", 1
: \' V) K, D9 N, Y2 {! M
Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓" W' z' P6 C2 ?9 r, g8 f
'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _: P7 N+ V1 t9 \+ z% K' l) G4 F B
DeleteInstances)圓弧半徑、圓弧角、複製數、複製間距(+ 間隔弧度正轉,- 間隔弧度逆轉)、圖案旋轉、刪除實例
; v, Q( u! _5 G
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
2 ?! o/ q) `6 D( k0 \9 i* x% d$ z
'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge) c2 I3 i7 _1 l. s, a( f
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _
& u& L- e1 r |7 W8 N: N) e
0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm
# O5 n9 T9 Z6 N/ O2 w
8 P5 n+ g4 e' M# w# Y
End Sub& R, L$ L& U( e7 W, U

复制代码

		自动登录	找回密码
密码			注册会员

宏-草圖圓周複製後拉伸

本帖子中包含更多资源

评分