宏-草圖圓周複製後拉伸

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

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

' ******************************************************************************
/ o: g$ y% h# \0 `' n9 L
' macro recorded on 05/12/18 by scliang
/ t, _% u1 }/ X6 ]# S3 P, T
' 功能:草圖圓周複製後拉伸
/ A; _0 { _- F8 ^
' 操作: 開新零件,執行 main
$ O% P7 c. v- R8 S' [; p C8 B) C
'+ t* ~7 {9 M% Q" v
' ******************************************************************************
* K- |: b/ Q/ ?
Option Explicit
5 S% S# r0 S( E3 z- c- y
4 ~+ h4 R u1 V9 }8 i/ \. o
Dim swApp As SldWorks.SldWorks5 b5 }3 g# ]2 {# w3 [0 u' k1 }
Dim swModel As SldWorks.ModelDoc2) i; h% [2 V* d- X9 u
Dim swSketchMgr As SldWorks.SketchManager# {# B# h0 r: M) W
Dim swSketchSegment As SldWorks.SketchSegment% s/ ?- r7 i# G$ x' K) ^: {, ]
Dim boolstatus As Boolean7 O. d Y! m( E3 N+ \4 m
Dim Part As Object
) J7 O7 F% g8 v1 S& @0 M
Dim myFeature As Object
/ P" P9 X' U, C; L; T1 R
Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double
" v" h, b( |/ x* ^% u- y+ B
Dim n As Integer
$ c8 w7 I6 V( T8 v
. U* S, I6 y9 O
Sub main()
5 I1 E) R* G1 @
Set swApp = Application.SldWorks% N5 q% a* H% L+ X8 y/ O9 T6 O
Set Part = swApp.ActiveDoc$ j" Q0 F2 C! I/ L
' Create part document
5 o, f8 r; N" Z, I# p
Set swModel = swApp.ActiveDoc: y) b \2 H* ?
Set swSketchMgr = swModel.SketchManager: M) W+ B. o# j) |2 \
pi = Atn(1) * 4 '圓周率
2 C' z- O# r9 \, ]$ h
ArcRadius = 0.05 '圓弧半徑+ a6 a, C9 p$ i, g7 A/ E: x7 G
ArcAngle = 300 * pi / 180 '圓周中心之圓弧角
( B2 h' h/ L% t. i" Q' @' g# C
n = 5 '複製數$ [0 o! H3 n+ C- l5 R
PatternSpacing = 40 * pi / 180 '複製之間隔弧度8 W- E) y& K; I: B) |
' Sketch a circle7 C6 {- p7 [; o6 ]
'boolstatus = Part.Extension.SelectByID2("前基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)4 y. t7 |1 S8 x1 J; D) ~
swModel.ShowNamedView2 "*Front", 1
, z5 y2 t* A: i1 [: d( W+ O3 D
Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓1 M9 Y: h$ f5 B" b6 ? ^8 T. {4 d
'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _! z1 y1 e1 q0 d. N( i
DeleteInstances)圓弧半徑、圓弧角、複製數、複製間距(+ 間隔弧度正轉,- 間隔弧度逆轉)、圖案旋轉、刪除實例
' m- }( b. N; T$ L9 \; A: ~! E
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製* ~9 _2 y3 i5 E! O& ^ H9 l
'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)& M6 s5 i, v9 i; a) n
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _
( E9 n1 J6 s( u$ l
0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm
* H: ~1 g# a& v. p0 F
$ Y6 s3 E1 W( n1 \7 P
End Sub
1 j$ @* d7 S( y' e# W1 r1 E) W

复制代码

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

宏-草圖圓周複製後拉伸

本帖子中包含更多资源

评分