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

admin

UG二次开发源码-链轮齿轮标准件创建VB源码
感觉还不错，VB写的分享下，只是这里没有使用渐开线的方式画齿轮！
# |- z% N! w, {* |  U& V
( B8 _5 W# P7 Z6 f# B[code] Private Function CreateChainGear(ByVal ChainType As String, ByVal Z As Integer) As Integer
8 ?) G' k7 c1 P# n- e% L/ b4 {        Dim errorCode As Integer = 0
        Dim p, dr, d, r1, r2, r3, da, d_cut As Double
' m2 T. C: c, c        Dim alf, Beta, Gama As Double
        Dim M, T, V, W As Double
3 a" d) l  K4 T$ W) f        Dim DtoR As Double = PI / 180
5 \6 |& G5 q- k9 h1 E: Y        Try
- D& i" R5 j: K, s- Q# \& Y            Select Case ChainType
                Case "06B"
                    p = 9.525
2 V8 z8 O; L- k. X+ u                    dr = 6.35
                Case "08A"
1 F8 x- g1 s8 M$ L7 E4 X, {                    p = 12.7
5 |$ d# |* S) b# D: {+ W+ o" d9 u+ ~                    dr = 7.95
. g- D, w6 L$ x$ S                Case "08B"
                    p = 12.7
" v$ x5 }" C+ z' H% l                    dr = 8.51
                Case "10A"
                    p = 15.875
% H4 N/ X; U: a8 g  e  R9 l: O' r6 l                    dr = 10.16
            End Select

            alf = (55 - 60 / Z) * DtoR
            Beta = (18 - 56 / Z) * DtoR
0 h5 N7 W" E# p            Gama = (17 - 64 / Z) * DtoR
            r1 = 0.5025 * dr + 0.05
            r2 = 1.3025 * dr + 0.05
) o7 w; \8 d! p8 P; V9 ~            r3 = dr * (1.3 * Cos(Gama) + 0.8 * Cos(Beta) - 1.3025) - 0.05
  {2 [7 r3 h* w" w% V            M = 0.8 * dr * Sin(alf)
$ z' h9 ~9 R) o: S            T = 0.8 * dr * Cos(alf)
6 o# L6 `. f: ^5 f+ X* a            W = 1.3 * dr * Cos(180 / Z * DtoR)
( t! R; Z# P. ^* x9 N1 M            V = 1.3 * dr * Sin(180 / Z * DtoR)
            d = p / Sin(180 / Z * DtoR)
            da = p * (0.54 + 1 / Tan(180 / Z * DtoR))
' |2 M- w0 w* T( l" j. A            d_cut = p * (1 + 1 / Tan(180 / Z * DtoR))

2 e+ S$ R+ ~; `5 `& [" v; k$ p            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

. G7 F5 e5 B2 y. @4 ^5 L+ e# f9 ?            Point_O = New Point3d(0, Y_o, 0)
0 W4 A* W0 {8 @            Point_O2 = New Point3d(-M, Y_o + T, 0)
8 q  @5 F5 g$ c! Z  s            Dim point_O2_neg As Point3d = New Point3d(M, Y_o + T, 0)
) m4 l. q. ^$ A; i3 ?, p
4 T8 f0 K1 k9 f5 h  O. w# V            Point_O3 = New Point3d(W, Y_o - V, 0)
            Dim point_O3_neg As Point3d = New Point3d(-W, Y_o - V, 0)
* A9 ~; u. v! n4 I: [% s+ ]0 a
' z" U0 X4 j' @* u  J            Point_A = New Point3d(r1 * Sin(alf), Y_o - r1 * Cos(alf), 0)
/ g& h/ V2 ^  N" B            Dim Point_A_neg As Point3d = New Point3d(-r1 * Sin(alf), Y_o - r1 * Cos(alf), 0)
8 J1 e7 a7 N+ z- ~0 b2 V% Q
- `; M2 S) h& ]8 S8 g- A            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)
" v3 ]  l; `! u
% v+ A0 Q+ `  I2 u: g4 {8 v* v            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)
: B! E) F6 S' S6 V3 e) _6 ]
            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)
6 X/ _4 P  j3 \3 P  |) p1 {            Point_D = New Point3d(X_d, Y_d, 0)
            Dim Point_D_neg As Point3d = New Point3d(-X_d, Y_d, 0)
7 L' M( G$ k: y* M1 i# q5 ~$ T$ P0 k7 ~
& c. @0 d* D$ ?! r            Dim Ld As Double = Y_d - X_d / Tan(180 / Z * DtoR)
            Dim Le As Double = Ld * Cos(180 / Z * DtoR)

/ t/ [$ U* o8 `1 W1 ~' M5 [            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)
- _) w: L  i# s( ]% _
  s# \6 ~4 a2 k! y' x! M            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)
0 K% U+ K+ j4 m6 x: V* b, R3 a
& l% q& X2 V! [7 }
            theSession.Preferences.SkeTCh.CreateInferredConstraints = False
% y# u7 f1 r* p2 ?' R. o            theSession.Preferences.Sketch.ContinuousAutoDimensioning = False
            Dim workPart As Part = theSession.Parts.Work
            Dim nullSketch As Sketch = Nothing
) Z0 |+ {3 Z' ~  H            Dim sketchInPlaceBuilder1 As SketchInPlaceBuilder
) t9 E, \6 j  @9 q" @3 x            sketchInPlaceBuilder1 = workPart.Sketches.CreateNewSketchInPlaceBuilder(nullSketch)
            Dim Cut_sketch As Sketch
            Cut_sketch = sketchInPlaceBuilder1.Commit()
& b' W2 D4 `- V- e0 _            Cut_sketch.SetName("Sketch_ChainGear")
# j% X5 L- l5 Q8 j            Cut_sketch.Activate(Sketch.ViewReorient.False)
4 ^: V* H1 D$ a5 z8 Z* i
            Dim NXMatrix1 As NXMatrix
            nXMatrix1 = theSession.ActiveSketch.Orientation
% d) c! J6 y' N& J5 f" `: Z# A            Dim arc As Arc
% h3 d% p" g& z4 M% e8 a            arc = workPart.Curves.CreateArc(Point_O, nXMatrix1, r1, -90 * DtoR - alf, -90 * DtoR + alf)
            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)
) r% O5 ]! B1 d" S; V
            arc = workPart.Curves.CreateArc(Point_O2, nXMatrix1, r2, -90 * DtoR + alf, -90 * DtoR + alf + Beta)
