圓周分佈鉆孔-宏

ryouss

參考
. v( P$ i: S) Z9 q, n8 o

8 z# M. h# \0 S; N8 [. g2 x; R

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 = "" _
   
5.       Or .TextBox5.Value = "" Or .TextBox6.Value = "" Then
   
6.       MsgBox ("Data error Or Data empty")
     D" f* z3 ^  J& L6 K& `
7.       Exit Sub
   
8. End If
   0 Q* c5 e( x* Q  o6 s) F8 F
9. Set swApp = Application.SldWorks
   
10. Set Part = swApp.ActiveDoc
    
11. Set swModel = swApp.ActiveDoc
    
12. Set swSketchMgr = swModel.SketchManager
    
13. 
    ( Q# U& I" `: f: J. l! d( r9 X
14. Part.SketchManager.InsertSketch True '依據選取面插入草圖
    
15. '中心圓之座標及作圖
    
16. X1 = .TextBox1.Value / 1000
    + I* O5 [, S, G  @- C9 J+ }
17. Y1 = .TextBox2.Value / 1000
    / i3 c6 Y2 A7 B, H; T
18. X2 = X1 + .TextBox3.Value / 2 / 1000
    
19. Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)
    7 P, u" q( J. m+ n+ O, D1 L7 K9 y
20. '圓周分佈之鉆孔
    
21. pi = Atn(1) * 4
    ' f! u) V# G2 ^* q2 c3 g
22. Drill_Diameter = .TextBox3.Value / 1000
    ( Y7 E5 t2 x# O3 @  @5 g7 U+ c% q
23. Start_Circle_radius = .TextBox4.Value / 1000
    
24. Circle_number = .TextBox6.Value
    
25. ArcAngle = pi   '複製孔之圓弧角皆為180度
    6 j' K6 T/ J  M
26. Drill_depth = .TextBox5.Value / 1000 '鉆孔深
    2 o! j. a* P) T' k8 N
27. For i = 1 To Circle_number
    
28.       Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
    * C6 @5 k2 V. p# m/ D: O% K( N
29.       Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數
    
30. '分佈圓之基圓作圖
    
31.       BX1 = X1 + Circle_radius
    $ h" U( p* y, s9 n- y
32.       BX2 = BX1 + Drill_Diameter / 2
    
33.       Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)
    - N* k9 G: o( d& e
34. '分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
    ' E9 h4 m, {+ M
35.       boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)
    
36. Next
    5 @7 {' O) Q/ u$ @& I
37. End With
    % f9 A: r% H4 @6 |& B: P. l, F/ l: [
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
    ( y% }5 a2 I6 w7 O, K, v4 Q& @% _
42. 
    
43. Sub main()
    
44. UserForm1.Show
    . A' r& w% ~9 @$ L
45. End Sub

复制代码

# C! Z+ \7 ~2 f( x0 r1 |. T8 k
# I5 M0 J% T9 {- B6 B

冷月梧桐

我表示还是手编吧

yinzengguang

楼主自己编写的？
* m( k" u: R0 {' Y想学习用C#编写

ryouss

冷月梧桐 发表于 2018-5-20 18:28
7 @/ H/ `3 I1 H6 O  T: M6 S; j) |3 l我表示还是手编吧

孔數 1195,一鍵解決.

8 J2 y) `* u  \1 V7 d
" T& n9 `) g* x4 O9 k( {& ^6 h

探根究底

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

ryouss

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

! ^/ g, t2 T( m: g4 G2 c; r程序语言形形色色有很多,先選個跟自己工作興趣有關的學習.
& T  {8 ~  L- X+ Q. ^! H. _

林希9527

楼主很赞哦！

远祥

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

0377zjp

怎么导入
+ l$ f* B; Q! Y( [

ryouss

$ W. k+ q* n( l& P: h

0377zjp 发表于 2018-5-22 09:00
+ F; d' e; l( \0 D) v: a! w0 C怎么导入

' 功能:圓周分佈鉆孔,本範例因是用除料拉伸,所以鉆孔是平底.
* o! L% Z* {# Z1 F  W* p' 操作: 1.在零件先選取要鉆孔之平面.
: f; m1 U8 q5 C1 }' K0 t'          2.執行 "main" .
'          3.X座標取正數,若是負數可能會出錯.
'          4.首圈半徑近似於相鄰兩孔之中心距離.

/ a/ ~$ Q" u$ u! K6 ]. C2018-5-24修正    swp檔
4 E8 d8 \1 g/ X$ n& }, h+ v2 U
& l: C7 R% ?5 a7 H$ \9 H
# c* L; O" J( c8 Y+ E  I