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

admin

UG二次开发源码-链轮齿轮标准件创建VB源码
% ]  Q) R5 R+ E: n* Z" a' C0 J" ^感觉还不错，VB写的分享下，只是这里没有使用渐开线的方式画齿轮！
4 A5 i1 M& E5 e6 s$ a
[code] Private Function CreateChainGear(ByVal ChainType As String, ByVal Z As Integer) As Integer
        Dim errorCode As Integer = 0
9 ?! p: G4 ?* w2 E% J1 z& P        Dim p, dr, d, r1, r2, r3, da, d_cut As Double
. _1 w" w0 Y* F, T( f" E6 [        Dim alf, Beta, Gama As Double
        Dim M, T, V, W As Double
  B; t$ K: \0 ]; ~        Dim DtoR As Double = PI / 180
$ h/ b6 n) T' h        Try
            Select Case ChainType
: m1 m3 f1 F! {% r2 c4 u( g4 ?                Case "06B"
                    p = 9.525
9 d2 f$ i5 T# s4 f  K                    dr = 6.35
                Case "08A"
/ J7 S# p" K  h. l                    p = 12.7
                    dr = 7.95
                Case "08B"
                    p = 12.7
5 W: H, ]" B/ M) K( c- Z7 ^                    dr = 8.51
                Case "10A"
' g+ `, B$ H7 }' F$ B) c$ c                    p = 15.875
                    dr = 10.16
            End Select

            alf = (55 - 60 / Z) * DtoR
            Beta = (18 - 56 / Z) * DtoR
            Gama = (17 - 64 / Z) * DtoR
; k9 E: n" z1 D8 m. ~            r1 = 0.5025 * dr + 0.05
" g+ y* S/ `4 U% h            r2 = 1.3025 * dr + 0.05
            r3 = dr * (1.3 * Cos(Gama) + 0.8 * Cos(Beta) - 1.3025) - 0.05
5 ~- J" w: V# t6 R2 I3 D; G            M = 0.8 * dr * Sin(alf)
            T = 0.8 * dr * Cos(alf)
            W = 1.3 * dr * Cos(180 / Z * DtoR)
            V = 1.3 * dr * Sin(180 / Z * DtoR)
$ }% l. R! v4 Z' g' R            d = p / Sin(180 / Z * DtoR)
            da = p * (0.54 + 1 / Tan(180 / Z * DtoR))
