UG二次开发源码-链轮齿轮标准件创建VB源码

admin

UG二次开发源码-链轮齿轮标准件创建VB源码
感觉还不错，VB写的分享下，只是这里没有使用渐开线的方式画齿轮！
; n5 q" X, e2 m# ]$ m2 G! e. i
[code] Private Function CreateChainGear(ByVal ChainType As String, ByVal Z As Integer) As Integer
        Dim errorCode As Integer = 0
        Dim p, dr, d, r1, r2, r3, da, d_cut As Double
        Dim alf, Beta, Gama As Double
6 s/ K9 I1 ^3 b+ u) Y        Dim M, T, V, W As Double
        Dim DtoR As Double = PI / 180
9 j' g% ]# {" l/ y4 H; y        Try
            Select Case ChainType
% @% d; N3 y6 j) @. i. p% `, g                Case "06B"
1 c! X/ ?. F0 Q0 A8 L* Y0 V7 f% k                    p = 9.525
                    dr = 6.35
                Case "08A"
                    p = 12.7
                    dr = 7.95
                Case "08B"
                    p = 12.7
                    dr = 8.51
                Case "10A"
                    p = 15.875
$ Z/ K# ^+ X6 P! {6 I6 Q: C, I/ m                    dr = 10.16
0 v  R/ L* G+ F' x+ b: y            End Select

7 h3 e2 d  e. x            alf = (55 - 60 / Z) * DtoR
            Beta = (18 - 56 / Z) * DtoR
            Gama = (17 - 64 / Z) * DtoR
            r1 = 0.5025 * dr + 0.05
            r2 = 1.3025 * dr + 0.05
2 l" ?- w  K( K; u; L2 Y            r3 = dr * (1.3 * Cos(Gama) + 0.8 * Cos(Beta) - 1.3025) - 0.05
            M = 0.8 * dr * Sin(alf)
            T = 0.8 * dr * Cos(alf)
            W = 1.3 * dr * Cos(180 / Z * DtoR)
/ x# K0 W$ h4 J! w% U: v            V = 1.3 * dr * Sin(180 / Z * DtoR)
6 o$ w% W6 K9 c0 \% I, y            d = p / Sin(180 / Z * DtoR)
8 @7 w! o! y" e8 d% ]            da = p * (0.54 + 1 / Tan(180 / Z * DtoR))
            d_cut = p * (1 + 1 / Tan(180 / Z * DtoR))
0 e$ Q9 t/ b6 A, x) ^
            Dim Point_O, Point_O2, Point_O3, Point_A, Point_B, Point_C, Point_D, Point_E, Point_cut As Point3d
/ S/ p3 K: D9 B            Dim Y_o As Double = d / 2

. j  Z/ P3 h" b- R* B1 h5 D            Point_O = New Point3d(0, Y_o, 0)
+ _  Q" X  c: c+ o. ]. Y            Point_O2 = New Point3d(-M, Y_o + T, 0)
            Dim point_O2_neg As Point3d = New Point3d(M, Y_o + T, 0)

& {. ~; J7 b1 Q5 i& F/ G! ^& g            Point_O3 = New Point3d(W, Y_o - V, 0)
1 v9 n0 k" |7 |- ~& J4 |            Dim point_O3_neg As Point3d = New Point3d(-W, Y_o - V, 0)

            Point_A = New Point3d(r1 * Sin(alf), Y_o - r1 * Cos(alf), 0)
# a7 V0 ^. r3 D- I% t0 Y            Dim Point_A_neg As Point3d = New Point3d(-r1 * Sin(alf), Y_o - r1 * Cos(alf), 0)
* m' Z- Y- M5 \3 q& t
& f0 \+ @2 Z! r            Point_B = New Point3d(-M + r2 * Sin(alf + Beta), Y_o + T - r2 * Cos(alf + Beta), 0)
- i5 o5 a/ W  C( Y' f            Dim Point_B_neg As Point3d = New Point3d(M - r2 * Sin(alf + Beta), Y_o + T - r2 * Cos(alf + Beta), 0)

            Point_C = New Point3d(W - r3 * Sin(alf + Beta), Y_o - V + r3 * Cos(alf + Beta), 0)
9 l6 X9 e2 H+ E* h" U1 B            Dim Point_C_neg As Point3d = New Point3d(-W + r3 * Sin(alf + Beta), Y_o - V + r3 * Cos(alf + Beta), 0)
4 b& G- b/ a6 i6 I( }# A
9 k. o/ `1 Q: V; b1 @$ l            Dim X_d As Double = W - r3 * Cos(90 * DtoR - alf - Beta + Gama)
7 b% g+ G6 P/ d% Q            Dim Y_d As Double = Y_o - V + r3 * Sin(90 * DtoR - alf - Beta + Gama)
7 a" t: d/ h4 G; E! O8 i- T! C* @/ D            Point_D = New Point3d(X_d, Y_d, 0)
            Dim Point_D_neg As Point3d = New Point3d(-X_d, Y_d, 0)