2 U7 S9 W5 p7 D2 [! T( b            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)

            arc = workPart.Curves.CreateArc(point_O2_neg, nXMatrix1, r2, -90 * DtoR - alf - Beta, -90 * DtoR - alf)
            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)

& B8 m& M0 J5 j            arc = workPart.Curves.CreateArc(Point_O3, nXMatrix1, r3, 90 * DtoR + alf + Beta - Gama, 90 * DtoR + alf + Beta)
            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)

            arc = workPart.Curves.CreateArc(point_O3_neg, nXMatrix1, r3, 90 * DtoR - alf - Beta, 90 * DtoR - alf - Beta + Gama)
( M" e2 Y: c7 Z. P4 \& d            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)

            Dim line1 As Line
+ Y) S2 ^3 y; S' O
            line1 = workPart.Curves.CreateLine(Point_B, Point_C)
            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
" X1 E; P7 n$ n4 N! g: O            line1 = workPart.Curves.CreateLine(Point_B_neg, Point_C_neg)
6 Y. ^, P9 d. N$ L2 s6 _! U6 t            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
9 F) W* f/ t& H( z9 e
            line1 = workPart.Curves.CreateLine(Point_D, Point_E)
            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
* W: H! \& c: i+ E6 G; {            line1 = workPart.Curves.CreateLine(Point_D_neg, Point_E_neg)
            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)

            line1 = workPart.Curves.CreateLine(Point_E, Point_cut)
            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
" m$ c* c6 r% |+ z' `; d" g            line1 = workPart.Curves.CreateLine(Point_E_neg, Point_cut_neg)
* ]1 `! o" Y3 w' a% L6 c            theSession.ActiveSketch.AddGeometry(line1, Sketch.InferConstraintsOption.InferNoConstraints)
3 u# w  i6 ^* K& ]' u
' r6 a/ G0 Q9 Y- N            Dim Point_center As Point3d = New Point3d(0, 0, 0)
6 C# p8 i: k4 H* d            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)

; X( G! y! A4 Z5 k, U% D9 ~: d/ c            theSession.ActiveSketch.Update()
            theSession.ActiveSketch.Deactivate(Sketch.ViewReorient.False, Sketch.UpdateLevel.Model)

            sketchInPlaceBuilder1 = workPart.Sketches.CreateNewSketchInPlaceBuilder(nullSketch)
: F7 O, A  g( G8 w  C8 o! M3 W            Dim Circle_sketch As Sketch
            Circle_sketch = sketchInPlaceBuilder1.Commit()
+ l, ]) U# A; P: v" E            Circle_sketch.SetName("Sketch_Circle")
            Circle_sketch.Activate(Sketch.ViewReorient.False)
) A% q8 D' C3 f2 U& C  B            arc = workPart.Curves.CreateArc(Point_center, nXMatrix1, da / 2, 0, 360 * DtoR)
% S2 p; @; |$ F! z6 ~            theSession.ActiveSketch.AddGeometry(arc, Sketch.InferConstraintsOption.InferNoConstraints)
" J0 {1 [- k! a5 O8 }/ e            theSession.ActiveSketch.Update()
            theSession.ActiveSketch.Deactivate(Sketch.ViewReorient.False, Sketch.UpdateLevel.Model)

# O0 }& H) Q1 a% c6 P' n            sketchInPlaceBuilder1.Destroy()

  ^& E3 X; t9 ^/ r- v/ M7 ?            Dim nullFeatures_Feature As Features.Feature = Nothing
: S: |1 I% L5 U( l            Dim nullNXObject As NXObject = Nothing
- Y+ F  K# [2 r6 j4 A  V            Dim nullPoint As Point = Nothing
9 r9 W2 p# g+ j5 F& Q
4 `/ U% }$ F7 b# o            Dim extrudeBuilder1 As Features.ExtrudeBuilder
            extrudeBuilder1 = workPart.Features.CreateExtrudeBuilder(nullFeatures_Feature)
