圓周分佈鉆孔-宏

ryouss

參考
/ S2 {0 ^- \1 g% M0 A, l% k' Q; _


. k/ P3 m" O) h  S

1. Sub Draw_()
   
2. With UserForm1
   
3. '判定資料沒打或是輸入錯誤(起始圓半徑限制不能小於等於鉆孔直徑)
   
4. If .TextBox4.Value <= .TextBox3.Value Or .TextBox1.Value = "" Or .TextBox2.Value = "" Or .TextBox3.Value = "" Or .TextBox4.Value = "" _
   9 J9 X# }$ k4 i) G  A4 M  @0 Y: ^4 e' c" R
5.       Or .TextBox5.Value = "" Or .TextBox6.Value = "" Then
   " u# S+ x% p, @1 o5 C8 e
6.       MsgBox ("Data error Or Data empty")
   2 |: Q8 N. |9 t, m) n
7.       Exit Sub
   
8. End If
   
9. Set swApp = Application.SldWorks
   
10. Set Part = swApp.ActiveDoc
    
11. Set swModel = swApp.ActiveDoc
    8 p( H" K! }! O5 h3 }
12. Set swSketchMgr = swModel.SketchManager
    : U' J9 ^4 B, t2 J  E- f& X6 \
13. 
    
14. Part.SketchManager.InsertSketch True '依據選取面插入草圖
    
15. '中心圓之座標及作圖
    0 p7 T" v( X$ R4 [9 W3 T
16. X1 = .TextBox1.Value / 1000
    & |0 \6 `0 M6 P
17. Y1 = .TextBox2.Value / 1000
    
18. X2 = X1 + .TextBox3.Value / 2 / 1000
    ! `" L/ |& K1 O3 _" E2 n5 l
19. Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)
    
20. '圓周分佈之鉆孔
    
21. pi = Atn(1) * 4
    
22. Drill_Diameter = .TextBox3.Value / 1000
    $ L( K/ G% u' P* f3 J$ X8 K
23. Start_Circle_radius = .TextBox4.Value / 1000
    ) Q4 Y) P. n: X& h
24. Circle_number = .TextBox6.Value
    & ?0 ]4 J- A6 c9 h2 ^
25. ArcAngle = pi   '複製孔之圓弧角皆為180度
    ' Z5 w8 ~9 p7 q3 ]
26. Drill_depth = .TextBox5.Value / 1000 '鉆孔深
    
27. For i = 1 To Circle_number
    
28.       Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
    6 @$ o% y* g" t6 t7 c- J+ D
29.       Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數
    $ E" n. {; v) a
30. '分佈圓之基圓作圖
    
31.       BX1 = X1 + Circle_radius
    
32.       BX2 = BX1 + Drill_Diameter / 2
    
33.       Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)
    
34. '分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
    8 J4 q0 _1 S$ n+ s1 c( C9 Z! d
35.       boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)
    3 ]2 l6 E8 j! o, h( U9 N' V# r
36. Next
    
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
    ) N5 {2 J) P* s
42. 
    4 }1 ?( p& h/ T8 B/ F
43. Sub main()
    
44. UserForm1.Show
    
45. End Sub

复制代码

冷月梧桐

我表示还是手编吧

yinzengguang

楼主自己编写的？
  m  U7 @/ v$ s1 C  Y6 c  U想学习用C#编写

ryouss

冷月梧桐 发表于 2018-5-20 18:28
. i! K4 a- K/ L) H# F9 j: r我表示还是手编吧

孔數 1195,一鍵解決.
6 I; _5 m0 I0 e% i* K! g

+ a$ K2 g% m8 r# o& B

探根究底

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

ryouss

探根究底 发表于 2018-5-20 23:56
% N5 s& a' O7 p6 R$ ]写程序用什么语言 怎么又是VB又是C语言的 有啥区别？

程序语言形形色色有很多,先選個跟自己工作興趣有關的學習.
- e1 ~5 v5 l+ E, c, ~9 {- Q

林希9527

楼主很赞哦！

远祥

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

0377zjp

怎么导入
! b" E' e" j  a; o8 j+ d

ryouss

: q6 q% R& P8 w9 {8 n5 y3 A

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

( x9 G' H4 r/ S% @* T9 q' {1 \/ H$ S' y. H' 功能:圓周分佈鉆孔,本範例因是用除料拉伸,所以鉆孔是平底.
" P1 O( e" h2 b6 n6 [- a: W' 操作: 1.在零件先選取要鉆孔之平面.
" p. n$ V0 w' N8 q+ ~'          2.執行 "main" .
'          3.X座標取正數,若是負數可能會出錯.
'          4.首圈半徑近似於相鄰兩孔之中心距離.
  N/ N) O7 }3 K& e% T) {6 M
2018-5-24修正    swp檔
$ d) ]- e% g4 p, {
0 A; @3 t- r8 Y$ R2 F4 C5 o
0 a+ F. ]5 z$ T- G9 s