: M6 G8 c  f- A$ S. P
' I- c' N  _3 U* k            Dim Ld As Double = Y_d - X_d / Tan(180 / Z * DtoR)
, ?" h! |. l7 V2 O$ V. h8 ?% z  `            Dim Le As Double = Ld * Cos(180 / Z * DtoR)
6 l* C% e3 n0 K' X+ @: l9 O, T
2 f1 }' ?$ d3 a, {% o4 h& x8 s            Point_E = New Point3d(X_d + Le * Sin(180 / Z * DtoR), Y_d - Ld + Le * Cos(180 / Z * DtoR), 0)
            Dim Point_E_neg As Point3d = New Point3d(-X_d - Le * Sin(180 / Z * DtoR), Y_d - Ld + Le * Cos(180 / Z * DtoR), 0)
. r% c  O2 o9 Q: y
            Point_cut = New Point3d(d_cut / 2 * Sin(180 / Z * DtoR), d_cut / 2 * Cos(180 / Z * DtoR), 0)
& |  x: p  A: V/ G            Dim Point_cut_neg As Point3d = New Point3d(-d_cut / 2 * Sin(180 / Z * DtoR), d_cut / 2 * Cos(180 / Z * DtoR), 0)
1 q7 E+ ~) e2 s" ?* Q" C

            theSession.Preferences.SkeTCh.CreateInferredConstraints = False
7 H) H, T* W7 m+ X. h; b' d            theSession.Preferences.Sketch.ContinuousAutoDimensioning = False
7 @+ x7 B6 h$ }4 {6 ^( z9 {6 Y5 h            Dim workPart As Part = theSession.Parts.Work
            Dim nullSketch As Sketch = Nothing
            Dim sketchInPlaceBuilder1 As SketchInPlaceBuilder
8 Z9 g$ z$ u7 r5 E            sketchInPlaceBuilder1 = workPart.Sketches.CreateNewSketchInPlaceBuilder(nullSketch)
            Dim Cut_sketch As Sketch
6 g6 U) @& ]7 ~0 Q0 d8 l            Cut_sketch = sketchInPlaceBuilder1.Commit()
7 f( R' G8 U7 j) s& u3 L$ T# z            Cut_sketch.SetName("Sketch_ChainGear")
            Cut_sketch.Activate(Sketch.ViewReorient.False)
0 B1 U& x& h2 D) N
            Dim NXMatrix1 As NXMatrix
            nXMatrix1 = theSession.ActiveSketch.Orientation
- H5 g( U3 H' C3 n  N+ I# t/ s            Dim arc As Arc
! y) O1 M4 f- ~! r2 K6 Z+ }            arc = workPart.Curves.CreateArc(Point_O, nXMatrix1, r1, -90 * DtoR - alf, -90 * DtoR + alf)
            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)

            arc = workPart.Curves.CreateArc(Point_O2, nXMatrix1, r2, -90 * DtoR + alf, -90 * DtoR + alf + Beta)
* @5 D/ _: f8 U            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)

            arc = workPart.Curves.CreateArc(point_O2_neg, nXMatrix1, r2, -90 * DtoR - alf - Beta, -90 * DtoR - alf)
