圓周分佈鉆孔-宏

ryouss

參考

& E* s0 r- q+ ^# e0 e

$ F; r. Y7 A3 Q1 o1 D4 p

1. Sub Draw_()
   : ^5 a" Q5 X/ g
2. With UserForm1
   
3. '判定資料沒打或是輸入錯誤(起始圓半徑限制不能小於等於鉆孔直徑)
   2 g( N) H) n. o9 }3 A7 g7 E* i9 |5 T
4. If .TextBox4.Value <= .TextBox3.Value Or .TextBox1.Value = "" Or .TextBox2.Value = "" Or .TextBox3.Value = "" Or .TextBox4.Value = "" _
   , g" }, B' r1 d. P. I& N* z/ [
5.       Or .TextBox5.Value = "" Or .TextBox6.Value = "" Then
   3 u+ M8 x( h5 J; [
6.       MsgBox ("Data error Or Data empty")
   1 F" D$ p$ _$ i# [+ @; V- E2 u5 d
7.       Exit Sub
   ! s  U3 r; V4 K4 U* w- ~
8. End If
   6 }  v0 A" B# K9 l3 _
9. Set swApp = Application.SldWorks
   # w$ r8 P; G2 E. [+ i
10. Set Part = swApp.ActiveDoc
    . I$ z* D8 m4 L) O" b" S/ \
11. Set swModel = swApp.ActiveDoc
    9 h: @9 Z; `( L! Y5 Q8 b
12. Set swSketchMgr = swModel.SketchManager
    ' |- [9 J) T- x% N* k
13. 
    - p. U! n1 }7 {0 M2 f
14. Part.SketchManager.InsertSketch True '依據選取面插入草圖
    
15. '中心圓之座標及作圖
      L3 n9 E& @, Q% {0 u7 O# H' q( h
16. X1 = .TextBox1.Value / 1000
    2 M  S- g9 k! M& k% \
17. Y1 = .TextBox2.Value / 1000
    
18. X2 = X1 + .TextBox3.Value / 2 / 1000
    
19. Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)
    1 ]; ~6 ]$ n% @3 a* y: k) Z4 Q
20. '圓周分佈之鉆孔
    0 ]6 Q( T+ B  n% O; e( D
21. pi = Atn(1) * 4
    % \* d/ V( q4 n; Q, q
22. Drill_Diameter = .TextBox3.Value / 1000
    
23. Start_Circle_radius = .TextBox4.Value / 1000
    & L  E' y8 g! p
24. Circle_number = .TextBox6.Value
    
25. ArcAngle = pi   '複製孔之圓弧角皆為180度
    ( h6 }% Z% L7 J, F, C7 B$ Z
26. Drill_depth = .TextBox5.Value / 1000 '鉆孔深
    ! M# Q& \' S% q! u, Z4 S
27. For i = 1 To Circle_number
    : h* W  s7 `+ D5 V3 j
28.       Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
    
29.       Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數
    
30. '分佈圓之基圓作圖
    
31.       BX1 = X1 + Circle_radius
      n# J2 m1 H6 q2 p& A- B/ {( L4 W! i5 v
32.       BX2 = BX1 + Drill_Diameter / 2
    
33.       Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)
    
34. '分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
    
35.       boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)
    
36. Next
    ' ?. [* f/ h+ v
37. End With
    9 g# H% @& _* ^+ p1 Z) O1 y4 R0 X6 a' R
38. Dim myFeature As Object
    3 t5 `% n, f$ _) J' K
39. Set myFeature = Part.FeatureManager.FeatureCut3(True, False, False, 0, 0, Drill_depth, 0, False, False, False, False, 1.74532925199433E-02, _
    " U8 u# |; g0 \* e8 ]2 Z& p; ?
40. 1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)
    2 q# Y$ P/ x! [" ~4 v8 j1 @! h9 W
41. End Sub
      _* k+ i9 s2 l
42. 
    
43. Sub main()
    # g# e: w0 }: T, O7 v# i9 N
44. UserForm1.Show
    0 A& k$ W9 P" P6 j
45. End Sub

復制代碼

. X# _/ o/ u% s3 D  x7 E
2 [& r  J% b$ s

冷月梧桐

我表示還是手編吧

yinzengguang

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

ryouss

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

- |3 W3 ]( b0 q5 I8 ~孔數 1195,一鍵解決.
8 U6 X( Z8 _0 w

探根究底

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

ryouss

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

4 q' E, J1 u5 N( K" P  @# d程序語言形形色色有很多,先選個跟自己工作興趣有關的學習.
: \/ p; n. K6 @4 }

林希9527

樓主很贊哦！

遠祥

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

0377zjp

怎么導入

ryouss

8 V  I" i+ b1 e8 s: T  F

0377zjp 發表于 2018-5-22 09:00
! L. [; d/ y) c; G0 o怎么導入

' 功能:圓周分佈鉆孔,本範例因是用除料拉伸,所以鉆孔是平底.
' 操作: 1.在零件先選取要鉆孔之平面.
8 l% a# `9 r4 c& }'          2.執行 "main" .
'          3.X座標取正數,若是負數可能會出錯.
'          4.首圈半徑近似於相鄰兩孔之中心距離.
3 ~0 Z9 i6 \+ s* r' z& l- ~
2018-5-24修正    swp檔
* x+ v( s+ y; Y, L9 y# @

3 z* Y4 q" e: j9 G