圓周分佈鉆孔-宏

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

參考

Sub Draw_()- u2 s: ~% c! g
With UserForm1
- x T9 C7 K% |# P8 g4 U/ z7 h* X
'判定資料沒打或是輸入錯誤(起始圓半徑限制不能小於等於鉆孔直徑)
2 D# G4 A6 F5 k; |6 t/ Y9 x: S+ l
If .TextBox4.Value <= .TextBox3.Value Or .TextBox1.Value = "" Or .TextBox2.Value = "" Or .TextBox3.Value = "" Or .TextBox4.Value = "" _# T$ A' w# ?' b- b8 m" i9 I7 W
Or .TextBox5.Value = "" Or .TextBox6.Value = "" Then( t3 p; N6 P' c! ]" N* h
MsgBox ("Data error Or Data empty")
, z8 u2 ^1 s* L- J; {) Q; [; N8 \
Exit Sub
3 I, J A! w1 A7 g" D$ K T
End If% m$ G, T4 f. Z
Set swApp = Application.SldWorks8 C; j; o4 b+ O1 i, \
Set Part = swApp.ActiveDoc
# j. f) b& _9 q" o9 u! {
Set swModel = swApp.ActiveDoc2 C i7 M) ?& A/ x# A- ]8 L4 Q' y
Set swSketchMgr = swModel.SketchManager
1 H8 m5 Z6 s" t0 p/ t1 s
7 n1 x0 N% y# K& D8 s
Part.SketchManager.InsertSketch True '依據選取面插入草圖
( b* l0 e5 s1 X$ B/ {7 k- ?6 [
'中心圓之座標及作圖7 d" a8 ]1 Y, J; z
X1 = .TextBox1.Value / 1000: U) n7 D0 S: s$ n# p% Y6 F
Y1 = .TextBox2.Value / 1000* c1 U; B1 l( V/ E7 e+ C
X2 = X1 + .TextBox3.Value / 2 / 1000# S% l+ L; t7 b; k- Y
Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)0 a( L/ Q+ W+ r# X/ A7 p
'圓周分佈之鉆孔# u$ c& W+ b5 o4 P4 X1 P
pi = Atn(1) * 4% E, {) t4 S, `
Drill_Diameter = .TextBox3.Value / 1000: Y% v$ C1 K m$ q
Start_Circle_radius = .TextBox4.Value / 10002 Z' `1 d# u0 j7 S; t! m
Circle_number = .TextBox6.Value7 Q( e/ y$ w" ^- |7 T
ArcAngle = pi '複製孔之圓弧角皆為180度' k4 `9 T: Q6 J1 v' f4 Q
Drill_depth = .TextBox5.Value / 1000 '鉆孔深) u. E6 [* E% ?2 [
For i = 1 To Circle_number. v# z- n" B& N6 Y6 C% A
Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
6 } n2 u) \9 }" z3 A# ?
Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數% [" H y- S$ \+ t7 i/ A) n% w
'分佈圓之基圓作圖
1 E0 V/ S% r1 H; v# B& F
BX1 = X1 + Circle_radius
" z. g# I% w2 v2 D
BX2 = BX1 + Drill_Diameter / 2
9 R7 h0 M$ p9 K/ l; B
Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)- P' O- I8 q# h0 s
'分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例4 k, F1 ~ D, {% l. f7 Z
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)/ z# Z7 M4 ]2 l% ^# k- p' c& |. [
Next9 y+ C& U& }% n' c1 `# H
End With
6 e4 O! A/ A2 q. d F2 Z
Dim myFeature As Object
: k& K% i' R# ?8 a9 f! i" B5 i
Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, Drill_depth, 0, False, False, False, False, 1.74532925199433E-02, _
; J/ k* D+ T5 e; ~) x
1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)+ g9 H8 z& i( z% c1 {- Q
End Sub
1 f( K Y% g* A A1 b% V
& j" ?: G- g5 U B& @& }# Q2 i
Sub main()4 R; I" r/ B8 C! W7 _
UserForm1.Show
% @, p' e1 ?' J; I9 S$ \
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
% p8 q# g& P+ T8 T: l3 \0 z我表示还是手编吧

孔數 1195,一鍵解決.

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

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

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

探根究底发表于 2018-5-20 23:56
2 j% v5 D) J* Q3 M4 S- O写程序用什么语言怎么又是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
! d9 S! D) F9 w7 S4 J, u怎么导入

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

2018-5-24修正 swp檔

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

圓周分佈鉆孔-宏

本帖子中包含更多资源

评分

本帖被以下淘专辑推荐:

点评

本帖子中包含更多资源

点评

本帖子中包含更多资源