% @; n/ C& P5 k2 i: c+ C            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)
1 T: E8 Y2 p% c9 `+ s5 G, \( Q
1 T9 D) F8 J" ]+ c9 P            arc = workPart.Curves.CreateArc(Point_O3, nXMatrix1, r3, 90 * DtoR + alf + Beta - Gama, 90 * DtoR + alf + Beta)
            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)
# a0 p  |7 _4 w6 x& b
# Q3 A3 Q0 k  ~- _            arc = workPart.Curves.CreateArc(point_O3_neg, nXMatrix1, r3, 90 * DtoR - alf - Beta, 90 * DtoR - alf - Beta + Gama)
            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)
* @/ U) P. b2 Q8 {2 G
            Dim line1 As Line

$ m, s4 t/ O; P            line1 = workPart.Curves.CreateLine(Point_B, Point_C)
# X& [6 W3 {# P; C! t            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
            line1 = workPart.Curves.CreateLine(Point_B_neg, Point_C_neg)
5 p2 H5 U+ F+ v& y            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
" h4 ]8 T4 O0 I4 l* N1 ?4 Z: ?
% c1 [5 l/ o* ^( B* d            line1 = workPart.Curves.CreateLine(Point_D, Point_E)
9 s' ]' k1 f* ~/ L6 T) T3 z            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
) Q. t- ~: f: p6 V/ c$ C3 I            line1 = workPart.Curves.CreateLine(Point_D_neg, Point_E_neg)
( c! P; A( J/ C  b" S. \            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)

! c) ?" q( U5 c: `5 Q            line1 = workPart.Curves.CreateLine(Point_E, Point_cut)
            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
/ i+ L& r6 L- V5 S4 |  l            line1 = workPart.Curves.CreateLine(Point_E_neg, Point_cut_neg)
* ~! W4 Z# U" P- D            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
! U7 l2 x, q5 S" p5 \
" Y' j. h  a5 q  ~/ M3 S% O            Dim Point_center As Point3d = New Point3d(0, 0, 0)
; x! D  }4 I. v            arc = workPart.Curves.CreateArc(Point_center, nXMatrix1, d_cut / 2, (90 - 180 / Z) * DtoR, (90 + 180 / Z) * DtoR)
            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)

" [+ s! \& J" b2 S# J8 H7 H7 d            theSession.ActiveSketch.Update()
            theSession.ActiveSketch.Deactivate(Sketch.ViewReorient.False, Sketch.UpdateLevel.Model)
) a0 B+ O! \6 E) ]
            sketchInPlaceBuilder1 = workPart.Sketches.CreateNewSketchInPlaceBuilder(nullSketch)
4 C0 M- C/ q$ w            Dim Circle_sketch As Sketch
            Circle_sketch = sketchInPlaceBuilder1.Commit()
- h8 t3 G5 [4 S2 W$ h6 H            Circle_sketch.SetName("Sketch_Circle")
            Circle_sketch.Activate(Sketch.ViewReorient.False)
. f5 X, p! x# f2 k            arc = workPart.Curves.CreateArc(Point_center, nXMatrix1, da / 2, 0, 360 * DtoR)
            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)
' w4 K- o) D) j5 X2 D: c# t            theSession.ActiveSketch.Update()
            theSession.ActiveSketch.Deactivate(Sketch.ViewReorient.False, Sketch.UpdateLevel.Model)

            sketchInPlaceBuilder1.Destroy()

) {& V0 }$ \( S' h. D            Dim nullFeatures_Feature As Features.Feature = Nothing
            Dim nullNXObject As NXObject = Nothing
            Dim nullPoint As Point = Nothing
+ B: E+ H+ d3 x8 D7 W3 ]' f
            Dim extrudeBuilder1 As Features.ExtrudeBuilder
            extrudeBuilder1 = workPart.Features.CreateExtrudeBuilder(nullFeatures_Feature)
: P$ I1 n' `8 W3 j9 Y. F            extrudeBuilder1.Limits.StartExtend.Value.RightHandSide = "0"
            extrudeBuilder1.Limits.EndExtend.Value.RightHandSide = "5"
9 n$ ?9 {, M- l. E8 O/ b
            Dim targetBodies1(0) As Body
7 D- ]. ]* q# [8 X; M) `) \            Dim nullBody As Body = Nothing
$ H, r4 V" W; H7 b" ?            targetBodies1(0) = nullBody
! r8 ]) n/ G% w9 R! m) P4 R, t            extrudeBuilder1.BooleanOperation.SetTargetBodies(targetBodies1)
1 U* R; T: [6 l* M+ h            extrudeBuilder1.BooleanOperation.Type = GeometricUtilities.BooleanOperation.BooleanType.Create

  h- A, ?$ m2 f            Dim section2 As Section
            section2 = workPart.Sections.CreateSection(0.02413, 0.0254, 0.5)
            extrudeBuilder1.Section = section2
$ t- E$ l% i7 b            Dim features2(0) As Features.Feature
            Dim sketchFeature2 As Features.SketchFeature = Circle_sketch.Feature
            features2(0) = sketchFeature2
; C8 J5 @, U) o            Dim curveFeatureRule2 As CurveFeatureRule
            curveFeatureRule2 = workPart.ScRuleFactory.CreateRuleCurveFeature(features2)
