宏-草圖圓周複製後拉伸

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

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

' ******************************************************************************$ {: F- F t+ Q9 P0 _9 e
' macro recorded on 05/12/18 by scliang3 C) ^2 j& y' ^ g
' 功能:草圖圓周複製後拉伸
4 `8 y3 p$ v6 n4 u, T" E, a/ D, b
' 操作: 開新零件,執行 main
8 u6 i7 o0 ^. o1 c1 R* T/ v: `
'' N: s8 }( c4 `% b
' ****************************************************************************** Q; r& p$ V# S' ]! z' a6 ^) O
Option Explicit
( T' f/ [2 K- u
: n! V; t- {4 l* h" p: M
Dim swApp As SldWorks.SldWorks' l: t A. h R! ]9 O
Dim swModel As SldWorks.ModelDoc2$ x. _; j( v6 u' e' b
Dim swSketchMgr As SldWorks.SketchManager" |' k2 t, o3 |3 ~) O0 ?+ P
Dim swSketchSegment As SldWorks.SketchSegment! G% ]" [( u- i
Dim boolstatus As Boolean
, U; G$ F; p' p1 A9 M, F' j- J
Dim Part As Object$ {: Z- y* B- ^' S5 Q* F( Q5 a
Dim myFeature As Object
* z" S$ k0 z% ?3 M1 O! P; u
Dim pi, ArcRadius, ArcAngle, PatternSpacing As Double% T2 X+ l& {: n
Dim n As Integer6 s: O8 s9 S% |2 ~8 S+ S
2 c7 D' D% H2 R$ s ?
Sub main()
7 _6 K$ {' D+ ^ r* _' J
- j' ?" w2 }( j- \5 h3 E- r
Set swApp = Application.SldWorks
& k% Y; b* b7 ?1 _$ t+ v
Set Part = swApp.ActiveDoc6 a3 q4 R8 l1 D T, U0 m
' Create part document- F+ Z! S" D! L( T4 E/ M9 g2 j0 a
Set swModel = swApp.ActiveDoc; q6 p! ^) x1 y" C; j9 N9 e) R/ R( @
Set swSketchMgr = swModel.SketchManager
5 k3 R% f9 U8 ` L
pi = Atn(1) * 4 '圓周率
7 x |1 G& x( L* _/ q! i) W
ArcRadius = 0.05 '圓弧半徑 F3 Q3 l X( k: I
ArcAngle = 300 * pi / 180 '圓周中心之圓弧角' l: A: b: V1 k" K# {
n = 5 '複製數) B! i; u! t4 A ?1 b! ]! n: s
PatternSpacing = 40 * pi / 180 '複製之間隔弧度
) |1 y4 H5 {7 E) R
' Sketch a circle
' z3 R% z ^7 p/ Y* P# o
'boolstatus = Part.Extension.SelectByID2("前基準面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
0 a9 _( {, ~, X5 h1 N
swModel.ShowNamedView2 "*Front", 1; X" J* J/ A0 D) G7 \% ^' Y
Set swSketchSegment = swSketchMgr.CreateCircle(0.01, 0.06, 0#, 0.01, 0.07, 0#) '畫圓
; t2 u0 y9 c5 K/ h7 v
'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _# E+ d1 K0 J% ^7 l: Q7 F
DeleteInstances)圓弧半徑、圓弧角、複製數、複製間距(+ 間隔弧度正轉,- 間隔弧度逆轉)、圖案旋轉、刪除實例
4 K0 f% f2 A8 [6 J* u$ g$ H+ C
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, n, PatternSpacing, False, True, True, True, True) '圓周複製
! c$ p) K, o/ p8 ?1 Z5 t
'instance.FeatureExtrusion2(Sd, Flip, Dir(反轉方向), T1, T2, D1, D2, Dchk1, Dchk2, Ddir1, Ddir2, Dang1, Dang2, OffsetReverse1, OffsetReverse2, Merge)
* `8 c/ j6 Y& @7 g
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.03, 0, False, False, False, False, _: N$ g# H% \5 w3 p6 _( T
0, 0, False, False, False, False, True, True, True, 0, 0, False) '拉伸 30mm3 T7 Z5 H; R, M. B$ n
% v5 I0 e* ~% U+ ~- J4 x% \1 _
End Sub
* w9 t* u( q) P5 j: I+ C

复制代码

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

宏-草圖圓周複製後拉伸

本帖子中包含更多资源

评分