圓周分佈鉆孔-宏

ryouss

參考
# r$ _. Z/ ?: A( \% Y& X/ `


" b  F. \+ J( f! ?5 b

1. Sub Draw_()
   # d6 E4 [# B8 a" `% L- f; w2 `
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")
   ! t4 p, h( [& \& m' h
7.       Exit Sub
   5 \( t5 H' @/ |
8. End If
   
9. Set swApp = Application.SldWorks
   - T$ U# ~: I' ~6 w
10. Set Part = swApp.ActiveDoc
    
11. Set swModel = swApp.ActiveDoc
    
12. Set swSketchMgr = swModel.SketchManager
    % v) A: }/ ~6 K7 z" i1 k! q
13. 
    
14. Part.SketchManager.InsertSketch True '依據選取面插入草圖
    
15. '中心圓之座標及作圖
    , I7 l7 v# i. {, t
16. X1 = .TextBox1.Value / 1000
    4 |% O& Z6 Q3 t4 k8 `7 N7 a8 R
17. Y1 = .TextBox2.Value / 1000
    
18. X2 = X1 + .TextBox3.Value / 2 / 1000
    
19. Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)
    
20. '圓周分佈之鉆孔
    ( B& {6 |5 w/ N3 u
21. pi = Atn(1) * 4
    9 {& G5 \& G8 V3 b' d
22. Drill_Diameter = .TextBox3.Value / 1000
    ; F! F; k  Y) A4 K
23. Start_Circle_radius = .TextBox4.Value / 1000
    & t: d& d* D. N$ Q+ T# ^
24. Circle_number = .TextBox6.Value
    
25. ArcAngle = pi   '複製孔之圓弧角皆為180度
    
26. Drill_depth = .TextBox5.Value / 1000 '鉆孔深
    
27. For i = 1 To Circle_number
    
28.       Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
    
29.       Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數
    + ~3 L) ?! l4 G  H1 x+ k
30. '分佈圓之基圓作圖
    
31.       BX1 = X1 + Circle_radius
    
32.       BX2 = BX1 + Drill_Diameter / 2
    6 g% R& u3 r9 J+ y
33.       Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)
    ) [3 d, o7 R3 `4 y( g
34. '分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
    5 q4 a9 m8 s3 X3 N& q/ M
35.       boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)
    
36. Next
    9 K3 @& G* I8 Z
37. End With
    6 s5 l/ o6 T8 {6 a
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, _
    3 g9 s0 @1 m5 S9 I
40. 1.74532925199433E-02, False, False, False, False, False, True, True, True, True, False, 0, 0, False)
    / k5 S2 }0 Z4 c: h1 I
41. End Sub
    6 _/ |" C8 w6 y: q
42. 
    
43. Sub main()
    
44. UserForm1.Show
    " v5 c$ i. {+ v- G2 P
45. End Sub

复制代码

) b, `) |* |% U- D1 k8 G

冷月梧桐

我表示还是手编吧

yinzengguang

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

ryouss

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

孔數 1195,一鍵解決.
5 j- B) \" Q% z# m

0 d- b1 T. y% X

探根究底

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

ryouss

探根究底 发表于 2018-5-20 23:56
/ P6 ?) S4 z4 x$ C: b写程序用什么语言 怎么又是VB又是C语言的 有啥区别？

程序语言形形色色有很多,先選個跟自己工作興趣有關的學習.

林希9527

楼主很赞哦！

远祥

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

0377zjp

怎么导入

ryouss

! u' L4 }8 r" j: A5 I" e$ D0 Q/ D

0377zjp 发表于 2018-5-22 09:00
" I9 h8 ~" H' D2 u怎么导入

  J$ m2 B& `. Y( U% X  K7 u2 g' 功能:圓周分佈鉆孔,本範例因是用除料拉伸,所以鉆孔是平底.
' 操作: 1.在零件先選取要鉆孔之平面.
'          2.執行 "main" .
# Q( @6 H  Z$ W+ c'          3.X座標取正數,若是負數可能會出錯.
'          4.首圈半徑近似於相鄰兩孔之中心距離.

2018-5-24修正    swp檔

# D6 Y8 @  s- r$ F) z- f
2 ~8 M; [6 Q$ v$ ?/ w