宏-草圖圓周複製後拉伸

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

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

' ******************************************************************************
& h! x( `/ K3 I, D
' macro recorded on 05/12/18 by scliang
( V- i; n8 b. M2 K
' 功能:草圖圓周複製後拉伸
1 r. K7 O, Y2 R" Q
' 操作: 開新零件,執(zhí)行 main
'9 X, L$ O2 a) P' F$ n! Q* ]+ _
' ******************************************************************************
! ?% v% H- z f( s* [
Option Explicit: U& h8 J. @+ M( V9 f2 t5 l
; A+ v- [2 P6 F1 L3 O) M( Q; l
Dim swApp As SldWorks.SldWorks
5 _9 B! y! m) Z( M6 q5 [
Dim swModel As SldWorks.ModelDoc2
2 D4 o6 [9 t; k! {' O; Z z
Dim swSketchMgr As SldWorks.SketchManager
& \. ?8 w. q. q2 _
Dim swSketchSegment As SldWorks.SketchSegment( N4 ]/ e, f( O' F' }" M. I4 K
Dim boolstatus As Boolean, C. n* S3 x6 P9 K) |
Dim Part As Object3 o8 X$ I* T/ o$ T5 W6 u
Dim myFeature As Object5 Q% s7 M% O: M5 W" z* u. Z
Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double
5 F; K: g8 [5 \. |
Dim n As Integer
y1 h) ]- m0 C0 M
4 Q% u# B' a; o3 Z, m) }- o
Sub main()
6 n/ @1 |) c: q. A+ [
6 J8 @( ? Q2 H6 P0 x9 Q3 F
Set swApp = Application.SldWorks' T1 Q4 t9 l0 P' J$ U+ N+ B. |
Set Part = swApp.ActiveDoc
6 L& {5 @& }# t' T
' Create part document+ L- B7 |4 J, D# G' |, q1 V- h, ?
Set swModel = swApp.ActiveDoc# ]! ?3 d/ C* }6 b
Set swSketchMgr = swModel.SketchManager1 y/ s( ]1 t R* L
pi = Atn(1) * 4 '圓周率( s% T; _. g0 ]" m( y& `
ArcRadius = 0.05 '圓弧半徑2 B* c1 d, f1 u: ~: c
ArcAngle = 300 * pi / 180 '圓周中心之圓弧角" U6 G: M, F2 k& F% J j' o
n = 5 '複製數(shù), W5 @8 f+ ~1 b& V6 f
PatternSpacing = 40 * pi / 180 '複製之間隔弧度
/ C# u( x8 W" V8 i6 z* M M
' Sketch a circle6 z1 q! J, k0 c0 t: C( V# R
'boolstatus = Part.Extension.SelectByID2("前基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
/ {4 m/ K* [4 E, q& \5 L# {" a
swModel.ShowNamedView2 "*Front", 1; m8 i6 B/ A. [/ B6 D8 x4 k$ p1 H
Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓; y1 Y/ h! b9 y
'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _3 r, T+ e' R" F& T, g3 N1 c
DeleteInstances)圓弧半徑,、圓弧角,、複製數(shù)、複製間距(+ 間隔弧度正轉(zhuǎn),- 間隔弧度逆轉(zhuǎn)),、圖案旋轉(zhuǎn),、刪除實(shí)例6 Q+ }$ `9 ^$ T1 V! ?
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
: \, w% M7 G) ^2 \3 ^1 Q
'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉(zhuǎn)方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)
+ R/ ~/ n3 X2 G# @4 t4 m
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _6 F) N4 L0 f( y
0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm9 }: J7 C3 q5 R; ]/ C9 h0 K
( m* c, I3 N7 K3 b
End Sub
2 m+ E) P l/ T3 d0 M

復(fù)制代碼

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

宏-草圖圓周複製後拉伸

本帖子中包含更多資源

評(píng)分