|
|
楼主 |
发表于 2013-6-6 15:02:19
|
显示全部楼层
来自： 中国浙江嘉兴
}$ Z) O5 p5 a, r8 gDim swApp As Object5 U0 E0 S4 b& P5 g+ P$ u u
Dim Part As Object" N: H$ P$ a8 d: F% D+ [, |
Dim longstatus As Long, longwarnings As Long
# I7 W' l3 E+ ] X# t' y! |
1 [. w& i" H7 w( N* h9 B6 rSub main(), x: G! J% G& }+ b" L
Set swApp = Application.SldWorks
# ^" z! P6 Y2 |2 w Set Part = swApp.ActiveDoc
) ]" g/ |& }( ?$ r Dim myDimension As Object
* `6 y' T: {" s) v Set myDimension = Part.Parameter("D1@草圖3") ' "D1@草圖3" 須改成對應你的角度尺寸
8 i1 c9 N1 O1 \% A5 n pi = 3.141592654
& _3 H" a2 a" ~$ V; \ For i = 0 To 90 Step 5 '取 0~90度,間隔 5度 作旋轉+ K# p6 E }, G: i
myDimension.SystemValue = i * pi / 180
& N, P6 z3 n, R- S. g Next8 k) R+ u. G7 m0 I# {
End Sub |
|
发表于 2013-6-6 10:58:11
1 n9 C- \5 a" f2 K2 K
9 H1 d3 ?, g* M0 f2 `
平面的看上去像是立体的，有意思，收藏先
