圓周分佈鉆孔-宏

ryouss

參考

8 T  s/ u7 X* H7 m0 p# J
2 a' l% U5 @7 O( u: N
/ q: g5 ?5 @/ u+ u  A" o  V

1. Sub Draw_()
   9 W4 v: F, K4 `$ ^* O
2. With UserForm1
   3 F& ^3 y' h- O8 h! c
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
   
6.       MsgBox ("Data error Or Data empty")
   
7.       Exit Sub
   9 a  L- q3 r1 |$ k+ |
8. End If
   
9. Set swApp = Application.SldWorks
   
10. Set Part = swApp.ActiveDoc
    2 I7 J3 V1 C/ O  i1 z
11. Set swModel = swApp.ActiveDoc
    
12. Set swSketchMgr = swModel.SketchManager
    
13. 
      q% J) [2 }) Z( e) o/ V, y
14. Part.SketchManager.InsertSketch True '依據選取面插入草圖
    
15. '中心圓之座標及作圖
    7 Q. P  H5 H' t( s8 c/ s
16. X1 = .TextBox1.Value / 1000
    8 S# S% Y: x& o- ?, a
17. Y1 = .TextBox2.Value / 1000
    ; T4 c1 S) n0 n! t
18. X2 = X1 + .TextBox3.Value / 2 / 1000
    ' W; e  [" l9 |7 q, I% l: N* L) h
19. Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)
    2 q* w! U8 _1 z' X5 r- h
20. '圓周分佈之鉆孔
    # j8 s; e1 O- d% z
21. pi = Atn(1) * 4
    
22. Drill_Diameter = .TextBox3.Value / 1000
    - D* B  p2 b5 J+ T8 B. f* X
23. Start_Circle_radius = .TextBox4.Value / 1000
    
24. Circle_number = .TextBox6.Value
    7 G$ o6 b6 D0 e& D
25. ArcAngle = pi   '複製孔之圓弧角皆為180度
    
26. Drill_depth = .TextBox5.Value / 1000 '鉆孔深
    
27. For i = 1 To Circle_number
    7 C. p5 }' ]1 ?$ H3 t% l
28.       Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
    - p& I: K1 j7 K
29.       Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數
    - K& ~* s2 q4 Y  C' l/ ]
30. '分佈圓之基圓作圖
    
31.       BX1 = X1 + Circle_radius
    % \, ~! S9 {5 B
32.       BX2 = BX1 + Drill_Diameter / 2
    , \/ ?0 F( f4 L# w5 X
33.       Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)
    , @7 v& [1 L: T0 c
34. '分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
    
35.       boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)
    ! d+ _3 o6 L# a& S. S  n
36. Next
    ! Z) Q1 ~) A, B6 M7 z2 ]2 K
37. End With
    
38. Dim myFeature As Object
    
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)
    
41. End Sub
    
42. 
    1 |; n$ P4 k& ^3 o
43. Sub main()
    
44. UserForm1.Show
    
45. End Sub

复制代码

) S) d% z/ t0 _, f+ c

冷月梧桐

我表示还是手编吧

yinzengguang

楼主自己编写的？
+ h3 |' e  l4 {0 z5 O1 U想学习用C#编写

ryouss

冷月梧桐 发表于 2018-5-20 18:28
/ R8 e) B3 M* [! |% ^  P我表示还是手编吧

孔數 1195,一鍵解決.
, |1 z8 M# E; W

探根究底

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

ryouss

探根究底 发表于 2018-5-20 23:56
1 _& \5 _9 e* x* d7 E: y- o" M写程序用什么语言 怎么又是VB又是C语言的 有啥区别？

; p- V+ H8 P  k* l( B; k1 z程序语言形形色色有很多,先選個跟自己工作興趣有關的學習.

林希9527

楼主很赞哦！

远祥

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

0377zjp

怎么导入

ryouss

- @+ }6 }! p2 E5 ~

0377zjp 发表于 2018-5-22 09:00
怎么导入

' 功能:圓周分佈鉆孔,本範例因是用除料拉伸,所以鉆孔是平底.
# f1 u" u+ i5 R5 V" y% ~1 h; i' 操作: 1.在零件先選取要鉆孔之平面.
/ d$ T+ q( Q- }$ N'          2.執行 "main" .
'          3.X座標取正數,若是負數可能會出錯.
'          4.首圈半徑近似於相鄰兩孔之中心距離.
+ ^5 ?% c# U7 R6 f. Q
2018-5-24修正    swp檔
7 h7 @, O0 b; h/ n

: g3 q0 b+ r7 ^1 Q6 N, d# K