圓周分佈鉆孔-宏

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

參考

Sub Draw_()% C9 R' t7 y% L
With UserForm1
; h& n [: U( G4 ^0 E' C& P
'判定資料沒打或是輸入錯誤(起始圓半徑限制不能小於等於鉆孔直徑)6 `9 L1 N% V8 g( A
If .TextBox4.Value <= .TextBox3.Value Or .TextBox1.Value = "" Or .TextBox2.Value = "" Or .TextBox3.Value = "" Or .TextBox4.Value = "" _
d0 r- J8 W/ p6 E, Q
Or .TextBox5.Value = "" Or .TextBox6.Value = "" Then" `4 U! q2 f4 i& L* ]2 U2 f
MsgBox ("Data error Or Data empty")
4 Z2 U9 `6 B8 b$ w
Exit Sub
, x8 }2 b1 j, }, U# U+ _
End If5 r$ B P3 v& Q3 e3 z. V/ c
Set swApp = Application.SldWorks/ V0 t9 W9 a7 V5 \2 x
Set Part = swApp.ActiveDoc
# E y+ m; J2 f* |. T8 g
Set swModel = swApp.ActiveDoc; m, \5 X! p$ P
Set swSketchMgr = swModel.SketchManager- s/ a/ N- W( ?
% z( d( K4 N* C" P3 k9 |
Part.SketchManager.InsertSketch True '依據選取面插入草圖' M( m" I* f! n& w" i% f: z8 @
'中心圓之座標及作圖
# y. u# ^' r" | e9 u+ w, a
X1 = .TextBox1.Value / 10002 \ r% u! K5 }# v8 e
Y1 = .TextBox2.Value / 10003 a0 b$ e. q* |; j/ y6 _% z
X2 = X1 + .TextBox3.Value / 2 / 10003 M% S2 K( Q8 ~9 W! a; b
Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)- ~. g5 n8 Z4 N* T, @
'圓周分佈之鉆孔
4 O+ |# A- ^/ W
pi = Atn(1) * 4
1 P( Z7 O0 a. D, ^9 m$ o
Drill_Diameter = .TextBox3.Value / 1000: G* d/ u3 D5 d* c4 H
Start_Circle_radius = .TextBox4.Value / 1000# g4 B6 o6 k* g. d
Circle_number = .TextBox6.Value
$ H$ ]( _0 s9 G' n$ f/ i- [6 G0 r a
ArcAngle = pi '複製孔之圓弧角皆為180度
. l" W6 E: Y# s
Drill_depth = .TextBox5.Value / 1000 '鉆孔深4 Y5 o) w$ ?" T/ z; s
For i = 1 To Circle_number
. l& ^, U* I k2 k, t; y* o6 A
Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑* T3 R1 c" P( I
Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數) O$ c# g4 r9 C, y
'分佈圓之基圓作圖
% g \' }! i# p( B0 @% a
BX1 = X1 + Circle_radius
0 j: u* V# U$ V) m2 F5 g
BX2 = BX1 + Drill_Diameter / 2) T9 X) O* ` j9 L c! h+ e* c
Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)* n3 T9 W/ p# Y4 M6 d: f* j0 {* J
'分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例6 z/ V9 L, a5 \
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)
: b3 P3 d4 p) W
Next
4 y G! \- @$ q$ j. V. O
End With$ b( W" h; H- q# U, A' m
Dim myFeature As Object
4 G3 i: w2 g# {- B, h
Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, Drill_depth, 0, False, False, False, False, 1.74532925199433E-02, _
W" \5 m% P# p6 m! b! U
1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)" B0 C" X) c6 T1 Q$ z4 Z
End Sub
/ ?" w; n: [; y7 w# o# H: B
& o' M( Z8 E+ x
Sub main()' l. J) h! Z1 n: u
UserForm1.Show
1 X) V' k& e; |; L- n% `7 i. X
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
* f" T( P2 d2 w) ] h& H$ r我表示还是手编吧

孔數 1195,一鍵解決.

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

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

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

探根究底发表于 2018-5-20 23:560 J8 M( Z/ l7 z9 o! n
写程序用什么语言怎么又是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
- U* W: D S. n9 Y1 ]怎么导入

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

2018-5-24修正 swp檔

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

圓周分佈鉆孔-宏

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

点评

本帖子中包含更多资源

点评

本帖子中包含更多资源