圓周分佈鉆孔-宏

ryouss

參考
" q$ u# Z' t5 }# O) R) j/ S( W
1 ]  S  }1 a3 ^- m1 |

8 a" G! C- D+ |* x, s' z; P

1. Sub Draw_()
   8 ]9 `8 y+ N' j7 v0 \% B/ Z4 a
2. With UserForm1
   
3. '判定資料沒打或是輸入錯誤(起始圓半徑限制不能小於等於鉆孔直徑)
   ( l% T) e) I) |; z8 w7 h
4. If .TextBox4.Value <= .TextBox3.Value Or .TextBox1.Value = "" Or .TextBox2.Value = "" Or .TextBox3.Value = "" Or .TextBox4.Value = "" _
   " f( ?1 e! Q; }6 W4 u0 [4 r
5.       Or .TextBox5.Value = "" Or .TextBox6.Value = "" Then
   $ a4 u/ g/ `5 Z% }
6.       MsgBox ("Data error Or Data empty")
   
7.       Exit Sub
   * o: T( t+ b+ ^$ [2 f7 \/ q: u
8. End If
   
9. Set swApp = Application.SldWorks
   
10. Set Part = swApp.ActiveDoc
    
11. Set swModel = swApp.ActiveDoc
    
12. Set swSketchMgr = swModel.SketchManager
    
13. 
    
14. Part.SketchManager.InsertSketch True '依據選取面插入草圖
    ) l1 r0 o+ e4 Z' i/ |! m+ i- m
15. '中心圓之座標及作圖
    $ d  j# {- [9 L& Z, g
16. X1 = .TextBox1.Value / 1000
    5 J1 {4 E& [3 F+ o
17. Y1 = .TextBox2.Value / 1000
    
18. X2 = X1 + .TextBox3.Value / 2 / 1000
    . u+ S+ p( a+ l2 I# r8 d
19. Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)
    
20. '圓周分佈之鉆孔
    
21. pi = Atn(1) * 4
    
22. Drill_Diameter = .TextBox3.Value / 1000
    9 I$ Z% X8 b+ J! |, S
23. Start_Circle_radius = .TextBox4.Value / 1000
    ! b+ ^3 f" O4 i* A- F
24. Circle_number = .TextBox6.Value
    : i' e$ j/ y) z. H4 j% t$ }
25. ArcAngle = pi   '複製孔之圓弧角皆為180度
    
26. Drill_depth = .TextBox5.Value / 1000 '鉆孔深
    1 @: j5 n8 D+ j: g( q1 o$ \
27. For i = 1 To Circle_number
    
28.       Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
    ! y, K  x7 {8 |+ {' }
29.       Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數
    
30. '分佈圓之基圓作圖
    
31.       BX1 = X1 + Circle_radius
    
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
    8 L8 G% v, r/ w" t7 f% x3 X
37. End With
    # ^  g/ [) l- T  R/ B* i
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, _
    2 }  Y6 i7 Q5 L% f, P3 g) B- s
40. 1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)
    4 g7 n6 A: h' S2 L" E
41. End Sub
    # r3 @0 ~0 z- R# H: b/ S" f  ]0 |: |
42. 
    
43. Sub main()
    0 b* k' Q6 r8 O  y( u! @
44. UserForm1.Show
    ; N* v6 U. [4 G
45. End Sub

复制代码

6 j5 N  T( ^% _; n

2 B) R$ S6 M9 A5 i

冷月梧桐

我表示还是手编吧

yinzengguang

楼主自己编写的？
想学习用C#编写

ryouss

冷月梧桐 发表于 2018-5-20 18:28
我表示还是手编吧

: w9 n8 v2 B- H+ [- j3 r. Q孔數 1195,一鍵解決.

: Z; w  d3 R, e+ w8 J
8 b. x6 ~) H: l+ k) D

探根究底

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

ryouss

探根究底 发表于 2018-5-20 23:56
写程序用什么语言 怎么又是VB又是C语言的 有啥区别？

- F. O- A. I& u) x  M程序语言形形色色有很多,先選個跟自己工作興趣有關的學習.
1 L# l& k1 o  V4 v! t

林希9527

楼主很赞哦！

远祥

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

0377zjp

怎么导入
+ E, w2 y6 R  F8 d

ryouss

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

: n0 g0 {; P) y/ I9 D; Z  t, E2 O' 功能:圓周分佈鉆孔,本範例因是用除料拉伸,所以鉆孔是平底.
* A4 E' ]3 Q2 v' 操作: 1.在零件先選取要鉆孔之平面.
'          2.執行 "main" .
'          3.X座標取正數,若是負數可能會出錯.
0 C4 Z, d& `, i  M0 T4 \- K9 s7 E'          4.首圈半徑近似於相鄰兩孔之中心距離.

" R+ O& y; J' V9 j5 ?2 }' }2018-5-24修正    swp檔
+ e$ N; M6 ]$ Q

& _. ?: W- J3 ?! k/ L0 P0 S