4 {* H7 N, N& a* H6 H  z) m            extrudeBuilder1.Limits.StartExtend.Value.RightHandSide = "0"
            extrudeBuilder1.Limits.EndExtend.Value.RightHandSide = "5"
7 F) z  O+ k" k( f/ h# ~3 c0 N! K
' r9 W4 c! l/ H            Dim targetBodies1(0) As Body
            Dim nullBody As Body = Nothing
  m; ~4 ]4 |" D' _# \            targetBodies1(0) = nullBody
& U# U) s# H% ?; x' a            extrudeBuilder1.BooleanOperation.SetTargetBodies(targetBodies1)
' r4 m  p, S4 \            extrudeBuilder1.BooleanOperation.Type = GeometricUtilities.BooleanOperation.BooleanType.Create

            Dim section2 As Section
            section2 = workPart.Sections.CreateSection(0.02413, 0.0254, 0.5)
2 w: f" z- S; B            extrudeBuilder1.Section = section2
            Dim features2(0) As Features.Feature
            Dim sketchFeature2 As Features.SketchFeature = Circle_sketch.Feature
            features2(0) = sketchFeature2
! u. v+ ]. ~$ Q& L. H# u            Dim curveFeatureRule2 As CurveFeatureRule
" w+ J  i5 _# Z3 L, j6 |3 l* j            curveFeatureRule2 = workPart.ScRuleFactory.CreateRuleCurveFeature(features2)
            Dim rules2(0) As SelectionIntentRule
