圓周分佈鉆孔-宏

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

參考

Sub Draw_()
0 s; J1 i- y- Z L* j: T o
With UserForm12 G6 |/ j4 C# P
'判定資料沒打或是輸入錯誤(起始圓半徑限制不能小於等於鉆孔直徑)
1 `- r/ l. ~! [
If .TextBox4.Value <= .TextBox3.Value Or .TextBox1.Value = "" Or .TextBox2.Value = "" Or .TextBox3.Value = "" Or .TextBox4.Value = "" _
% r/ v% m' x/ G9 H# f: w! P
Or .TextBox5.Value = "" Or .TextBox6.Value = "" Then
3 K% s" K9 n1 u" y+ d
MsgBox ("Data error Or Data empty")
: ^, t+ u' v. R
Exit Sub
. }/ c7 { e3 S. l1 x
End If
* t2 i( \4 g4 \! r6 n
Set swApp = Application.SldWorks: @* w8 i- l5 G4 A- ^
Set Part = swApp.ActiveDoc$ |/ {: Q2 [6 q+ M6 |
Set swModel = swApp.ActiveDoc! X3 l6 `: x. b' k2 J0 @' r3 i
Set swSketchMgr = swModel.SketchManager0 Q% n+ Q/ p. H; X$ P
7 w: F( C: h9 y0 d1 m6 R
Part.SketchManager.InsertSketch True '依據選取面插入草圖3 }! c9 h+ z/ ^
'中心圓之座標及作圖
# [$ `9 d* r& u
X1 = .TextBox1.Value / 1000
. B" h4 v Z# U) w
Y1 = .TextBox2.Value / 1000' X+ w1 w7 S7 `/ ?" T B1 O9 A
X2 = X1 + .TextBox3.Value / 2 / 10002 E0 c& L) c7 J* ]5 ?
Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)4 S x4 r) y8 \% Y0 O u- E* T' Y
'圓周分佈之鉆孔: {% q0 D; {0 T, Z
pi = Atn(1) * 4/ R# N! Z; N: Y- |" y3 w
Drill_Diameter = .TextBox3.Value / 1000
( m1 s& H4 v$ |
Start_Circle_radius = .TextBox4.Value / 1000# Q- ~( |2 s+ ~8 U
Circle_number = .TextBox6.Value- _- m/ X. l0 \4 {- v
ArcAngle = pi '複製孔之圓弧角皆為180度5 R, C$ D5 x6 a$ q4 ]5 v
Drill_depth = .TextBox5.Value / 1000 '鉆孔深* B& ?* g0 ~) |3 X
For i = 1 To Circle_number
( q4 x6 R8 l; s0 b8 l
Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
# R2 M7 Z7 h( n* I/ j9 v+ v
Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數
7 s; d8 {8 R8 \
'分佈圓之基圓作圖
- S2 ^) W9 i" I/ G
BX1 = X1 + Circle_radius4 O6 `$ |4 S. H+ k
BX2 = BX1 + Drill_Diameter / 25 r% z( _: G/ B0 b# H
Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)" G# J I; N5 p ^9 N
'分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
% k! N" f0 |1 H) J) R; Z3 c
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)
6 z9 l, M% b0 ?' N
Next
. ?1 ~2 ]/ A& O @
End With* n2 i+ ^! t0 o9 _( T) M
Dim myFeature As Object
% ]( {, o6 r8 u' m* w
Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, Drill_depth, 0, False, False, False, False, 1.74532925199433E-02, _
- z. U5 U* f D$ B/ r; r9 R
1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)' h; i5 W: i, O. L- E3 q; ^
End Sub
% g+ T9 F0 k* Z" A
/ x0 ^ x e$ E% h0 ~$ n2 N
Sub main()
( Q, R& q8 E9 O( C* c/ |& f1 \) x) V
UserForm1.Show
" z1 r5 k1 r) Y3 l" F3 p) 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:280 ~1 v% w" P) F! q8 C
我表示還是手編吧

孔數 1195,一鍵解決.

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

寫程序用什么語言怎么又是VB又是C語言的有啥區別？

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

探根究底發表于 2018-5-20 23:56$ _* ^' X* j+ F0 i% h2 X0 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:005 u, Z8 Q* l! n7 b1 y; m
怎么導入

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

2018-5-24修正 swp檔

		自動登錄	找回密碼
密碼			注冊會員

圓周分佈鉆孔-宏

本帖子中包含更多資源

評分

本帖被以下淘專輯推薦:

點評

本帖子中包含更多資源

點評

本帖子中包含更多資源