圓周分佈鉆孔-宏

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

參考

Sub Draw_()- f' w! T# |3 [0 S6 U
With UserForm1% ` i7 x9 @2 ?* a, R* }9 @
'判定資料沒打或是輸入錯誤(起始圓半徑限制不能小於等於鉆孔直徑)
- L7 A, N4 U/ M% ]
If .TextBox4.Value <= .TextBox3.Value Or .TextBox1.Value = "" Or .TextBox2.Value = "" Or .TextBox3.Value = "" Or .TextBox4.Value = "" _
7 j, i& @8 ?/ v$ r4 n! ^: C. c. f
Or .TextBox5.Value = "" Or .TextBox6.Value = "" Then2 D+ a7 J7 |5 [6 e
MsgBox ("Data error Or Data empty")- Q+ S9 c8 s0 ^; k* A( @/ {
Exit Sub
; W$ T* @3 P! D$ ^) M
End If; Y1 Y+ I" V4 r x. q8 v
Set swApp = Application.SldWorks
5 L( w. V/ d% q e3 B
Set Part = swApp.ActiveDoc
. ]% J$ i+ ^2 H( B/ L9 O/ T
Set swModel = swApp.ActiveDoc# y1 ^! D8 d/ h8 k$ V
Set swSketchMgr = swModel.SketchManager% y4 @3 L9 K, _
\* _ F( Q+ ]6 g9 U0 C
Part.SketchManager.InsertSketch True '依據選取面插入草圖
6 R$ ^0 C8 h0 W3 n0 t1 [3 w
'中心圓之座標及作圖
! Y. p# U/ Y+ [+ L+ N0 C2 M' ?: @
X1 = .TextBox1.Value / 1000 U$ r- _. ? I F, O
Y1 = .TextBox2.Value / 1000; W2 O) P2 ]+ n, s% Y' |
X2 = X1 + .TextBox3.Value / 2 / 1000
7 } P5 a/ l$ p& K: k
Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)# d" A7 J7 x' i2 B6 {2 p: V* f6 z
'圓周分佈之鉆孔
+ j' l, k% }, ?6 m$ q" K
pi = Atn(1) * 4
6 o( L5 K0 Y( `1 S8 r5 r$ V
Drill_Diameter = .TextBox3.Value / 1000
; o( ]3 n5 i. _3 d
Start_Circle_radius = .TextBox4.Value / 1000
) r, z) @3 K1 s+ {7 z
Circle_number = .TextBox6.Value
" B/ l. M7 X. v* m
ArcAngle = pi '複製孔之圓弧角皆為180度
7 \4 L, M& j& n( Y
Drill_depth = .TextBox5.Value / 1000 '鉆孔深* e1 |! u2 _) o7 ^( Y# x
For i = 1 To Circle_number
0 K; y" f. ~/ x9 l$ S& ~% i
Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑( B/ Z. C3 [. M X
Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數0 g7 V( K$ Q6 `
'分佈圓之基圓作圖
- F7 F4 X2 U, S! A/ ^- o1 |
BX1 = X1 + Circle_radius
/ f5 B; q% w. n. l( V
BX2 = BX1 + Drill_Diameter / 21 B( ]4 x2 S0 T# A% N
Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)
' f- |+ g$ X+ G0 m# W/ G2 k9 S
'分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
" ^- R, D5 \4 T- O# }% N
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)
& L9 X0 @! E/ \) R: U! `; V
Next
3 K8 t4 W' r7 t: d5 ]
End With$ G n$ M6 D1 N9 \
Dim myFeature As Object9 v& S8 c& V; a' a$ Q
Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, Drill_depth, 0, False, False, False, False, 1.74532925199433E-02, _! e" T4 p l2 ^( {+ i2 H
1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)
$ y% j! J" r. a9 H
End Sub
# U8 r& I3 L" g0 e
+ E+ x; M z1 q1 \, K
Sub main()" q4 a) h. T* \) R+ z
UserForm1.Show9 R& ~, N5 O: Z& P
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$ N% @8 n; @4 R* L% ]
我表示还是手编吧

孔數 1195,一鍵解決.

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

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

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

探根究底发表于 2018-5-20 23:56: V3 k- W8 R7 G% T6 y
写程序用什么语言怎么又是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:001 l- _" }7 k# }) t f; t$ y
怎么导入

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

2018-5-24修正 swp檔

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

圓周分佈鉆孔-宏

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

点评

本帖子中包含更多资源

点评

本帖子中包含更多资源