! O5 [+ v8 \0 u4 ^            Dim rules2(0) As SelectionIntentRule
            rules2(0) = curveFeatureRule2
( o( r8 p4 M% Q5 i            Dim sketch2 As Sketch = Circle_sketch
2 L8 l0 v% N% i6 c* s0 E            Dim helpPoint2 As Point3d = New Point3d(0, 0, 0)
6 a* x+ D9 H, @! B! e9 E+ D            section2.AddToSection(rules2, Circle_sketch.GetAllGeometry(0), nullNXObject, nullNXObject, helpPoint2, Section.Mode.Create, False)

            Dim direction2 As Direction
, ~7 n4 t1 z. M            direction2 = workPart.Directions.CreateDirection(sketch2, Sense.Forward, SmartObject.UpdateOption.WithinModeling)
            extrudeBuilder1.Direction = direction2

5 n3 P+ H$ c. {! C4 A- G            Dim ExtrudeFeature As Features.Feature
            ExtrudeFeature = extrudeBuilder1.CommitFeature()
5 J4 t  u9 h1 A. j$ s& T2 M            ExtrudeFeature.SetName("Circle")
$ l* b+ m8 ?( s* b
* [8 t! l: O( |( \7 F: W; ^: |            extrudeBuilder1.Destroy()

            extrudeBuilder1 = workPart.Features.CreateExtrudeBuilder(nullFeatures_Feature)
            extrudeBuilder1.Limits.StartExtend.Value.RightHandSide = "0"
# G" l6 i9 _$ `& e# n0 X; N" t! K            extrudeBuilder1.Limits.EndExtend.Value.RightHandSide = "5"
3 k2 }. i* s2 i1 y8 B
            Dim CircleBody As Features.BodyFeature = ExtrudeFeature
            Dim body1() As Body = CircleBody.GetBodies()
; G* W" y! t) r; H/ e2 L# C
' p& J+ c, S9 O' G3 M8 T            targetBodies1(0) = body1(0)
            extrudeBuilder1.BooleanOperation.SetTargetBodies(targetBodies1)
            extrudeBuilder1.BooleanOperation.Type = GeometricUtilities.BooleanOperation.BooleanType.Create

            section2 = workPart.Sections.CreateSection(0.02413, 0.0254, 0.5)
" T/ U8 c7 o* N4 A6 t  R" ]0 `            extrudeBuilder1.Section = section2
/ v- r4 R1 X- B3 e9 ~4 @6 M            sketchFeature2 = Cut_sketch.Feature
# g  e4 G- }& Z0 D: w            features2(0) = sketchFeature2
0 \, w2 }2 e% y4 K            curveFeatureRule2 = workPart.ScRuleFactory.CreateRuleCurveFeature(features2)
            rules2(0) = curveFeatureRule2
0 Z- g& S& ^& `& O  E; N  T) h/ u) r            sketch2 = Cut_sketch
            section2.AddToSection(rules2, Circle_sketch.GetAllGeometry(0), nullNXObject, nullNXObject, helpPoint2, Section.Mode.Create, False)

            direction2 = workPart.Directions.CreateDirection(sketch2, Sense.Forward, SmartObject.UpdateOption.WithinModeling)
$ G+ B+ S& z' f7 @            extrudeBuilder1.Direction = direction2
* s/ ?4 {6 d5 \! l
% i* y2 B% X& O8 G. P% n, Q            Dim CutFeature As Features.Feature
            CutFeature = extrudeBuilder1.CommitFeature()
            CutFeature.SetName("Cut")

            extrudeBuilder1.Destroy()
/ @- i, E: A" ?' O6 Z7 [
( d% N" |1 V9 Q* l* k) e            Dim geomcopyBuilder1 As Features.GeomcopyBuilder
            geomcopyBuilder1 = workPart.Features.CreateGeomcopyBuilder(nullFeatures_Feature)
+ v; s- _$ c. t5 Q9 @, E" {            geomcopyBuilder1.Type = Features.GeomcopyBuilder.TransformTypes.Rotation

            geomcopyBuilder1.RotateDistance.RightHandSide = 0
            geomcopyBuilder1.RotateAngle.RightHandSide = 360 / Z
3 ~% y3 I& o  x( ~            geomcopyBuilder1.NumberOfCopies.RightHandSide = Z
            Dim datumAxis1 As DatumAxis = CType(workPart.Datums.FindObject("DATUM_CSYS(0) Z axis"), DatumAxis)

            Dim direction1 As Direction
            direction1 = workPart.Directions.CreateDirection(datumAxis1, Sense.Forward, SmartObject.UpdateOption.WithinModeling)
            Dim axis1 As Axis
            axis1 = workPart.Axes.CreateAxis(nullPoint, direction1, SmartObject.UpdateOption.WithinModeling)
) P; q$ x; h9 X. b' D
            geomcopyBuilder1.RotationAxis = axis1
" F) a2 I& a: E) O7 ]0 n* {% t$ R
& M( S8 e  j+ T0 O; k( a            Dim CutBody As Features.BodyFeature = CutFeature
            body1 = CutBody.GetBodies()

            Dim added1 As Boolean
            added1 = geomcopyBuilder1.GeometryToInstance.Add(body1(0))
            Dim GeomCopyFeature As Features.Feature
            GeomCopyFeature = geomcopyBuilder1.CommitFeature()
& l$ a# g4 s" h9 Y
            Dim nullFeatures_BooleanFeature As Features.BooleanFeature = Nothing
4 z2 ^& L9 n+ X
            Dim booleanBuilder1 As Features.BooleanBuilder
9 _( e' u: D* t            booleanBuilder1 = workPart.Features.CreateBooleanBuilderUsingCollector(nullFeatures_BooleanFeature)

            booleanBuilder1.Operation = Features.Feature.BooleanType.Subtract
            body1 = CircleBody.GetBodies()
& P4 e, [3 q2 \8 V' U6 k! ]
            Dim added2 As Boolean
  s& P  y% a" V, J            added2 = booleanBuilder1.Targets.Add(body1(0))
5 n4 j# q- y6 y' U% i$ R
            Dim features1(0) As Features.Feature
            Dim geomcopy1 As Features.Geomcopy = GeomCopyFeature
, ]8 y# p% a! K+ y, Z! Q
            features1(0) = geomcopy1
) [0 L0 h) G6 O* ]+ ]4 M            Dim bodyFeatureRule1 As BodyFeatureRule
; \& b! @  f+ N8 m$ I            bodyFeatureRule1 = workPart.ScRuleFactory.CreateRuleBodyFeature(features1)
; K- }" s! C2 G  M. z+ [: {& \
            Dim rules4(0) As SelectionIntentRule
+ i2 P& h$ a! o" R4 Y( J$ M8 o. b            rules4(0) = bodyFeatureRule1
            Dim scCollector2 As ScCollector
            scCollector2 = workPart.ScCollectors.CreateCollector()
0 ]2 [7 Z2 t% T2 J0 H# L5 B( R7 C' ^3 L            scCollector2.ReplaceRules(rules4, False)
+ K2 h0 `3 |, o3 `# |9 i
            booleanBuilder1.ToolBodyCollector = scCollector2
( R9 P. `- B7 b; h            Dim nXObject1 As NXObject
            nXObject1 = booleanBuilder1.Commit()
2 D+ u/ g5 ~8 D9 T* j2 j
            booleanBuilder1.Destroy()
2 n1 ~4 V" p/ a* }  c

            Dim objects2(0) As DisplayableObject
            objects2(0) = CutBody.GetBodies(0)
2 S- h* A1 r2 K' q2 f$ `: @2 K            theSession.DisplayManager.BlankObjects(objects2)
5 F' ~7 ?& @% A, |6 i3 {        Catch ex As Exception
) k, |3 j( k4 c- T  Y( |+ N& e& Q5 T            errorCode = 1
1 E3 w$ ?% k; M5 Z2 g0 E3 _; H9 G) y: W            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
- i7 e' Z8 c$ }
        End Try
        CreateChainGear = errorCode
" S1 h# x, u7 y    End Function
   
2 h4 k$ s) B4 Y' p# {End Class[/code]

$ v; n. T2 J9 D0 P1 B+ I3 u