圓周分佈鉆孔-宏

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

參考

Sub Draw_(): a9 E" C- e2 j( W
With UserForm1
, g1 b! ^0 ]# S. y: ^, [' T
'判定資料沒打或是輸入錯誤(起始圓半徑限制不能小於等於鉆孔直徑)
% z( ?7 U6 |% o- i# g1 B
If .TextBox4.Value <= .TextBox3.Value Or .TextBox1.Value = "" Or .TextBox2.Value = "" Or .TextBox3.Value = "" Or .TextBox4.Value = "" _# g- }* b6 V8 A- C
Or .TextBox5.Value = "" Or .TextBox6.Value = "" Then7 ]7 f: b7 R9 X6 O
MsgBox ("Data error Or Data empty")
+ T2 B! _" ^( b, J0 H
Exit Sub
: L; l) ^+ m) c! |
End If
/ Z! n1 j' G+ n' k$ i
Set swApp = Application.SldWorks9 I4 c- Y8 Q$ D) N3 ^
Set Part = swApp.ActiveDoc
2 u+ Q1 l1 b, p' s: Q+ u* u( F
Set swModel = swApp.ActiveDoc9 T. _' B' ^2 U8 N
Set swSketchMgr = swModel.SketchManager0 X( T5 D, L% @% Z' b6 J
: V$ B* ^# {% a, T3 a" n
Part.SketchManager.InsertSketch True '依據選取面插入草圖5 `3 a1 _" \/ \% K$ n2 I+ h
'中心圓之座標及作圖
, `; w# F8 {0 T( o
X1 = .TextBox1.Value / 1000
" V3 Y+ d* A5 W4 P4 u
Y1 = .TextBox2.Value / 1000
' B) { u3 X9 V) Q% P: h9 l
X2 = X1 + .TextBox3.Value / 2 / 1000
9 Z. }$ X6 f- u1 N
Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)
D) ^2 N/ }; [7 T: l
'圓周分佈之鉆孔1 G+ Q& \0 T. G. o" Y; `+ h) z, F
pi = Atn(1) * 48 ]5 F9 h. k7 j9 d0 g4 Q
Drill_Diameter = .TextBox3.Value / 1000) ~* {: F# U8 D) D3 _
Start_Circle_radius = .TextBox4.Value / 1000) T0 u* t, x% C1 n" n
Circle_number = .TextBox6.Value2 F) _$ B( Z7 h
ArcAngle = pi '複製孔之圓弧角皆為180度
0 w' U$ {6 \ `* H1 h2 C- c, u
Drill_depth = .TextBox5.Value / 1000 '鉆孔深4 o. `0 ?: N4 m" p
For i = 1 To Circle_number. _1 r2 ]; z" s
Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
( o: W2 }; \4 D1 Y; p. W- V
Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數
, Q0 J- v& R5 F% }
'分佈圓之基圓作圖
1 y( m+ v6 ?, \& S: L' E# J4 j
BX1 = X1 + Circle_radius3 L9 s2 Y' U: y% l% y
BX2 = BX1 + Drill_Diameter / 2( m9 H( g3 X8 e- N+ f7 |
Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)
9 W+ S8 G6 c3 i" R7 k3 p! s* E: L
'分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
' n) _8 i+ c0 K1 Z8 L9 P
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)
. t+ }/ [, b$ L$ b2 Q
Next
5 x$ U' U3 |1 K# H6 z8 m% H/ D
End With
8 I0 X i0 A8 j( K! P
Dim myFeature As Object% w* A# ?3 p$ C1 `& ] ~9 q
Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, Drill_depth, 0, False, False, False, False, 1.74532925199433E-02, _
! B+ s! S+ ~# ]2 o4 c4 o- U
1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False) r6 r; Y, U$ P- j4 b* ^" m
End Sub
; J: `& |- ~# n" \4 E# p* |
! c, o: {3 B4 J
Sub main()
0 U) r* X7 _( r5 {) G _
UserForm1.Show. C0 e n$ ^" `3 x8 V
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' A- o7 ^# ~+ m3 X4 x2 r5 {
我表示还是手编吧

孔數 1195,一鍵解決.

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

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

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

探根究底发表于 2018-5-20 23:56/ j! n* Q, O0 e8 }( T! g# q
写程序用什么语言怎么又是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
4 T7 }2 |9 e0 {% i! l怎么导入

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

2018-5-24修正 swp檔

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

圓周分佈鉆孔-宏

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

点评

本帖子中包含更多资源

点评

本帖子中包含更多资源