圓周分佈鉆孔-宏

ryouss

參考

1. Sub Draw_()
   
2. With UserForm1
   6 ~! e1 Z' B# C0 y4 ^
3. '判定資料沒打或是輸入錯誤(起始圓半徑限制不能小於等於鉆孔直徑)
   
4. If .TextBox4.Value <= .TextBox3.Value Or .TextBox1.Value = "" Or .TextBox2.Value = "" Or .TextBox3.Value = "" Or .TextBox4.Value = "" _
   0 l& ]0 W7 A: y0 S. a, X% O. H9 k1 R
5.       Or .TextBox5.Value = "" Or .TextBox6.Value = "" Then
   7 T* ?) O4 B& z8 w2 A7 F& _
6.       MsgBox ("Data error Or Data empty")
   ) c1 o4 s0 T. g6 o- P! p
7.       Exit Sub
   : ?. i+ T1 H9 B4 _8 v( J
8. End If
   
9. Set swApp = Application.SldWorks
   # P* m; h. T5 c7 Y$ H: V
10. Set Part = swApp.ActiveDoc
    
11. Set swModel = swApp.ActiveDoc
    2 h9 T. x0 K9 [" y: b( v
12. Set swSketchMgr = swModel.SketchManager
    
13. 
    7 G: W0 I* }3 @* I7 \8 |2 R
14. Part.SketchManager.InsertSketch True '依據選取面插入草圖
    
15. '中心圓之座標及作圖
    % R. z! u/ c/ s- x' m$ y/ ~
16. X1 = .TextBox1.Value / 1000
    # g4 H8 `7 ]2 I- a6 g9 n
17. Y1 = .TextBox2.Value / 1000
    
18. X2 = X1 + .TextBox3.Value / 2 / 1000
    
19. Set swSketchSegment = swSketchMgr.CreateCircle(X1, Y1, 0#, X2, Y1, 0#)
    
20. '圓周分佈之鉆孔
      G+ s5 k1 c: _* ]1 ~
21. pi = Atn(1) * 4
    
22. Drill_Diameter = .TextBox3.Value / 1000
    
23. Start_Circle_radius = .TextBox4.Value / 1000
    
24. Circle_number = .TextBox6.Value
    
25. ArcAngle = pi   '複製孔之圓弧角皆為180度
    
26. Drill_depth = .TextBox5.Value / 1000 '鉆孔深
    1 o  H' {! c' E6 g6 P: j
27. For i = 1 To Circle_number
    + j- |$ C! k" n- k* e
28.       Circle_radius = i * .TextBox4.Value / 1000 '分佈圓周之半徑
    
29.       Copy_Number = Int(2 * Circle_radius * pi / Start_Circle_radius + 0.5) '分佈圓周之鉆孔數
    ( {8 `6 q9 `1 m5 J
30. '分佈圓之基圓作圖
    
31.       BX1 = X1 + Circle_radius
    , i# J* G; _1 Z/ v
32.       BX2 = BX1 + Drill_Diameter / 2
    ! A3 ~1 {2 l; k( }  m' B2 H
33.       Set swSketchSegment = swSketchMgr.CreateCircle(BX1, Y1, 0#, BX2, Y1, 0#)
    ( u7 y3 g$ k6 }" M
34. '分佈圓之複製孔數,圓周複製參數:圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
    ; t2 P+ T. H7 l& s
35.       boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(Circle_radius, ArcAngle, Copy_Number, 2 * pi, True, "", True, True, True)
    
36. Next
    ) g' m+ b7 o0 Y8 F
37. End With
    
38. Dim myFeature As Object
    4 i; d# [; g# b% i5 z5 b
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
    " M3 }- ~& @, r4 I" {& n& D/ e
42. 
    ; U" V/ L# }* p8 p4 S
43. Sub main()
    , \' `" }. D" H3 w2 |/ f% \, U
44. UserForm1.Show
    0 ?# c  x8 Q- |0 L- t9 o3 ?* h
45. End Sub

复制代码

) u" k* r$ X) ?4 [6 u) P

  w, ~  [! L1 e. a) C! R

冷月梧桐

我表示还是手编吧

yinzengguang

楼主自己编写的？
2 K. [: D" Y" x4 ]/ K* S  u想学习用C#编写

ryouss

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

% T+ |7 H+ [' z. K孔數 1195,一鍵解決.
5 J! v6 o; c5 i4 q9 {& r

探根究底

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

ryouss

探根究底 发表于 2018-5-20 23:56
% y# u& x) y, W. u1 J写程序用什么语言 怎么又是VB又是C语言的 有啥区别？

程序语言形形色色有很多,先選個跟自己工作興趣有關的學習.
2 X' o' w! g0 Z, g8 w* H7 w7 J; q  s, P

林希9527

楼主很赞哦！

远祥

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

0377zjp

怎么导入

ryouss

" }6 F" D% u, w! w, m# u. m- w# |

0377zjp 发表于 2018-5-22 09:00
7 c' c3 W. W- m: o1 Z6 c, x怎么导入

' 功能:圓周分佈鉆孔,本範例因是用除料拉伸,所以鉆孔是平底.
' 操作: 1.在零件先選取要鉆孔之平面.
- a7 N" s3 _# x+ V1 X9 W% w'          2.執行 "main" .
6 P) V& d! G9 v1 ^2 ?'          3.X座標取正數,若是負數可能會出錯.
) N! N% d# k- k! T'          4.首圈半徑近似於相鄰兩孔之中心距離.
, e0 n; o' T! ^- n# K" k3 i
& W. _" b" N/ Q2 r. [0 H2018-5-24修正    swp檔

$ d  l5 r4 j) _6 q# q  z5 s" _