7 C  c0 q3 l3 a3 }& e            rules2(0) = curveFeatureRule2
            Dim sketch2 As Sketch = Circle_sketch
8 J$ H( x5 [5 i) V            Dim helpPoint2 As Point3d = New Point3d(0, 0, 0)
            section2.AddToSection(rules2, Circle_sketch.GetAllGeometry(0), nullNXObject, nullNXObject, helpPoint2, Section.Mode.Create, False)

; B& B4 E5 D. p* N7 m% W            Dim direction2 As Direction
            direction2 = workPart.Directions.CreateDirection(sketch2, Sense.Forward, SmartObject.UpdateOption.WithinModeling)
* ?2 G' @5 f6 A% ]9 w) Z! b            extrudeBuilder1.Direction = direction2

            Dim ExtrudeFeature As Features.Feature
1 \5 ^+ f5 R3 N5 N3 d            ExtrudeFeature = extrudeBuilder1.CommitFeature()
            ExtrudeFeature.SetName("Circle")

            extrudeBuilder1.Destroy()

# X, v; j6 e, F9 `# O            extrudeBuilder1 = workPart.Features.CreateExtrudeBuilder(nullFeatures_Feature)
4 x5 a: z, Z3 U! a            extrudeBuilder1.Limits.StartExtend.Value.RightHandSide = "0"
! E+ }2 X6 r& x2 Z- s4 ~; y            extrudeBuilder1.Limits.EndExtend.Value.RightHandSide = "5"
. R% p& d; d# u$ s- i
            Dim CircleBody As Features.BodyFeature = ExtrudeFeature
