宏-草圖圓周複製後拉伸

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

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

' ******************************************************************************. _; X6 l& M7 J! z) G
' macro recorded on 05/12/18 by scliang# R/ |: k5 k& I! S6 Y6 ]
' 功能:草圖圓周複製後拉伸# F0 @2 J. V. C9 E+ H$ b# C
' 操作: 開(kāi)新零件,執(zhí)行 main
, R. W, ]: ~0 {* O
'
4 A Q& W ~7 U. q4 b
' ******************************************************************************5 g; X4 P+ w3 Y" X& T
Option Explicit; f& F1 ]' E0 h u: k
/ A" h0 d" K5 k9 C6 x( R
Dim swApp As SldWorks.SldWorks
) M' G. B: @, p1 j
Dim swModel As SldWorks.ModelDoc2 E& w0 `( ~1 E2 {' n F
Dim swSketchMgr As SldWorks.SketchManager% e& E& h+ ^( c
Dim swSketchSegment As SldWorks.SketchSegment
0 Q6 o( J8 W( J P
Dim boolstatus As Boolean
! y5 D4 z# j% H0 R6 L3 b, }! U
Dim Part As Object& l. Y% U4 _: ?
Dim myFeature As Object) M3 R: r! n. e' M! q
Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double2 n7 l' U3 Y& x$ i9 I' o
Dim n As Integer
9 v' M5 ^/ T* o% I9 G9 q* Z+ J2 `, I
, x/ X" Z. N) g7 J7 I, f
Sub main()+ j. _$ R% q2 X' o
% N/ o' G7 Z: f1 j; J y0 W1 |
Set swApp = Application.SldWorks6 U2 N! u; i; i$ L# ^
Set Part = swApp.ActiveDoc- o5 ~% \7 F! ?% {
' Create part document
8 W* l7 @* P& f$ E
Set swModel = swApp.ActiveDoc
; H1 z J7 `4 ?. Q
Set swSketchMgr = swModel.SketchManager/ q) ^% H' r9 |, V8 L5 V3 [
pi = Atn(1) * 4 '圓周率
( k* g5 v L! c/ X
ArcRadius = 0.05 '圓弧半徑
& @6 S1 O) ~$ X
ArcAngle = 300 * pi / 180 '圓周中心之圓弧角; a0 L7 K( R: K' x
n = 5 '複製數(shù)
* I: N! f" Q3 l$ K
PatternSpacing = 40 * pi / 180 '複製之間隔弧度' X( {7 H3 f0 H8 }* T
' Sketch a circle. H! F. o' n0 N+ L0 s# [+ w
'boolstatus = Part.Extension.SelectByID2("前基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0); t# E) s$ @0 o6 b) h
swModel.ShowNamedView2 "*Front", 1- k. V" h" }' L3 l, Y% p7 I
Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫(huà)圓! M+ g5 i9 V& P7 w6 g" k; P
'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
+ g* ?, @1 x F. g
DeleteInstances)圓弧半徑,、圓弧角,、複製數(shù),、複製間距(+ 間隔弧度正轉(zhuǎn),- 間隔弧度逆轉(zhuǎn)),、圖案旋轉(zhuǎn),、刪除實(shí)例
& N2 X9 [# y; r. d
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製( y; t) _! C& A; p. J5 c0 G
'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉(zhuǎn)方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)
0 t( P1 ^. |: C0 S
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _. b0 [/ E" ?; E8 n
0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm. [) ]" `, r; @1 q
: D2 R5 d8 w$ q; @' b( o
End Sub: k8 ]8 q; b8 ^5 g

復(fù)制代碼

		自動(dòng)登錄	找回密碼
密碼			注冊(cè)會(huì)員

宏-草圖圓周複製後拉伸

本帖子中包含更多資源

評(píng)分