圓周分佈鉆孔-宏

ryouss

參考
. I5 a2 s0 y: R8 k+ H7 X

% f: t5 _, u- ]. S# ~5 w% a, W* t

1. Sub Draw_()
   6 X: L7 i2 ~, T* s# K8 F, D+ o
2. With UserForm1
   ! `4 d, m) [' L7 _
3. '判定資料沒打或是輸入錯誤(起始圓半徑限制不能小於等於鉆孔直徑)
   
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
   " W7 i' _* y' V' x) s' E( \2 v, D
6.       MsgBox ("Data error Or Data empty")
   
7.       Exit Sub
   & m1 {1 b0 F) b( c
8. End If
   * _. `& m" {  _0 D0 O3 A1 r
9. Set swApp = Application.SldWorks
   " n4 S, a/ U+ z( U9 Z: O/ a
10. Set Part = swApp.ActiveDoc
    
11. Set swModel = swApp.ActiveDoc
    " U' H  B9 M  ~% |
12. Set swSketchMgr = swModel.SketchManager
    
13. 
    5 o; F: L4 c+ S' @& W3 U$ s) d3 h
14. Part.SketchManager.InsertSketch True '依據選取面插入草圖
    ' I/ d. C8 Q0 n- L
15. '中心圓之座標及作圖
    + B- [9 j" o2 O7 q
16. X1 = .TextBox1.Value / 1000
    
17. Y1 = .TextBox2.Value / 1000
    7 d7 }# Z& e8 l2 e
18. X2 = X1 + .TextBox3.Value / 2 / 1000
    
19. Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)
    ! P7 @/ W0 K/ ?+ A( G( L
20. '圓周分佈之鉆孔
    
21. pi = Atn(1) * 4
    
22. Drill_Diameter = .TextBox3.Value / 1000
    + ]! r; U( {* o: \$ K
23. Start_Circle_radius = .TextBox4.Value / 1000
    0 m: D) f& D1 i) I/ V+ p
24. Circle_number = .TextBox6.Value
    ( r8 Y$ U0 P: d4 N% h) S* Z! P
25. ArcAngle = pi   '複製孔之圓弧角皆為180度
    
26. Drill_depth = .TextBox5.Value / 1000 '鉆孔深
    8 O6 ?: Y( G' Y; x
27. For i = 1 To Circle_number
    
28.       Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
    2 n( X3 n( d! G- U* v* B
29.       Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數
    
30. '分佈圓之基圓作圖
    
31.       BX1 = X1 + Circle_radius
    : |9 n6 L: c5 D" P* {( {& h  I
32.       BX2 = BX1 + Drill_Diameter / 2
    
33.       Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)
    
34. '分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
    * d% \3 o1 Q0 s: y$ I% }' v
35.       boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)
    + F" Q. w; h; m. O6 \! s( Z
36. Next
    * B6 o! ~; ~6 X3 p
37. End With
    
38. Dim myFeature As Object
    . T3 m4 l- J) V
39. Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, Drill_depth, 0, False, False, False, False, 1.74532925199433E-02, _
    
40. 1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)
    * s& y% l9 H$ ?) m- O
41. End Sub
    : [0 h$ r6 V3 Q8 s
42. 
    ' V2 C/ ^  o6 q6 b
43. Sub main()
    , }5 b4 o* j/ n2 m; f4 S
44. UserForm1.Show
    
45. End Sub

復制代碼

冷月梧桐

我表示還是手編吧

yinzengguang

樓主自己編寫的？
想學習用C#編寫

ryouss

冷月梧桐 發表于 2018-5-20 18:28
我表示還是手編吧

孔數 1195,一鍵解決.
1 d. x$ P& G0 A0 W# K
3 g: o  m/ f) v

探根究底

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

ryouss

探根究底 發表于 2018-5-20 23:56
寫程序用什么語言 怎么又是VB又是C語言的 有啥區別？

程序語言形形色色有很多,先選個跟自己工作興趣有關的學習.
/ [7 W" _4 A8 h* A

林希9527

樓主很贊哦！

遠祥

有插件做這類規則編程就會方便很多。

0377zjp

怎么導入

ryouss

0377zjp 發表于 2018-5-22 09:00
怎么導入

) k. {, U( {9 M$ y6 I" N  e, T' 功能:圓周分佈鉆孔,本範例因是用除料拉伸,所以鉆孔是平底.
' 操作: 1.在零件先選取要鉆孔之平面.
'          2.執行 "main" .
'          3.X座標取正數,若是負數可能會出錯.
, j6 x/ t. |; S'          4.首圈半徑近似於相鄰兩孔之中心距離.
) c- q+ c: ^3 h/ ]' E
2018-5-24修正    swp檔