7 p; T9 T+ Y& k' _' [- I            Dim body1() As Body = CircleBody.GetBodies()
6 f+ ^4 u% [6 v$ M
            targetBodies1(0) = body1(0)
            extrudeBuilder1.BooleanOperation.SetTargetBodies(targetBodies1)
            extrudeBuilder1.BooleanOperation.Type = GeometricUtilities.BooleanOperation.BooleanType.Create

: L. r6 [# |8 W, U5 m            section2 = workPart.Sections.CreateSection(0.02413, 0.0254, 0.5)
            extrudeBuilder1.Section = section2
* _: M+ ~; j& m& g5 X# M* q9 v. {            sketchFeature2 = Cut_sketch.Feature
2 g* ^" K8 H  ~            features2(0) = sketchFeature2
2 ^, l. i& [$ ?# y1 U  T( C            curveFeatureRule2 = workPart.ScRuleFactory.CreateRuleCurveFeature(features2)
9 M5 G* }) c9 K, M9 F! ?            rules2(0) = curveFeatureRule2
% i- h$ P+ D- d1 ^* Y            sketch2 = Cut_sketch
            section2.AddToSection(rules2, Circle_sketch.GetAllGeometry(0), nullNXObject, nullNXObject, helpPoint2, Section.Mode.Create, False)

3 d( C9 _& h: |5 U6 L            direction2 = workPart.Directions.CreateDirection(sketch2, Sense.Forward, SmartObject.UpdateOption.WithinModeling)
            extrudeBuilder1.Direction = direction2

            Dim CutFeature As Features.Feature
            CutFeature = extrudeBuilder1.CommitFeature()
& P& [  M7 J6 A* }8 _/ k            CutFeature.SetName("Cut")
: ~6 j% Q* `; _6 _1 U
            extrudeBuilder1.Destroy()

            Dim geomcopyBuilder1 As Features.GeomcopyBuilder
  \) m( w6 U6 R7 d+ B            geomcopyBuilder1 = workPart.Features.CreateGeomcopyBuilder(nullFeatures_Feature)
            geomcopyBuilder1.Type = Features.GeomcopyBuilder.TransformTypes.Rotation

            geomcopyBuilder1.RotateDistance.RightHandSide = 0
& s6 q8 G# t! i            geomcopyBuilder1.RotateAngle.RightHandSide = 360 / Z
            geomcopyBuilder1.NumberOfCopies.RightHandSide = Z
            Dim datumAxis1 As DatumAxis = CType(workPart.Datums.FindObject("DATUM_CSYS(0) Z axis"), DatumAxis)

$ x8 D+ y; `- O4 P( a: c- Y! x            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)
  h5 O/ b8 W4 u% {. h! e# l
            geomcopyBuilder1.RotationAxis = axis1

5 |6 c7 f) d7 O- V; s            Dim CutBody As Features.BodyFeature = CutFeature
. j) `- c7 x% H- I' o2 s3 u            body1 = CutBody.GetBodies()
" Q" W; o; E# Q: p+ f. s6 e/ Z
            Dim added1 As Boolean
/ T3 B0 U2 A0 z" P            added1 = geomcopyBuilder1.GeometryToInstance.Add(body1(0))
            Dim GeomCopyFeature As Features.Feature
3 {0 j. q1 Z) }# Q! v3 M            GeomCopyFeature = geomcopyBuilder1.CommitFeature()
9 Q) U, y& v: I$ b* i& s6 `2 v: ~
' c8 R) s) z: d% v            Dim nullFeatures_BooleanFeature As Features.BooleanFeature = Nothing

/ K& M6 U- C0 Q% M9 b            Dim booleanBuilder1 As Features.BooleanBuilder
% c( w! _2 x- z" a, y  q% k            booleanBuilder1 = workPart.Features.CreateBooleanBuilderUsingCollector(nullFeatures_BooleanFeature)

            booleanBuilder1.Operation = Features.Feature.BooleanType.Subtract
            body1 = CircleBody.GetBodies()

: u  N2 ~& q1 N1 C% ?( V: L            Dim added2 As Boolean
+ E/ v" Q* h" U/ V+ }            added2 = booleanBuilder1.Targets.Add(body1(0))

            Dim features1(0) As Features.Feature
: t+ z+ v* |' e            Dim geomcopy1 As Features.Geomcopy = GeomCopyFeature
4 H9 p: g/ t! ]" s* p
            features1(0) = geomcopy1
2 x# c& J1 K8 M2 G# b            Dim bodyFeatureRule1 As BodyFeatureRule
% m6 B% L( f9 [2 h! N% c& @0 [            bodyFeatureRule1 = workPart.ScRuleFactory.CreateRuleBodyFeature(features1)

            Dim rules4(0) As SelectionIntentRule
            rules4(0) = bodyFeatureRule1
. n/ e! ?( P  q; p            Dim scCollector2 As ScCollector
            scCollector2 = workPart.ScCollectors.CreateCollector()
% V- k5 x! ^( g1 i            scCollector2.ReplaceRules(rules4, False)
. Y3 G) u4 ^, r# B
; R0 h  u$ Q# a/ z5 {' U" t            booleanBuilder1.ToolBodyCollector = scCollector2
            Dim nXObject1 As NXObject
1 J; S8 h# }' ?7 F! b7 {7 k            nXObject1 = booleanBuilder1.Commit()
. U" C* K0 q( ^9 p5 d! ~  ]% L
            booleanBuilder1.Destroy()
5 h( e- P% ^# @: U
. {4 O3 h* _$ D7 t7 F) w# l6 }
            Dim objects2(0) As DisplayableObject
% l# i3 ?8 X5 b/ h4 y            objects2(0) = CutBody.GetBodies(0)
            theSession.DisplayManager.BlankObjects(objects2)
        Catch ex As Exception
            errorCode = 1
- ?  v: v8 v& c- Y$ z            theUI.NXMessageBox.Show("Block Styler", NXMessageBox.DialogType.Error, ex.ToString)
  W9 `: @$ f  T" N% z1 x. N
        End Try
: S; o! j. E2 o  L        CreateChainGear = errorCode
    End Function
' \  h- @% a$ o8 i0 v1 h9 z   
4 C# A+ o/ E6 N$ q/ o% ^8 n; Q( zEnd Class[/code]