* ]5 W+ N$ Z4 B8 g6 s$ C5 |$ N3 J            d_cut = p * (1 + 1 / Tan(180 / Z * DtoR))
/ |# H4 L$ [# g* x4 k
1 P3 h. L7 K! \$ c$ j            Dim Point_O, Point_O2, Point_O3, Point_A, Point_B, Point_C, Point_D, Point_E, Point_cut As Point3d
            Dim Y_o As Double = d / 2
) `6 w) ]4 {' G5 f' y/ p$ c; w0 i
" ]0 a/ f( f. j" Z; V            Point_O = New Point3d(0, Y_o, 0)
$ F# f1 U" A* f3 Y            Point_O2 = New Point3d(-M, Y_o + T, 0)
# P( Z6 \1 S" n. W0 p* O            Dim point_O2_neg As Point3d = New Point3d(M, Y_o + T, 0)

3 f0 M# d  F% U5 ]% J            Point_O3 = New Point3d(W, Y_o - V, 0)
6 I6 [  F, ^- l% P& k! b            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)
            Dim Point_A_neg As Point3d = New Point3d(-r1 * Sin(alf), Y_o - r1 * Cos(alf), 0)
- L& q1 H" c2 C7 L( x$ l5 b4 m
! A# G( a& W/ _7 z  D& }( e            Point_B = New Point3d(-M + r2 * Sin(alf + Beta), Y_o + T - r2 * Cos(alf + Beta), 0)
            Dim Point_B_neg As Point3d = New Point3d(M - r2 * Sin(alf + Beta), Y_o + T - r2 * Cos(alf + Beta), 0)
" Q  Z0 N7 l. v4 ^9 y, T1 B
8 d* o3 i2 b6 u( }8 F$ s0 P% U            Point_C = New Point3d(W - r3 * Sin(alf + Beta), Y_o - V + r3 * Cos(alf + Beta), 0)
            Dim Point_C_neg As Point3d = New Point3d(-W + r3 * Sin(alf + Beta), Y_o - V + r3 * Cos(alf + Beta), 0)
! c1 ?2 i% \3 w' Y# u' }2 {" |
            Dim X_d As Double = W - r3 * Cos(90 * DtoR - alf - Beta + Gama)
            Dim Y_d As Double = Y_o - V + r3 * Sin(90 * DtoR - alf - Beta + Gama)
& E8 G8 e) G& Q1 C            Point_D = New Point3d(X_d, Y_d, 0)
! z6 G0 B# W8 u            Dim Point_D_neg As Point3d = New Point3d(-X_d, Y_d, 0)

; D0 Q  i3 N% {7 g" k" |( r            Dim Ld As Double = Y_d - X_d / Tan(180 / Z * DtoR)
5 T2 s$ T3 h: V9 r( c" J& ~            Dim Le As Double = Ld * Cos(180 / Z * DtoR)
6 z- \" `# V* V/ i
. Q4 a. g8 S! O  K: Y2 @            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)

            Point_cut = New Point3d(d_cut / 2 * Sin(180 / Z * DtoR), d_cut / 2 * Cos(180 / Z * DtoR), 0)
            Dim Point_cut_neg As Point3d = New Point3d(-d_cut / 2 * Sin(180 / Z * DtoR), d_cut / 2 * Cos(180 / Z * DtoR), 0)
2 i$ Q* _& O0 \! J6 @
2 [! F( i+ M  _' g6 O6 ?5 X
! \- x! T7 d* o  d5 s            theSession.Preferences.SkeTCh.CreateInferredConstraints = False
            theSession.Preferences.Sketch.ContinuousAutoDimensioning = False
) J( Q# T$ X+ B. e! |# n            Dim workPart As Part = theSession.Parts.Work
, m; B- _+ V% k            Dim nullSketch As Sketch = Nothing
, e1 W8 e! g2 M" A( q            Dim sketchInPlaceBuilder1 As SketchInPlaceBuilder
            sketchInPlaceBuilder1 = workPart.Sketches.CreateNewSketchInPlaceBuilder(nullSketch)
- r# w  Z' `7 b1 O" v, n9 l            Dim Cut_sketch As Sketch
            Cut_sketch = sketchInPlaceBuilder1.Commit()
' Z* M: j8 q5 S5 H4 V            Cut_sketch.SetName("Sketch_ChainGear")
! r: u, U" W- Z7 I" ]: U4 T" M            Cut_sketch.Activate(Sketch.ViewReorient.False)
2 W5 _" f: ?0 Y5 g" m1 W
            Dim NXMatrix1 As NXMatrix
% _& Z4 U5 d5 c1 p* A            nXMatrix1 = theSession.ActiveSketch.Orientation
5 i9 {: F9 P4 k% v+ w            Dim arc As Arc
            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)
            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)

7 B# T+ ]: Q$ X2 c! s9 {! ^            arc = workPart.Curves.CreateArc(point_O2_neg, nXMatrix1, r2, -90 * DtoR - alf - Beta, -90 * DtoR - alf)
$ A" ~) [: p) C& _; W            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)

            arc = workPart.Curves.CreateArc(Point_O3, nXMatrix1, r3, 90 * DtoR + alf + Beta - Gama, 90 * DtoR + alf + Beta)
            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)
  l* L1 }( p6 @' S
            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)
