圓周分佈鉆孔-宏

ryouss

參考
1 l7 A; o; s4 o+ g; a4 O6 e. i
6 k2 g) }9 c" r- v: R3 |' k  t

1. Sub Draw_()
   ( x* {$ _& A, U$ |
2. With UserForm1
   
3. '判定資料沒打或是輸入錯誤(起始圓半徑限制不能小於等於鉆孔直徑)
   , v+ u% R8 i  e; m' l" F
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
   
8. End If
   5 q1 }: v* X' P" s
9. Set swApp = Application.SldWorks
   $ i1 X: ^+ K, A9 U( Z
10. Set Part = swApp.ActiveDoc
    4 H8 ^0 g5 R7 Y7 L% D- X& j
11. Set swModel = swApp.ActiveDoc
    + M1 m  V* Q3 ^- A
12. Set swSketchMgr = swModel.SketchManager
    " j! V7 D6 J* f7 T
13. 
    
14. Part.SketchManager.InsertSketch True '依據選取面插入草圖
    
15. '中心圓之座標及作圖
    
16. X1 = .TextBox1.Value / 1000
    . J8 u6 a+ I1 w; P/ Q4 Y: C
17. Y1 = .TextBox2.Value / 1000
    $ B. J8 S. l6 u, @
18. X2 = X1 + .TextBox3.Value / 2 / 1000
    : u6 U. o& n3 x
19. Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)
    6 g# m1 u; m4 I
20. '圓周分佈之鉆孔
    
21. pi = Atn(1) * 4
    
22. Drill_Diameter = .TextBox3.Value / 1000
    7 v2 U0 i9 b& f  ^& p4 [
23. Start_Circle_radius = .TextBox4.Value / 1000
    " I" z% K' r5 x% V
24. Circle_number = .TextBox6.Value
    0 ~# F* I' i3 X- o. T& r
25. ArcAngle = pi   '複製孔之圓弧角皆為180度
    $ z) N4 n8 @$ @# F4 V
26. Drill_depth = .TextBox5.Value / 1000 '鉆孔深
    
27. For i = 1 To Circle_number
    / }- m5 T/ {7 p& f
28.       Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
    4 e. J: G* V  c
29.       Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數
    
30. '分佈圓之基圓作圖
    
31.       BX1 = X1 + Circle_radius
    6 X# b- X6 d$ \" u% h8 S/ \* o
32.       BX2 = BX1 + Drill_Diameter / 2
    ' L* c3 A! B- r5 R# B! [
33.       Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)
    7 E9 R- g7 \) C7 Y5 _4 ~( `8 F
34. '分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
    
35.       boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)
    
36. Next
    
37. End With
    / j) P7 L  ]( C2 i6 p! [* O
38. Dim myFeature As Object
      ]& a6 W: u: E' c
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)
    7 u1 w9 }/ B, d: y8 X$ W1 v
41. End Sub
    
42. 
    
43. Sub main()
    
44. UserForm1.Show
    
45. End Sub

復制代碼

+ E( B& `2 t7 ~% }7 I

冷月梧桐

我表示還是手編吧

yinzengguang

樓主自己編寫的？
/ s0 S* W$ u, s- [想學習用C#編寫

ryouss

冷月梧桐 發表于 2018-5-20 18:28
$ ^  z2 L) z7 P" A. w我表示還是手編吧

孔數 1195,一鍵解決.
. J* r5 k: ~  x* O! R$ I

; D" G: S* Q6 R8 ?- C9 n

探根究底

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

ryouss

探根究底 發表于 2018-5-20 23:56
! k6 N: V4 n" N% B) E6 Q, V寫程序用什么語言 怎么又是VB又是C語言的 有啥區別？

. j6 _! H# o. @+ _. G, _程序語言形形色色有很多,先選個跟自己工作興趣有關的學習.
; G# h  i1 C/ u- d) B1 t" ~; _* `

林希9527

樓主很贊哦！

遠祥

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

0377zjp

怎么導入
/ r+ T/ W  T" A8 T- q4 H+ s

ryouss

4 ?' Z: ]* c3 j* L) W( F

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

' 功能:圓周分佈鉆孔,本範例因是用除料拉伸,所以鉆孔是平底.
' 操作: 1.在零件先選取要鉆孔之平面.
* G& S% a. n, l'          2.執行 "main" .
'          3.X座標取正數,若是負數可能會出錯.
'          4.首圈半徑近似於相鄰兩孔之中心距離.
% }6 Z5 |1 F, x9 M2 h2 \
2018-5-24修正    swp檔

; `* Z4 E2 p( j1 ?4 r) }