宏-草圖圓周複製後拉伸

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

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

' ******************************************************************************6 z, E6 U( L# w' j2 N% \
' macro recorded on 05/12/18 by scliang
0 i$ L, A# Z( b2 }' q5 j
' 功能:草圖圓周複製後拉伸
! C8 H3 y+ D& Y+ [ v, q/ S1 E/ [
' 操作: 開新零件,執行 main
- E! l; y6 q) R
'% A. g) H5 m/ i+ z6 l; i
' ******************************************************************************
! W4 b4 Y9 X, l& `8 m# q- j
Option Explicit
. A% s: {, V( T1 H% T9 c% l
" s3 j& c7 g1 ]$ D1 _% n( r3 R+ Y
Dim swApp As SldWorks.SldWorks7 ~4 Q9 t" i' R7 X& P7 |1 l9 w
Dim swModel As SldWorks.ModelDoc2
+ @! f% |1 l" w5 |5 S: o1 ~9 X( q
Dim swSketchMgr As SldWorks.SketchManager
. ^9 K1 [- C6 |3 D; n
Dim swSketchSegment As SldWorks.SketchSegment5 {! T; s% D$ p$ _! S d& p
Dim boolstatus As Boolean
" Q8 L4 b' y$ D; c4 F) R5 u7 F1 n
Dim Part As Object
6 r! h+ i, S- }4 v" g
Dim myFeature As Object# L& L* Y9 V+ c y( q
Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double/ O6 ~& Y- c* {
Dim n As Integer) g D R% S9 d: Q4 u2 v9 s
8 u. R; R% R6 h' P8 a0 w' d
Sub main()) v/ b, t: j; |9 x# \9 X& {
" Q/ C4 k) I- j2 ^7 z3 B0 m
Set swApp = Application.SldWorks: O* Y5 t! \+ @) {2 A
Set Part = swApp.ActiveDoc
3 Q3 g( O+ j# @8 }1 z" ]
' Create part document
. w0 {) D' [2 g% ]
Set swModel = swApp.ActiveDoc' d/ z! A+ {; G- b
Set swSketchMgr = swModel.SketchManager3 P: P4 u) ^( k% E+ s
pi = Atn(1) * 4 '圓周率. C- L8 G5 x4 Y
ArcRadius = 0.05 '圓弧半徑+ J* T7 ?( g j) a ^; K! C% b
ArcAngle = 300 * pi / 180 '圓周中心之圓弧角
4 [. ]; Y# n# b( `5 K/ S4 F& ]
n = 5 '複製數2 t5 Q+ k' d. I3 C2 w/ z. K2 `
PatternSpacing = 40 * pi / 180 '複製之間隔弧度
7 o1 ^) c5 y; {) F- A5 K
' Sketch a circle
- l5 y* r" a& s+ `5 I/ i
'boolstatus = Part.Extension.SelectByID2("前基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
* w2 l* f/ Q( H
swModel.ShowNamedView2 "*Front", 18 y3 P& a8 F5 a# d7 n
Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓
; j* @6 }2 @# C/ I( L3 Q8 Q% a% L# r
'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _' W0 ?! ~7 F. r" {1 n' r* l3 v# K% P
DeleteInstances)圓弧半徑、圓弧角、複製數、複製間距(+ 間隔弧度正轉,- 間隔弧度逆轉)、圖案旋轉、刪除實例
" b; J+ q% u0 F' U Q/ ?- ?
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
0 Z1 |( E' x9 i* c0 h$ G
'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)
" n! t% E& _- f
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _/ W5 F& x ?( R6 Q1 z* v
0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm
. l1 Z$ l9 q( X8 {& \0 D
$ J/ |4 t' n0 z
End Sub
6 r" k1 Y: a( H) `

复制代码

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

宏-草圖圓周複製後拉伸

本帖子中包含更多资源

评分