宏-草圖圓周複製後拉伸

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

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

' ******************************************************************************! F4 _9 Z; Z8 M$ G7 g, |0 E$ I) U$ h \2 a
' macro recorded on 05/12/18 by scliang1 J: s" p% x- n/ V6 h. f s
' 功能:草圖圓周複製後拉伸0 P% q3 S7 o" r" H: e, |, l8 q
' 操作: 開新零件,執行 main
4 v) g7 Q: \% n7 {% B( J6 x
'" X- y2 F. e+ {3 E1 ?" l
' ******************************************************************************
2 i7 a l. D- `% F" i; ]$ z
Option Explicit
4 @8 p L+ A4 N7 B* `# @
3 I5 D N7 o: o0 N3 r& H
Dim swApp As SldWorks.SldWorks5 X- C S/ a' x9 m
Dim swModel As SldWorks.ModelDoc2
* P I; k- [7 s1 A- E) }: D
Dim swSketchMgr As SldWorks.SketchManager1 p4 W' N0 g9 ]& d
Dim swSketchSegment As SldWorks.SketchSegment
6 }$ }# i( C; W2 v$ r
Dim boolstatus As Boolean
9 @2 @. h& z5 S5 L* d' N
Dim Part As Object
6 u( u$ w/ ~- u9 _! @6 f. f5 r
Dim myFeature As Object% {+ P; n6 r9 l' r( M
Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double
0 h2 r2 ?$ H) K% c- L
Dim n As Integer/ u8 t6 v% I4 _! d; H- L
, A) c# Q# E6 i: e7 z
Sub main(); n- X' S |. v4 M1 s5 i" C& E
! t* F. V z/ _
Set swApp = Application.SldWorks# h" h3 p5 s. a$ C0 v
Set Part = swApp.ActiveDoc
3 ~9 C2 X/ z5 q \2 ]. }
' Create part document3 B4 v( q3 R0 V' D& J# ?# c# D
Set swModel = swApp.ActiveDoc
$ F( a+ q Z) w0 R! n9 s
Set swSketchMgr = swModel.SketchManager
6 ?8 }! n$ y/ G, @; G
pi = Atn(1) * 4 '圓周率% y/ r' B# N, t8 L3 e) {
ArcRadius = 0.05 '圓弧半徑
( p. K: Q# G" g, F/ j( Z" T
ArcAngle = 300 * pi / 180 '圓周中心之圓弧角
! i! I( U7 @& r# J1 D$ m# r1 j
n = 5 '複製數
. O% _/ @% x: f. C) `* |
PatternSpacing = 40 * pi / 180 '複製之間隔弧度
% j" d, e% t2 y
' Sketch a circle* v4 O+ V/ ~4 e. f6 f) l- Q- |; ~% `
'boolstatus = Part.Extension.SelectByID2("前基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
% A1 {/ R3 T% b& g. a" }6 |& H6 D
swModel.ShowNamedView2 "*Front", 14 H& H [8 X+ E5 j( X
Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓
0 L# s! h0 W& m/ X+ {! S
'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
' n, W" I b3 p: g( \3 Q% W: ~! o
DeleteInstances)圓弧半徑、圓弧角、複製數、複製間距(+ 間隔弧度正轉,- 間隔弧度逆轉)、圖案旋轉、刪除實例9 m; f2 @, v. r% \5 c# ~- c
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
( u$ @5 k0 h5 G3 s5 s3 I) O! M
'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge); I0 { `( Q! v8 ?( j( n
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _9 t2 O. B) {$ v0 A7 M* d
0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm, q7 ^. }3 @+ T4 y5 i
6 r9 |$ U/ Q' V# G% g0 ~& O \' H
End Sub
. b& E; {$ N6 D" E6 ` Q

复制代码

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

宏-草圖圓周複製後拉伸

本帖子中包含更多资源

评分