|
|
楼主 |
发表于 2013-6-6 15:02:19
|
显示全部楼层
来自： 中国浙江嘉兴
* p' Y2 c; J- B" I; F- `( [Dim swApp As Object1 a7 V" _# A0 m, ~0 e
Dim Part As Object; `6 m) p( d5 P C8 q0 z
Dim longstatus As Long, longwarnings As Long
9 R* X, q, p' y) r: S! Q; Y" Y
# N6 y) a. ~( B& \5 ?Sub main()
4 R. o( I4 m0 a6 z; T5 W Set swApp = Application.SldWorks
. d$ d" z, }& `) E5 F2 x Set Part = swApp.ActiveDoc( H& T, K5 @* s( U$ l$ L7 ?9 W
Dim myDimension As Object. ]6 e. Q: `6 W! J) J" d
Set myDimension = Part.Parameter("D1@草圖3") ' "D1@草圖3" 須改成對應你的角度尺寸
. p9 m( z; X3 }3 x1 \ pi = 3.141592654
* r3 q' a) E; b# q( N For i = 0 To 90 Step 5 '取 0~90度,間隔 5度 作旋轉' I# U+ r+ s- ~/ a+ e1 Q: }
myDimension.SystemValue = i * pi / 180: [' | a5 Y! H% t J1 p! u% ^
Next) h$ r: O6 n* V( @6 J# _
End Sub |
|
发表于 2013-6-6 10:58:11
平面的看上去像是立体的，有意思，收藏先
