宏-草圖圓周複製後拉伸

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

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

' ******************************************************************************) F6 F9 I5 s3 U8 O, U' L0 ^
' macro recorded on 05/12/18 by scliang
! q1 r. |6 w3 a- l8 q
' 功能:草圖圓周複製後拉伸& f& j# V" v4 a
' 操作: 開新零件,執(zhí)行 main
4 B) O) d" R' h8 e# |0 F5 }/ |% [
'
: V! v2 e; S6 d- l" H8 `) u4 `) W
' ******************************************************************************! X$ _7 ` C/ a1 x! h1 w) r5 f
Option Explicit
$ p' w$ W# z3 A, C% I4 s/ J5 m
9 p' G; \+ G. i8 c6 u, X. W/ i
Dim swApp As SldWorks.SldWorks* d" L/ @ F& _1 `% J) R/ a
Dim swModel As SldWorks.ModelDoc2- O- d! J, |% M4 v
Dim swSketchMgr As SldWorks.SketchManager
- z6 C9 x6 U; Z) t: W! o# \# ~$ N
Dim swSketchSegment As SldWorks.SketchSegment
( @ @& O& p) m* `& I) H
Dim boolstatus As Boolean% h* f: ?8 `) d1 b
Dim Part As Object
; e, }5 s: Y9 `) z8 D6 X* E$ d
Dim myFeature As Object4 p+ B i4 ^, F1 B' {# ~
Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double
# [# j' E+ |. I
Dim n As Integer
9 i2 u8 |$ f% s
, }$ | ?5 {. S; z+ s
Sub main()% H6 v2 O* J. ~% u% o( T! t% N
- ~* X7 B' P& S5 g; S. e+ \
Set swApp = Application.SldWorks
1 v/ r4 F0 o" c! C+ j
Set Part = swApp.ActiveDoc
% t1 t+ Z" I5 s, u' J
' Create part document
8 P5 @9 U C4 q A: V. E
Set swModel = swApp.ActiveDoc: _( ^- d- C$ E
Set swSketchMgr = swModel.SketchManager! d5 A& X6 W% ^5 Z# h: l
pi = Atn(1) * 4 '圓周率: Q% U% j/ b* k7 r( J- [$ U
ArcRadius = 0.05 '圓弧半徑$ J2 e1 t. N: o5 a. e
ArcAngle = 300 * pi / 180 '圓周中心之圓弧角
' X$ o& L/ J% ]. ~
n = 5 '複製數(shù)5 _: ~6 ?5 t( k+ c6 C
PatternSpacing = 40 * pi / 180 '複製之間隔弧度' J2 J. @) b2 y. s! K! C
' Sketch a circle
1 E3 A9 u9 c4 o4 n5 r) a' Y
'boolstatus = Part.Extension.SelectByID2("前基準(zhǔn)面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)9 X3 M( F7 \$ x6 Z
swModel.ShowNamedView2 "*Front", 1- S$ U2 F3 [7 k' d1 R, \" p
Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓- S8 a5 H* @, D9 l- T
'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
8 K+ e, h0 a+ l/ [/ W1 n5 @; O
DeleteInstances)圓弧半徑,、圓弧角、複製數(shù)、複製間距(+ 間隔弧度正轉(zhuǎn),- 間隔弧度逆轉(zhuǎn)),、圖案旋轉(zhuǎn),、刪除實(shí)例: o" N8 W5 L8 P S/ O
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製0 K8 H+ |, w% B& }5 B
'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉(zhuǎn)方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)
q& E7 u% D. U3 b5 b
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _
' f) e! C B! w0 {/ a6 E7 D2 g2 q: P
0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm; e) `9 R. H. H2 C) {! m
0 K1 B( N' y. ~0 ~/ Q
End Sub0 Y* Y2 h, U" n- H' z6 Y

復(fù)制代碼

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

宏-草圖圓周複製後拉伸

本帖子中包含更多資源

評(píng)分