宏-草圖圓周複製後拉伸

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

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

' ******************************************************************************3 e/ H3 {/ \& t
' macro recorded on 05/12/18 by scliang
0 {4 J6 b8 Y l! i' i# j/ ^
' 功能:草圖圓周複製後拉伸* d! ^: M) {* q- v' l* Q9 R
' 操作: 開(kāi)新零件,執(zhí)行 main
% Y, l" i, ?1 A' J
'' e+ S' V% R# q! O9 H
' ******************************************************************************
1 Z, k, N5 a8 P! l( N, |
Option Explicit
$ A7 r& Q$ v9 ~
, P- W6 K, R! P7 b# P! L: ~
Dim swApp As SldWorks.SldWorks/ W* B; k5 @ n Z' X& r4 _
Dim swModel As SldWorks.ModelDoc2
3 n' v4 a2 S. j- u, R% A% ?# M
Dim swSketchMgr As SldWorks.SketchManager- x' F+ E2 ^3 R4 f+ d S
Dim swSketchSegment As SldWorks.SketchSegment
. H: n) L6 Q1 g1 }" [* _
Dim boolstatus As Boolean
- X# |) v" q+ p- y( ]- U6 a( U3 [
Dim Part As Object8 {% v5 q8 M) d
Dim myFeature As Object
! J1 D8 X5 ^& `# p3 `8 u
Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double
& ^" w) o" t9 ~( a7 R9 x
Dim n As Integer8 Y$ T+ H) Q4 f# L, ^# P8 w
- J) _5 \' I& _! L& c) ]& N8 I+ t
Sub main(); n: J% q( Y x' c
8 E& h7 ~- a$ C$ o; @2 n% D) {
Set swApp = Application.SldWorks, k% _8 O. p% ^+ O
Set Part = swApp.ActiveDoc
5 F$ w }% u6 |6 x( }: F
' Create part document
7 S0 q- Y0 p. E. H
Set swModel = swApp.ActiveDoc
+ G b w/ \. t5 _8 N+ U
Set swSketchMgr = swModel.SketchManager
# s! O. { C! H X2 p
pi = Atn(1) * 4 '圓周率; Y# \5 H/ G( t2 V: }4 l W
ArcRadius = 0.05 '圓弧半徑. y8 f' d) k& |- P9 f
ArcAngle = 300 * pi / 180 '圓周中心之圓弧角8 \; m0 o6 f+ A4 O3 q" t# l- [# P
n = 5 '複製數(shù)! V' h& b' Q, }, o9 v
PatternSpacing = 40 * pi / 180 '複製之間隔弧度
+ M2 d. V( o- @4 u: r& ?
' Sketch a circle
7 r. U8 Y, n' |& A# Y7 d
'boolstatus = Part.Extension.SelectByID2("前基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)1 @ F( I+ s. N+ C1 `) D) ~
swModel.ShowNamedView2 "*Front", 1
0 C7 F" W; x. k4 l T
Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫(huà)圓% a! s$ h; Q# e, n& V5 R, Y
'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
" @3 r# Y6 n: M$ d3 C
DeleteInstances)圓弧半徑、圓弧角,、複製數(shù),、複製間距(+ 間隔弧度正轉(zhuǎn),- 間隔弧度逆轉(zhuǎn)),、圖案旋轉(zhuǎn),、刪除實(shí)例 w- P/ D* ? u4 i5 l) O4 ~
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
# ~* \. c2 d# z- Z- C
'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉(zhuǎn)方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)$ N6 T$ M @8 w* [( O5 I
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _2 i* n N& v6 [, {( ~2 A) }
0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm A) ^2 ?0 c9 M5 ~, K
* W/ ~9 P5 n5 _
End Sub
- T9 R1 i+ Q, J5 `- d: b

復(fù)制代碼

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

宏-草圖圓周複製後拉伸

本帖子中包含更多資源

評(píng)分