圓周分佈鉆孔-宏

ryouss · 发表于 2018-5-20 16:36:44

參考

Sub Draw_()7 q9 a/ H! F- q- v
With UserForm1) l" T3 y# \7 v* b h4 j
'判定資料沒打或是輸入錯誤(起始圓半徑限制不能小於等於鉆孔直徑)
6 r# t, y5 t w, V# K& `# r$ `, g
If .TextBox4.Value <= .TextBox3.Value Or .TextBox1.Value = "" Or .TextBox2.Value = "" Or .TextBox3.Value = "" Or .TextBox4.Value = "" _
9 i w6 Y! c- O" \! Z
Or .TextBox5.Value = "" Or .TextBox6.Value = "" Then, a3 R+ n6 N' B1 E0 ~( F1 J
MsgBox ("Data error Or Data empty")8 \& m2 p8 D3 d1 c. f
Exit Sub
6 Y* p2 k) v2 G6 }$ L
End If# H+ K0 X$ i/ G
Set swApp = Application.SldWorks
4 B. `! ?! B3 ?8 h
Set Part = swApp.ActiveDoc
) E/ V9 u& v* o! y8 P5 \
Set swModel = swApp.ActiveDoc2 m# k% K6 J. A( M1 k
Set swSketchMgr = swModel.SketchManager3 Q3 F- p" m9 m! @9 X. {; M& k- O
0 I$ M8 _. x" v. U( @
Part.SketchManager.InsertSketch True '依據選取面插入草圖
1 u J5 y/ ^+ I4 u! T' W- C" E0 |7 ~
'中心圓之座標及作圖# ]# u' P7 e1 W3 f( ?$ Y
X1 = .TextBox1.Value / 1000' z% }0 t. d) G+ P0 |1 ?9 D1 ]$ X4 s
Y1 = .TextBox2.Value / 1000, W8 n! [2 C0 F& S3 t( c
X2 = X1 + .TextBox3.Value / 2 / 1000
0 U1 c( G- O- r# t/ p
Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#), A0 d/ f, ?/ V' Q
'圓周分佈之鉆孔6 r2 q9 |! p Q# R
pi = Atn(1) * 4& o4 Z# c* [+ n# w8 ]9 F- y
Drill_Diameter = .TextBox3.Value / 1000, c3 U9 k% [% y7 k: y2 x7 o* v
Start_Circle_radius = .TextBox4.Value / 1000/ ^; b' z& r z. d9 C+ E
Circle_number = .TextBox6.Value
! f9 y( \8 R) V4 W" j
ArcAngle = pi '複製孔之圓弧角皆為180度3 r6 |! q1 L3 a; d4 ] A
Drill_depth = .TextBox5.Value / 1000 '鉆孔深
0 A' D2 J$ U0 i3 B
For i = 1 To Circle_number
0 u& E/ |9 k- v" D+ G W8 o
Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
- V2 E" k$ a; I4 G( y0 |1 r
Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數
. {2 T# p/ m0 O! Q% C4 X; ^
'分佈圓之基圓作圖
3 Z, I" s8 u3 G8 Q1 i, l: {$ ?
BX1 = X1 + Circle_radius
1 }6 ]3 b! ]- R/ o
BX2 = BX1 + Drill_Diameter / 2
7 U3 p) K$ m W' y
Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)5 Y, X! j6 C9 _4 ?1 ^* `
'分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
- {, ?; o( {9 r; U3 w6 [; P2 r
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)9 c$ ~( r O: s9 d: Z; S
Next: G, o" C: t% X% U9 }
End With
. k" `3 @' [' H! E7 m' [" W4 g
Dim myFeature As Object# ?" I8 o! P, h
Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, Drill_depth, 0, False, False, False, False, 1.74532925199433E-02, _
1 G# t8 q5 Z/ A
1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)0 h' k+ ~+ x7 G. }+ k w
End Sub6 k# x+ M: c& o) y, G+ ]/ Z
, |3 S& T: P$ k4 T( f
Sub main()4 l* e5 K0 t! y6 n
UserForm1.Show) \, Q* R# r4 I6 E
End Sub

复制代码

冷月梧桐 · 发表于 2018-5-20 18:28:06

我表示还是手编吧

yinzengguang · 发表于 2018-5-20 21:20:09

楼主自己编写的？
想学习用C#编写

ryouss · 发表于 2018-5-20 23:01:29

冷月梧桐发表于 2018-5-20 18:28
! e% f: s, x ^9 n我表示还是手编吧

孔數 1195,一鍵解決.

探根究底 · 发表于 2018-5-20 23:56:31

写程序用什么语言怎么又是VB又是C语言的有啥区别？

ryouss · 发表于 2018-5-21 08:37:14

探根究底发表于 2018-5-20 23:56- [* R N: Y0 a2 k
写程序用什么语言怎么又是VB又是C语言的有啥区别？

程序语言形形色色有很多,先選個跟自己工作興趣有關的學習.

林希9527 · 发表于 2018-5-21 09:14:26

楼主很赞哦！

远祥 · 发表于 2018-5-21 21:17:38

有插件做这类规则编程就会方便很多。

0377zjp · 发表于 2018-5-22 09:00:43

怎么导入

ryouss · 发表于 2018-5-22 10:34:56

本帖最后由 ryouss 于 2018-5-24 09:42 编辑

0377zjp 发表于 2018-5-22 09:00
, M$ \3 y% G5 E9 A怎么导入

' 功能:圓周分佈鉆孔,本範例因是用除料拉伸,所以鉆孔是平底.
' 操作: 1.在零件先選取要鉆孔之平面.
'       2.執行 "main" .
'       3.X座標取正數,若是負數可能會出錯.
'       4.首圈半徑近似於相鄰兩孔之中心距離.

2018-5-24修正 swp檔

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

圓周分佈鉆孔-宏

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

点评

本帖子中包含更多资源

点评

本帖子中包含更多资源