宏-草圖圓周複製後拉伸

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

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

' ******************************************************************************0 T& J8 e( V7 L' B. \% r
' macro recorded on 05/12/18 by scliang5 a* u7 g- j7 j* ^
' 功能:草圖圓周複製後拉伸0 G" k+ v. W' t2 F7 a
' 操作: 開新零件,執(zhí)行 main
& C/ V' ]& w/ P5 V3 R C
'" Q g9 S" u8 z% K
' ******************************************************************************
6 e, K# ^& ^, N9 c& f
Option Explicit. w$ ?* S: e/ T0 T' U n
) |& V; z9 r" A9 G, N( f. X0 Z: ^
Dim swApp As SldWorks.SldWorks
+ c- D* R: y! _1 H8 h" }" ]
Dim swModel As SldWorks.ModelDoc27 q1 g. D, {/ D0 T: L ~& p# f
Dim swSketchMgr As SldWorks.SketchManager! D: T/ q( P2 L2 v5 L o
Dim swSketchSegment As SldWorks.SketchSegment5 V. I: j; U6 K( ^% `1 h/ Q
Dim boolstatus As Boolean% M C' V4 V% Q# p% o
Dim Part As Object$ t( d' r3 _/ J, ~! H6 J
Dim myFeature As Object3 M! ]8 _1 N" K9 h2 h0 U
Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double
$ H1 l% y, c7 H, }7 u; P& L5 r- [
Dim n As Integer# }( E. \- ^* x# s
1 }4 b% Q, g4 E2 g% t' b
Sub main()
" {7 k# n! \3 V0 e
9 C' q9 v6 r$ J! a9 X) v3 F2 O
Set swApp = Application.SldWorks- x# D7 E0 j) x3 }$ M4 d
Set Part = swApp.ActiveDoc. e5 ?. L% U5 B7 Z, s
' Create part document+ x) z1 Z3 W+ i
Set swModel = swApp.ActiveDoc7 n Y2 h W5 ~. ]4 a8 L
Set swSketchMgr = swModel.SketchManager; I6 b9 U* b* n7 U1 p; T/ y
pi = Atn(1) * 4 '圓周率
% x4 A3 @: X* _) X/ ]9 P1 V
ArcRadius = 0.05 '圓弧半徑% W+ R, k8 E- P
ArcAngle = 300 * pi / 180 '圓周中心之圓弧角
; p# W* F. Y% Q6 X7 v8 c
n = 5 '複製數(shù)/ X+ h. J* I6 @* _$ M
PatternSpacing = 40 * pi / 180 '複製之間隔弧度0 v1 }# L- E# @3 o
' Sketch a circle
+ z) X2 D4 J( L- {9 K( t5 P, b3 W& P
'boolstatus = Part.Extension.SelectByID2("前基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)% o4 n E7 @9 W
swModel.ShowNamedView2 "*Front", 1 z: L+ J) t4 i/ q
Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓" l T, G! f0 [2 }7 A9 I+ F
'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
, ^+ \. S6 E* u- r v2 V( p0 A# C
DeleteInstances)圓弧半徑,、圓弧角,、複製數(shù),、複製間距(+ 間隔弧度正轉(zhuǎn),- 間隔弧度逆轉(zhuǎn)),、圖案旋轉(zhuǎn),、刪除實(shí)例( {: X' R) ?% I- N; i; O$ H
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製' F9 L, a9 ?) R1 Y. Y" B
'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉(zhuǎn)方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)
8 O4 a3 `- }: H. X! S- X
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _
# Q* O( R) ~" P- Q* Z
0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm
! P( {: |* g' h0 S( g* W
* Y9 s* v$ }# [4 W. t5 w- C5 X0 g1 b
End Sub
1 t* L1 g/ N# P f1 Y; A& [

復(fù)制代碼

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

宏-草圖圓周複製後拉伸

本帖子中包含更多資源

評分