圓周分佈鉆孔-宏

ryouss

參考

1. Sub Draw_()
   
2. With UserForm1
   
3. '判定資料沒打或是輸入錯誤(起始圓半徑限制不能小於等於鉆孔直徑)
   ) Z) ], e- S# x  C
4. If .TextBox4.Value <= .TextBox3.Value Or .TextBox1.Value = "" Or .TextBox2.Value = "" Or .TextBox3.Value = "" Or .TextBox4.Value = "" _
   
5.       Or .TextBox5.Value = "" Or .TextBox6.Value = "" Then
   
6.       MsgBox ("Data error Or Data empty")
   ) ?; X8 z: _5 `* J, H% D
7.       Exit Sub
   ( \$ C. I  m% T# J  o. {' n0 r
8. End If
   0 x3 z; f9 Z% R6 _$ d; R" c
9. Set swApp = Application.SldWorks
   4 J2 A; @2 P2 \0 R8 s
10. Set Part = swApp.ActiveDoc
    
11. Set swModel = swApp.ActiveDoc
    
12. Set swSketchMgr = swModel.SketchManager
    
13. 
    . n/ O* u, L% d! c2 [  t" [+ ]
14. Part.SketchManager.InsertSketch True '依據選取面插入草圖
    ; ?# j! F+ H9 \: c. D. l6 b" _
15. '中心圓之座標及作圖
    
16. X1 = .TextBox1.Value / 1000
    9 p) e  C2 V2 G! i  Z5 f6 r
17. Y1 = .TextBox2.Value / 1000
    
18. X2 = X1 + .TextBox3.Value / 2 / 1000
    ( h' X5 H3 o5 u& P  H* ?# X8 X
19. Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)
    
20. '圓周分佈之鉆孔
    
21. pi = Atn(1) * 4
    3 \: E' Z, F) b- f% S8 {: C
22. Drill_Diameter = .TextBox3.Value / 1000
    - l% \& L: a) T8 O
23. Start_Circle_radius = .TextBox4.Value / 1000
    
24. Circle_number = .TextBox6.Value
    
25. ArcAngle = pi   '複製孔之圓弧角皆為180度
    
26. Drill_depth = .TextBox5.Value / 1000 '鉆孔深
    7 [, e/ Q2 }  A  A5 s7 L
27. For i = 1 To Circle_number
    & ^" `/ n: T$ a. w2 `1 g' z0 G
28.       Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
    : L& u$ m. {2 f
29.       Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數
    ! y3 c  [  S. `; l$ |; \7 M
30. '分佈圓之基圓作圖
    % N0 ]" V: p8 J2 x$ d) U& u
31.       BX1 = X1 + Circle_radius
    
32.       BX2 = BX1 + Drill_Diameter / 2
    
33.       Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)
    9 u$ r+ C/ H# d7 i
34. '分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
    
35.       boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)
    / B" o+ k; Q& {
36. Next
    
37. End With
    
38. Dim myFeature As Object
    . x1 U( K7 H8 X" C9 I7 Q( E; |
39. Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, Drill_depth, 0, False, False, False, False, 1.74532925199433E-02, _
    ( o& Y4 G) e; j5 M8 D; o
40. 1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)
    
41. End Sub
    - I7 v) Z- E3 W, |1 }  ~4 {/ D
42. 
    8 I6 ~7 W( Q7 u; K! ]
43. Sub main()
    
44. UserForm1.Show
    
45. End Sub

复制代码

- [+ |- l0 S% h" ]) f8 [! r0 N
4 d2 k& a+ O) X" s) r! d. g! f
- d9 J* D  z- z/ H" ~+ {2 ]8 ^

冷月梧桐

我表示还是手编吧

yinzengguang

楼主自己编写的？
想学习用C#编写

ryouss

冷月梧桐 发表于 2018-5-20 18:28
5 T4 d2 \8 q" R1 W: m我表示还是手编吧

6 w- B  p9 o/ v& a8 j2 p  y孔數 1195,一鍵解決.

* Y2 N1 b) A2 R; ^  R

探根究底

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

ryouss

探根究底 发表于 2018-5-20 23:56
! G, U2 u; U# S" f! d5 V写程序用什么语言 怎么又是VB又是C语言的 有啥区别？

, Y* v0 Y4 a9 U7 t- _/ W程序语言形形色色有很多,先選個跟自己工作興趣有關的學習.
7 s) u  l2 \+ }  ?

林希9527

楼主很赞哦！

远祥

有插件做这类规则编程就会方便很多。

0377zjp

怎么导入
4 L9 g/ y: @/ Y; ^

ryouss

0377zjp 发表于 2018-5-22 09:00
. P4 p4 ?. x8 }& p怎么导入

( G% C2 k+ J/ J% b- ]) S9 E' 功能:圓周分佈鉆孔,本範例因是用除料拉伸,所以鉆孔是平底.
+ z5 U4 m2 P8 A: o7 ]  N' 操作: 1.在零件先選取要鉆孔之平面.
* v3 y3 a. ?- V# i- s0 F4 Q; H'          2.執行 "main" .
'          3.X座標取正數,若是負數可能會出錯.
'          4.首圈半徑近似於相鄰兩孔之中心距離.
7 N5 j1 c$ q' [) j6 f* {( b
2018-5-24修正    swp檔