& `, J) B+ b- m1 H
            Dim line1 As Line
, M  U1 U  [: K: H& C
0 v2 ~+ F2 x7 g! c  G3 @% A8 Z            line1 = workPart.Curves.CreateLine(Point_B, Point_C)
            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
- Z' w5 e2 ]: L            line1 = workPart.Curves.CreateLine(Point_B_neg, Point_C_neg)
            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)

            line1 = workPart.Curves.CreateLine(Point_D, Point_E)
& F8 K5 }/ P; E, U6 A/ _( j7 d+ m0 M8 a            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
- M; T$ [- ~, f, B) ]+ `            line1 = workPart.Curves.CreateLine(Point_D_neg, Point_E_neg)
- _9 g% ~* u6 `( W' \            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
8 d6 B! y" t/ t2 B  Q8 `1 B
& m& H; v$ E8 ^1 Q. o            line1 = workPart.Curves.CreateLine(Point_E, Point_cut)
) y2 B: s: u( E# [. w/ c% m9 a            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
            line1 = workPart.Curves.CreateLine(Point_E_neg, Point_cut_neg)
2 s( T4 \% w: m0 X0 Z; K            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)

            Dim Point_center As Point3d = New Point3d(0, 0, 0)
+ e/ R1 D% t( c2 t/ v" n            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)

            theSession.ActiveSketch.Update()
. a" N* w, d. }0 L- a% y            theSession.ActiveSketch.Deactivate(Sketch.ViewReorient.False, Sketch.UpdateLevel.Model)

. t$ M/ b3 W" o& _            sketchInPlaceBuilder1 = workPart.Sketches.CreateNewSketchInPlaceBuilder(nullSketch)
            Dim Circle_sketch As Sketch
( H  A4 f  {2 o$ Z            Circle_sketch = sketchInPlaceBuilder1.Commit()
            Circle_sketch.SetName("Sketch_Circle")
9 i0 w- }6 L* T1 F* W; k            Circle_sketch.Activate(Sketch.ViewReorient.False)
            arc = workPart.Curves.CreateArc(Point_center, nXMatrix1, da / 2, 0, 360 * DtoR)
            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)
            theSession.ActiveSketch.Update()
            theSession.ActiveSketch.Deactivate(Sketch.ViewReorient.False, Sketch.UpdateLevel.Model)
( J4 |# X) `  h, s- j
            sketchInPlaceBuilder1.Destroy()

            Dim nullFeatures_Feature As Features.Feature = Nothing
            Dim nullNXObject As NXObject = Nothing
            Dim nullPoint As Point = Nothing
, {& C; Z" Y) Z" ^* m. U
$ [3 _! A( G1 W- B+ F            Dim extrudeBuilder1 As Features.ExtrudeBuilder
" w6 R% a- f: g% u; a' k            extrudeBuilder1 = workPart.Features.CreateExtrudeBuilder(nullFeatures_Feature)
3 \8 Y( m7 k* E            extrudeBuilder1.Limits.StartExtend.Value.RightHandSide = "0"
            extrudeBuilder1.Limits.EndExtend.Value.RightHandSide = "5"

            Dim targetBodies1(0) As Body
            Dim nullBody As Body = Nothing
5 Y9 {/ h) N  ?( s            targetBodies1(0) = nullBody
% X7 M) a' c6 q) n  X1 L3 \            extrudeBuilder1.BooleanOperation.SetTargetBodies(targetBodies1)
; Q, A: v, N" v9 y            extrudeBuilder1.BooleanOperation.Type = GeometricUtilities.BooleanOperation.BooleanType.Create

2 T- Q; G! G) |6 ~            Dim section2 As Section
- P! N% o/ w0 v8 y3 \            section2 = workPart.Sections.CreateSection(0.02413, 0.0254, 0.5)
            extrudeBuilder1.Section = section2
            Dim features2(0) As Features.Feature
: o0 f. @7 Q: V5 b% Q3 ?- G            Dim sketchFeature2 As Features.SketchFeature = Circle_sketch.Feature
            features2(0) = sketchFeature2
- P9 T8 M: [; ], {' F            Dim curveFeatureRule2 As CurveFeatureRule
            curveFeatureRule2 = workPart.ScRuleFactory.CreateRuleCurveFeature(features2)
            Dim rules2(0) As SelectionIntentRule
            rules2(0) = curveFeatureRule2
" |9 F% F$ s; |$ J# K3 s            Dim sketch2 As Sketch = Circle_sketch
            Dim helpPoint2 As Point3d = New Point3d(0, 0, 0)
$ @' N9 W2 l7 V            section2.AddToSection(rules2, Circle_sketch.GetAllGeometry(0), nullNXObject, nullNXObject, helpPoint2, Section.Mode.Create, False)
7 |4 g  v, U2 d6 Y/ `8 Q9 E' p% t# A
' r& D: ^  A( q+ R            Dim direction2 As Direction
  W) D1 D( W  Q, t% Y7 s            direction2 = workPart.Directions.CreateDirection(sketch2, Sense.Forward, SmartObject.UpdateOption.WithinModeling)
$ ^/ L: K% v2 Z% L' B. m            extrudeBuilder1.Direction = direction2
4 K/ g  n) F' `! z1 g3 ~6 G
0 g7 f( ~& A; C! U4 F            Dim ExtrudeFeature As Features.Feature
            ExtrudeFeature = extrudeBuilder1.CommitFeature()
            ExtrudeFeature.SetName("Circle")

4 n) J0 f& U+ |4 W  P3 ^            extrudeBuilder1.Destroy()
8 ]4 l$ p, }; s5 f2 u
            extrudeBuilder1 = workPart.Features.CreateExtrudeBuilder(nullFeatures_Feature)
$ |. J& X' c' J; p9 B! Q            extrudeBuilder1.Limits.StartExtend.Value.RightHandSide = "0"
            extrudeBuilder1.Limits.EndExtend.Value.RightHandSide = "5"
: q# ?) N$ W1 y; [( U
6 X$ v1 M" c8 O) K$ E            Dim CircleBody As Features.BodyFeature = ExtrudeFeature
            Dim body1() As Body = CircleBody.GetBodies()

            targetBodies1(0) = body1(0)
2 w* D; }( @. _            extrudeBuilder1.BooleanOperation.SetTargetBodies(targetBodies1)
            extrudeBuilder1.BooleanOperation.Type = GeometricUtilities.BooleanOperation.BooleanType.Create

+ Y/ T. |7 p$ l! a/ _            section2 = workPart.Sections.CreateSection(0.02413, 0.0254, 0.5)
            extrudeBuilder1.Section = section2
8 t8 R; N5 s, V8 P% S. g, A            sketchFeature2 = Cut_sketch.Feature
# o, [; G7 p& [" p0 |# p1 C            features2(0) = sketchFeature2
  {6 V6 z# `/ o            curveFeatureRule2 = workPart.ScRuleFactory.CreateRuleCurveFeature(features2)
5 w$ Z, x; @2 ^( u            rules2(0) = curveFeatureRule2
* Z& n& l2 X" @, S! `1 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)
  I, T6 @, f( B" }* o            extrudeBuilder1.Direction = direction2

            Dim CutFeature As Features.Feature
            CutFeature = extrudeBuilder1.CommitFeature()
. u. e/ p, J$ F            CutFeature.SetName("Cut")
  S) b4 s7 ~5 r; p* o% |6 `  W
4 o" G; p* u# A3 ?            extrudeBuilder1.Destroy()

            Dim geomcopyBuilder1 As Features.GeomcopyBuilder
            geomcopyBuilder1 = workPart.Features.CreateGeomcopyBuilder(nullFeatures_Feature)
& D3 s# q3 h  E8 Y+ E" J& c+ `            geomcopyBuilder1.Type = Features.GeomcopyBuilder.TransformTypes.Rotation

3 @, B  w& o2 t- `! z: j! f! m6 E7 D4 t            geomcopyBuilder1.RotateDistance.RightHandSide = 0
            geomcopyBuilder1.RotateAngle.RightHandSide = 360 / Z
            geomcopyBuilder1.NumberOfCopies.RightHandSide = Z
            Dim datumAxis1 As DatumAxis = CType(workPart.Datums.FindObject("DATUM_CSYS(0) Z axis"), DatumAxis)

            Dim direction1 As Direction
- h7 P( y+ N8 ^( g' W- Y            direction1 = workPart.Directions.CreateDirection(datumAxis1, Sense.Forward, SmartObject.UpdateOption.WithinModeling)
            Dim axis1 As Axis
5 C! ^$ c6 z1 g7 w  k0 e: z. P# X/ Q            axis1 = workPart.Axes.CreateAxis(nullPoint, direction1, SmartObject.UpdateOption.WithinModeling)

3 E* s2 n0 G* j# q            geomcopyBuilder1.RotationAxis = axis1
! l, L/ S3 r3 P) T
# f1 W& x( P7 r, ~( ?            Dim CutBody As Features.BodyFeature = CutFeature
            body1 = CutBody.GetBodies()
( W$ z7 r7 k4 [3 k3 z, m9 M! \
            Dim added1 As Boolean
, i/ ^: H, M' Z: \  j            added1 = geomcopyBuilder1.GeometryToInstance.Add(body1(0))
1 J( D: }/ t& h9 n$ z' J            Dim GeomCopyFeature As Features.Feature
            GeomCopyFeature = geomcopyBuilder1.CommitFeature()

- w5 [3 t& g- ]1 j5 y/ T) X            Dim nullFeatures_BooleanFeature As Features.BooleanFeature = Nothing

            Dim booleanBuilder1 As Features.BooleanBuilder
; m3 D! c3 N* H# }0 U            booleanBuilder1 = workPart.Features.CreateBooleanBuilderUsingCollector(nullFeatures_BooleanFeature)

6 j5 V- p0 @$ C' y            booleanBuilder1.Operation = Features.Feature.BooleanType.Subtract
            body1 = CircleBody.GetBodies()
- z) I; M! C" }+ A6 o
1 o! @% W5 T5 U+ c8 ~0 [- L            Dim added2 As Boolean
            added2 = booleanBuilder1.Targets.Add(body1(0))
2 u9 I, b0 U* m1 F5 l( a
            Dim features1(0) As Features.Feature
% d. t4 _; W5 k& B2 \            Dim geomcopy1 As Features.Geomcopy = GeomCopyFeature

& z: }% m$ k- j- c& ]. Z3 W, G            features1(0) = geomcopy1
5 e0 Z2 w3 e! @# [            Dim bodyFeatureRule1 As BodyFeatureRule
            bodyFeatureRule1 = workPart.ScRuleFactory.CreateRuleBodyFeature(features1)

            Dim rules4(0) As SelectionIntentRule
            rules4(0) = bodyFeatureRule1
            Dim scCollector2 As ScCollector
            scCollector2 = workPart.ScCollectors.CreateCollector()
            scCollector2.ReplaceRules(rules4, False)

1 C3 B: ~. N5 Q; |1 n            booleanBuilder1.ToolBodyCollector = scCollector2
$ E! g1 T7 L3 }7 Y; x& H* y3 R            Dim nXObject1 As NXObject
( W# `5 G+ Q# v            nXObject1 = booleanBuilder1.Commit()
# d4 M- {* H" l8 }
) v/ |* m) _7 r8 D7 o2 w            booleanBuilder1.Destroy()

+ Y. }0 M5 e1 v. @  S9 h' e
5 G6 F) F! e1 a& J. R0 h            Dim objects2(0) As DisplayableObject
; S, b5 D: d( g8 P# X            objects2(0) = CutBody.GetBodies(0)
$ s) \6 I8 J) u( X+ w/ |            theSession.DisplayManager.BlankObjects(objects2)
9 |) C- F3 M  O) _' x# E! i        Catch ex As Exception
            errorCode = 1
            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)

        End Try
" N' ]( B0 x% o1 @( G8 |4 b- {        CreateChainGear = errorCode
    End Function
   
End Class[/code]