I've been creating my body/work grid in modeling and editing to fit the job, it's very time consuming. I pretty much just import a part with my grid in it then alter it. I've tried to record a journal to do it ans it does work if I leave my WCS at absolute, but if I move/rotate it to another location it doesn't give me what I want
I once worked at a place that had a GRIP called Grid100 which I believe was part of the old GM toolkit. It was a nice little app, but don't have it here nor do we have a GRIP license here, it's $8000 to add it to our license.
I re-recorded my journal this morning.
' NX 8.5.3.3
' Journal created by Rob on Thu Apr 24 09:19:07 2014 Eastern Daylight Time
'
Option Strict Off
Imports System
Imports NXOpen
Module NXJournal
Sub Main (ByVal args() As String)
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim displayPart As Part = theSession.Parts.Display
' ----------------------------------------------
' Menu: Insert->Curve->Lines and Arcs->Line Point-XYZ...
' ----------------------------------------------
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Start")
Dim nullFeatures_AssociativeLine As Features.AssociativeLine = Nothing
If Not workPart.Preferences.Modeling.GetHistoryMode Then
Throw(New Exception("Create or edit of a Feature was recorded in History Mode but playback is in History-Free Mode."))
End If
Dim associativeLineBuilder1 As Features.AssociativeLineBuilder
associativeLineBuilder1 = workPart.BaseFeatures.CreateAssociativeLineBuilder(nullFeatures_AssociativeLine)
Dim origin1 As Point3d = New Point3d(0.0, 0.0, 0.0)
Dim normal1 As Vector3d = New Vector3d(0.0, 0.0, 1.0)
Dim plane1 As Plane
plane1 = workPart.Planes.CreatePlane(origin1, normal1, SmartObject.UpdateOption.WithinModeling)
Dim unit1 As Unit
unit1 = associativeLineBuilder1.Limits.StartLimit.Distance.Units
Dim expression1 As Expression
expression1 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim expression2 As Expression
expression2 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
associativeLineBuilder1.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder1.StartPointOptions = Features.AssociativeLineBuilder.StartOption.Point
associativeLineBuilder1.StartAngle.RightHandSide = "0"
associativeLineBuilder1.EndPointOptions = Features.AssociativeLineBuilder.EndOption.AlongZc
associativeLineBuilder1.EndAngle.RightHandSide = "0"
associativeLineBuilder1.Limits.StartLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.AtPoint
associativeLineBuilder1.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder1.Limits.EndLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.Value
associativeLineBuilder1.Limits.EndLimit.Distance.RightHandSide = "1351.59621951567"
associativeLineBuilder1.StartPointOptions = Features.AssociativeLineBuilder.StartOption.Inferred
associativeLineBuilder1.EndPointOptions = Features.AssociativeLineBuilder.EndOption.Inferred
associativeLineBuilder1.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder1.Limits.EndLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.AtPoint
associativeLineBuilder1.Limits.EndLimit.Distance.RightHandSide = "0"
associativeLineBuilder1.StartPointOptions = Features.AssociativeLineBuilder.StartOption.Point
associativeLineBuilder1.Limits.FullCircle = False
theSession.SetUndoMarkName(markId1, "Line Point-XYZ Dialog")
associativeLineBuilder1.Limits.FullCircle = False
' ----------------------------------------------
' Menu: View->Operation->Set View to WCS
' ----------------------------------------------
Dim expression3 As Expression
expression3 = workPart.Expressions.CreateSystemExpressionWithUnits("-50", unit1)
Dim scalar1 As Scalar
scalar1 = workPart.Scalars.CreateScalarExpression(expression3, Scalar.DimensionalityType.Length, SmartObject.UpdateOption.WithinModeling)
Dim expression4 As Expression
expression4 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim scalar2 As Scalar
scalar2 = workPart.Scalars.CreateScalarExpression(expression4, Scalar.DimensionalityType.Length, SmartObject.UpdateOption.WithinModeling)
Dim expression5 As Expression
expression5 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim scalar3 As Scalar
scalar3 = workPart.Scalars.CreateScalarExpression(expression5, Scalar.DimensionalityType.Length, SmartObject.UpdateOption.WithinModeling)
Dim origin2 As Point3d = New Point3d(0.0, 0.0, 0.0)
Dim xDirection1 As Vector3d = New Vector3d(1.0, 0.0, 0.0)
Dim yDirection1 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
Dim xform1 As Xform
xform1 = workPart.Xforms.CreateXform(origin2, xDirection1, yDirection1, SmartObject.UpdateOption.WithinModeling, 1.0)
Dim cartesianCoordinateSystem1 As CartesianCoordinateSystem
cartesianCoordinateSystem1 = workPart.CoordinateSystems.CreateCoordinateSystem(xform1, SmartObject.UpdateOption.WithinModeling)
Dim point1 As Point
point1 = workPart.Points.CreatePoint(cartesianCoordinateSystem1, scalar1, scalar2, scalar3, SmartObject.UpdateOption.WithinModeling)
associativeLineBuilder1.StartPoint.Value = point1
associativeLineBuilder1.Limits.FullCircle = False
associativeLineBuilder1.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder1.EndPointOptions = Features.AssociativeLineBuilder.EndOption.AlongXc
associativeLineBuilder1.Limits.EndLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.Value
associativeLineBuilder1.Limits.EndLimit.Distance.RightHandSide = "1349.17564833903"
Dim markId2 As Session.UndoMarkId
markId2 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Line Point-XYZ")
associativeLineBuilder1.Associative = True
Dim nXObject1 As NXObject
nXObject1 = associativeLineBuilder1.Commit()
theSession.DeleteUndoMark(markId2, Nothing)
Dim markId3 As Session.UndoMarkId
markId3 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Line Point-XYZ")
theSession.SetUndoMarkName(markId1, "Line Point-XYZ")
theSession.SetUndoMarkVisibility(markId1, Nothing, Session.MarkVisibility.Visible)
Dim expression6 As Expression = associativeLineBuilder1.Limits.EndLimit.Distance
associativeLineBuilder1.Destroy()
Try
' Expression is still in use.
workPart.Expressions.Delete(expression2)
Catch ex As NXException
ex.AssertErrorCode(1050029)
End Try
Try
' Expression is still in use.
workPart.Expressions.Delete(expression1)
Catch ex As NXException
ex.AssertErrorCode(1050029)
End Try
plane1.DestroyPlane()
theSession.DeleteUndoMark(markId3, Nothing)
Dim markId4 As Session.UndoMarkId
markId4 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Start")
Dim associativeLineBuilder2 As Features.AssociativeLineBuilder
associativeLineBuilder2 = workPart.BaseFeatures.CreateAssociativeLineBuilder(nullFeatures_AssociativeLine)
Dim origin3 As Point3d = New Point3d(0.0, 0.0, 0.0)
Dim normal2 As Vector3d = New Vector3d(0.0, 0.0, 1.0)
Dim plane2 As Plane
plane2 = workPart.Planes.CreatePlane(origin3, normal2, SmartObject.UpdateOption.WithinModeling)
Dim expression7 As Expression
expression7 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim expression8 As Expression
expression8 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
associativeLineBuilder2.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder2.StartPointOptions = Features.AssociativeLineBuilder.StartOption.Point
associativeLineBuilder2.StartAngle.RightHandSide = "0"
associativeLineBuilder2.EndPointOptions = Features.AssociativeLineBuilder.EndOption.AlongXc
associativeLineBuilder2.EndAngle.RightHandSide = "0"
associativeLineBuilder2.Limits.StartLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.AtPoint
associativeLineBuilder2.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder2.Limits.EndLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.Value
associativeLineBuilder2.Limits.EndLimit.Distance.RightHandSide = "1349.17564833903"
associativeLineBuilder2.StartPointOptions = Features.AssociativeLineBuilder.StartOption.Inferred
associativeLineBuilder2.EndPointOptions = Features.AssociativeLineBuilder.EndOption.Inferred
associativeLineBuilder2.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder2.Limits.EndLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.AtPoint
associativeLineBuilder2.Limits.EndLimit.Distance.RightHandSide = "0"
associativeLineBuilder2.StartPointOptions = Features.AssociativeLineBuilder.StartOption.Point
associativeLineBuilder2.Limits.FullCircle = False
theSession.SetUndoMarkName(markId4, "Line Point-XYZ Dialog")
associativeLineBuilder2.Limits.FullCircle = False
Dim expression9 As Expression
expression9 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim scalar4 As Scalar
scalar4 = workPart.Scalars.CreateScalarExpression(expression9, Scalar.DimensionalityType.Length, SmartObject.UpdateOption.WithinModeling)
Dim expression10 As Expression
expression10 = workPart.Expressions.CreateSystemExpressionWithUnits("-50", unit1)
Dim scalar5 As Scalar
scalar5 = workPart.Scalars.CreateScalarExpression(expression10, Scalar.DimensionalityType.Length, SmartObject.UpdateOption.WithinModeling)
Dim expression11 As Expression
expression11 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim scalar6 As Scalar
scalar6 = workPart.Scalars.CreateScalarExpression(expression11, Scalar.DimensionalityType.Length, SmartObject.UpdateOption.WithinModeling)
Dim origin4 As Point3d = New Point3d(0.0, 0.0, 0.0)
Dim xDirection2 As Vector3d = New Vector3d(1.0, 0.0, 0.0)
Dim yDirection2 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
Dim xform2 As Xform
xform2 = workPart.Xforms.CreateXform(origin4, xDirection2, yDirection2, SmartObject.UpdateOption.WithinModeling, 1.0)
Dim cartesianCoordinateSystem2 As CartesianCoordinateSystem
cartesianCoordinateSystem2 = workPart.CoordinateSystems.CreateCoordinateSystem(xform2, SmartObject.UpdateOption.WithinModeling)
Dim point2 As Point
point2 = workPart.Points.CreatePoint(cartesianCoordinateSystem2, scalar4, scalar5, scalar6, SmartObject.UpdateOption.WithinModeling)
associativeLineBuilder2.StartPoint.Value = point2
associativeLineBuilder2.Limits.FullCircle = False
associativeLineBuilder2.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder2.EndPointOptions = Features.AssociativeLineBuilder.EndOption.AlongYc
associativeLineBuilder2.Limits.EndLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.Value
associativeLineBuilder2.Limits.EndLimit.Distance.RightHandSide = "1148.07549278903"
theSession.SetUndoMarkVisibility(markId4, Nothing, Session.MarkVisibility.Visible)
Dim markId5 As Session.UndoMarkId
markId5 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Line Point-XYZ")
associativeLineBuilder2.Associative = True
Dim nXObject2 As NXObject
nXObject2 = associativeLineBuilder2.Commit()
theSession.DeleteUndoMark(markId5, Nothing)
Dim markId6 As Session.UndoMarkId
markId6 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Line Point-XYZ")
theSession.SetUndoMarkName(markId4, "Line Point-XYZ")
theSession.SetUndoMarkVisibility(markId4, Nothing, Session.MarkVisibility.Visible)
Dim expression12 As Expression = associativeLineBuilder2.Limits.EndLimit.Distance
associativeLineBuilder2.Destroy()
Try
' Expression is still in use.
workPart.Expressions.Delete(expression8)
Catch ex As NXException
ex.AssertErrorCode(1050029)
End Try
Try
' Expression is still in use.
workPart.Expressions.Delete(expression7)
Catch ex As NXException
ex.AssertErrorCode(1050029)
End Try
plane2.DestroyPlane()
theSession.DeleteUndoMark(markId6, Nothing)
Dim markId7 As Session.UndoMarkId
markId7 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Start")
Dim associativeLineBuilder3 As Features.AssociativeLineBuilder
associativeLineBuilder3 = workPart.BaseFeatures.CreateAssociativeLineBuilder(nullFeatures_AssociativeLine)
Dim origin5 As Point3d = New Point3d(0.0, 0.0, 0.0)
Dim normal3 As Vector3d = New Vector3d(0.0, 0.0, 1.0)
Dim plane3 As Plane
plane3 = workPart.Planes.CreatePlane(origin5, normal3, SmartObject.UpdateOption.WithinModeling)
Dim expression13 As Expression
expression13 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim expression14 As Expression
expression14 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
associativeLineBuilder3.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder3.StartPointOptions = Features.AssociativeLineBuilder.StartOption.Point
associativeLineBuilder3.StartAngle.RightHandSide = "0"
associativeLineBuilder3.EndPointOptions = Features.AssociativeLineBuilder.EndOption.AlongYc
associativeLineBuilder3.EndAngle.RightHandSide = "0"
associativeLineBuilder3.Limits.StartLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.AtPoint
associativeLineBuilder3.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder3.Limits.EndLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.Value
associativeLineBuilder3.Limits.EndLimit.Distance.RightHandSide = "1148.07549278903"
associativeLineBuilder3.StartPointOptions = Features.AssociativeLineBuilder.StartOption.Inferred
associativeLineBuilder3.EndPointOptions = Features.AssociativeLineBuilder.EndOption.Inferred
associativeLineBuilder3.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder3.Limits.EndLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.AtPoint
associativeLineBuilder3.Limits.EndLimit.Distance.RightHandSide = "0"
associativeLineBuilder3.StartPointOptions = Features.AssociativeLineBuilder.StartOption.Point
associativeLineBuilder3.Limits.FullCircle = False
theSession.SetUndoMarkName(markId7, "Line Point-XYZ Dialog")
associativeLineBuilder3.Limits.FullCircle = False
' ----------------------------------------------
' Dialog Begin Line Point-XYZ
' ----------------------------------------------
Dim rotMatrix1 As Matrix3x3
rotMatrix1.Xx = 0.90287706215106
rotMatrix1.Xy = 0.413293841188631
rotMatrix1.Xz = -0.118326714976022
rotMatrix1.Yx = 0.0853895514418699
rotMatrix1.Yy = 0.0973500549583426
rotMatrix1.Yz = 0.991580350402409
rotMatrix1.Zx = 0.421333164070937
rotMatrix1.Zy = -0.905379018773438
rotMatrix1.Zz = 0.052604155908248
Dim translation1 As Point3d = New Point3d(-433.649242237746, 376.550089378625, 574.262390195783)
workPart.ModelingViews.WorkView.SetRotationTranslationScale(rotMatrix1, translation1, 0.0948043101910464)
Dim scaleAboutPoint1 As Point3d = New Point3d(-457.697193083562, 736.78084740283, 0.0)
Dim viewCenter1 As Point3d = New Point3d(457.697193083589, -736.780847402829, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint1, viewCenter1)
Dim expression15 As Expression
expression15 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim scalar7 As Scalar
scalar7 = workPart.Scalars.CreateScalarExpression(expression15, Scalar.DimensionalityType.Length, SmartObject.UpdateOption.WithinModeling)
Dim expression16 As Expression
expression16 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim scalar8 As Scalar
scalar8 = workPart.Scalars.CreateScalarExpression(expression16, Scalar.DimensionalityType.Length, SmartObject.UpdateOption.WithinModeling)
Dim expression17 As Expression
expression17 = workPart.Expressions.CreateSystemExpressionWithUnits("-50", unit1)
Dim scalar9 As Scalar
scalar9 = workPart.Scalars.CreateScalarExpression(expression17, Scalar.DimensionalityType.Length, SmartObject.UpdateOption.WithinModeling)
Dim origin6 As Point3d = New Point3d(0.0, 0.0, 0.0)
Dim xDirection3 As Vector3d = New Vector3d(1.0, 0.0, 0.0)
Dim yDirection3 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
Dim xform3 As Xform
xform3 = workPart.Xforms.CreateXform(origin6, xDirection3, yDirection3, SmartObject.UpdateOption.WithinModeling, 1.0)
Dim cartesianCoordinateSystem3 As CartesianCoordinateSystem
cartesianCoordinateSystem3 = workPart.CoordinateSystems.CreateCoordinateSystem(xform3, SmartObject.UpdateOption.WithinModeling)
Dim point3 As Point
point3 = workPart.Points.CreatePoint(cartesianCoordinateSystem3, scalar7, scalar8, scalar9, SmartObject.UpdateOption.WithinModeling)
associativeLineBuilder3.StartPoint.Value = point3
associativeLineBuilder3.Limits.FullCircle = False
Dim scaleAboutPoint2 As Point3d = New Point3d(-354.994408294077, 337.133054417659, 0.0)
Dim viewCenter2 As Point3d = New Point3d(354.994408294104, -337.133054417658, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint2, viewCenter2)
Dim scaleAboutPoint3 As Point3d = New Point3d(-443.743010367599, 421.416318022074, 0.0)
Dim viewCenter3 As Point3d = New Point3d(443.743010367626, -421.416318022073, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint3, viewCenter3)
Dim scaleAboutPoint4 As Point3d = New Point3d(-554.678762959503, 526.770397527592, 0.0)
Dim viewCenter4 As Point3d = New Point3d(554.67876295953, -526.77039752759, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint4, viewCenter4)
Dim scaleAboutPoint5 As Point3d = New Point3d(-693.348453699381, 658.46299690949, 0.0)
Dim viewCenter5 As Point3d = New Point3d(693.348453699409, -658.462996909489, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint5, viewCenter5)
Dim scaleAboutPoint6 As Point3d = New Point3d(-866.68556712423, 823.078746136863, 0.0)
Dim viewCenter6 As Point3d = New Point3d(866.685567124258, -823.078746136861, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint6, viewCenter6)
Dim scaleAboutPoint7 As Point3d = New Point3d(-693.348453699381, 658.46299690949, 0.0)
Dim viewCenter7 As Point3d = New Point3d(693.348453699409, -658.462996909488, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint7, viewCenter7)
Dim scaleAboutPoint8 As Point3d = New Point3d(-554.678762959503, 526.770397527592, 0.0)
Dim viewCenter8 As Point3d = New Point3d(554.67876295953, -526.77039752759, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint8, viewCenter8)
Dim scaleAboutPoint9 As Point3d = New Point3d(-443.7430103676, 421.416318022074, 0.0)
Dim viewCenter9 As Point3d = New Point3d(443.743010367627, -421.416318022072, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint9, viewCenter9)
Dim scaleAboutPoint10 As Point3d = New Point3d(-354.994408294077, 337.133054417659, 0.0)
Dim viewCenter10 As Point3d = New Point3d(354.994408294104, -337.133054417658, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint10, viewCenter10)
Dim scaleAboutPoint11 As Point3d = New Point3d(-283.995526635259, 269.706443534128, 0.0)
Dim viewCenter11 As Point3d = New Point3d(283.995526635286, -269.706443534126, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint11, viewCenter11)
Dim scaleAboutPoint12 As Point3d = New Point3d(-227.196421308204, 215.765154827302, 0.0)
Dim viewCenter12 As Point3d = New Point3d(227.196421308232, -215.765154827301, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint12, viewCenter12)
Dim scaleAboutPoint13 As Point3d = New Point3d(-181.757137046561, 172.612123861842, 0.0)
Dim viewCenter13 As Point3d = New Point3d(181.757137046588, -172.61212386184, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint13, viewCenter13)
Dim scaleAboutPoint14 As Point3d = New Point3d(-145.405709637246, 138.089699089474, 0.0)
Dim viewCenter14 As Point3d = New Point3d(145.405709637273, -138.089699089472, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint14, viewCenter14)
Dim scaleAboutPoint15 As Point3d = New Point3d(-116.324567709794, 110.471759271579, 0.0)
Dim viewCenter15 As Point3d = New Point3d(116.324567709821, -110.471759271578, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint15, viewCenter15)
Dim scaleAboutPoint16 As Point3d = New Point3d(-97.741900918416, 77.8423522284507, 0.0)
Dim viewCenter16 As Point3d = New Point3d(97.7419009184431, -77.8423522284492, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint16, viewCenter16)
Dim scaleAboutPoint17 As Point3d = New Point3d(-121.445775093245, 94.3765360664484, 0.0)
Dim viewCenter17 As Point3d = New Point3d(121.445775093272, -94.376536066447, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint17, viewCenter17)
Dim scaleAboutPoint18 As Point3d = New Point3d(-151.807218866559, 117.97067008306, 0.0)
Dim viewCenter18 As Point3d = New Point3d(151.807218866586, -117.970670083059, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint18, viewCenter18)
Dim scaleAboutPoint19 As Point3d = New Point3d(-189.759023583202, 147.463337603825, 0.0)
Dim viewCenter19 As Point3d = New Point3d(189.75902358323, -147.463337603824, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint19, viewCenter19)
Dim scaleAboutPoint20 As Point3d = New Point3d(-237.198779479006, 184.329172004781, 0.0)
Dim viewCenter20 As Point3d = New Point3d(237.198779479034, -184.32917200478, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint20, viewCenter20)
Dim scaleAboutPoint21 As Point3d = New Point3d(-189.759023583202, 147.463337603825, 0.0)
Dim viewCenter21 As Point3d = New Point3d(189.75902358323, -147.463337603824, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint21, viewCenter21)
Dim scaleAboutPoint22 As Point3d = New Point3d(-151.807218866559, 117.97067008306, 0.0)
Dim viewCenter22 As Point3d = New Point3d(151.807218866586, -117.970670083059, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.5625, scaleAboutPoint22, viewCenter22)
Dim scaleAboutPoint23 As Point3d = New Point3d(-97.1566200745929, 75.501228853159, 0.0)
Dim viewCenter23 As Point3d = New Point3d(97.1566200746202, -75.5012288531574, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint23, viewCenter23)
Dim scaleAboutPoint24 As Point3d = New Point3d(-77.7252960596716, 60.4009830825273, 0.0)
Dim viewCenter24 As Point3d = New Point3d(77.7252960596988, -60.4009830825257, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint24, viewCenter24)
Dim scaleAboutPoint25 As Point3d = New Point3d(-62.1802368477346, 48.320786466022, 0.0)
Dim viewCenter25 As Point3d = New Point3d(62.1802368477618, -48.3207864660204, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint25, viewCenter25)
Dim scaleAboutPoint26 As Point3d = New Point3d(-49.7441894781849, 38.6566291728178, 0.0)
Dim viewCenter26 As Point3d = New Point3d(49.7441894782122, -38.6566291728162, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint26, viewCenter26)
Dim scaleAboutPoint27 As Point3d = New Point3d(-39.7953515825452, 30.9253033382544, 0.0)
Dim viewCenter27 As Point3d = New Point3d(39.7953515825725, -30.9253033382528, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint27, viewCenter27)
Dim scaleAboutPoint28 As Point3d = New Point3d(-31.8362812660334, 24.7402426706036, 0.0)
Dim viewCenter28 As Point3d = New Point3d(31.8362812660607, -24.7402426706021, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.5625, scaleAboutPoint28, viewCenter28)
Dim scaleAboutPoint29 As Point3d = New Point3d(-20.3752200102565, 15.8337553091866, 0.0)
Dim viewCenter29 As Point3d = New Point3d(20.3752200102838, -15.833755309185, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint29, viewCenter29)
Dim scaleAboutPoint30 As Point3d = New Point3d(-16.3001760082025, 12.6670042473495, 0.0)
Dim viewCenter30 As Point3d = New Point3d(16.3001760082298, -12.6670042473479, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint30, viewCenter30)
Dim scaleAboutPoint31 As Point3d = New Point3d(-13.0401408065592, 10.1336033978797, 0.0)
Dim viewCenter31 As Point3d = New Point3d(13.0401408065865, -10.1336033978781, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint31, viewCenter31)
Dim scaleAboutPoint32 As Point3d = New Point3d(-12.176035090461, 18.0676649729632, 0.0)
Dim viewCenter32 As Point3d = New Point3d(12.1760350904883, -18.0676649729616, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint32, viewCenter32)
Dim scaleAboutPoint33 As Point3d = New Point3d(-15.2200438630797, 22.5845812162038, 0.0)
Dim viewCenter33 As Point3d = New Point3d(15.220043863107, -22.5845812162023, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint33, viewCenter33)
Dim scaleAboutPoint34 As Point3d = New Point3d(-19.025054828853, 28.2307265202546, 0.0)
Dim viewCenter34 As Point3d = New Point3d(19.0250548288803, -28.230726520253, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint34, viewCenter34)
Dim scaleAboutPoint35 As Point3d = New Point3d(-23.7813185360697, 35.288408150318, 0.0)
Dim viewCenter35 As Point3d = New Point3d(23.781318536097, -35.2884081503164, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint35, viewCenter35)
Dim scaleAboutPoint36 As Point3d = New Point3d(-29.7266481700905, 44.1105101878974, 0.0)
Dim viewCenter36 As Point3d = New Point3d(29.7266481701178, -44.1105101878957, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint36, viewCenter36)
Dim scaleAboutPoint37 As Point3d = New Point3d(-37.1583102126165, 55.1381377348715, 0.0)
Dim viewCenter37 As Point3d = New Point3d(37.1583102126438, -55.1381377348699, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint37, viewCenter37)
Dim scaleAboutPoint38 As Point3d = New Point3d(-46.4478877657741, 68.9226721685892, 0.0)
Dim viewCenter38 As Point3d = New Point3d(46.4478877658014, -68.9226721685875, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint38, viewCenter38)
Dim scaleAboutPoint39 As Point3d = New Point3d(-58.0598597072211, 86.1533402107362, 0.0)
Dim viewCenter39 As Point3d = New Point3d(58.0598597072483, -86.1533402107346, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint39, viewCenter39)
Dim scaleAboutPoint40 As Point3d = New Point3d(-72.5748246340299, 107.69167526342, 0.0)
Dim viewCenter40 As Point3d = New Point3d(72.5748246340568, -107.691675263418, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint40, viewCenter40)
Dim scaleAboutPoint41 As Point3d = New Point3d(-90.7185307925407, 134.614594079275, 0.0)
Dim viewCenter41 As Point3d = New Point3d(90.7185307925677, -134.614594079273, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint41, viewCenter41)
Dim scaleAboutPoint42 As Point3d = New Point3d(-72.5748246340299, 107.69167526342, 0.0)
Dim viewCenter42 As Point3d = New Point3d(72.5748246340568, -107.691675263419, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.5625, scaleAboutPoint42, viewCenter42)
Dim scaleAboutPoint43 As Point3d = New Point3d(-46.4478877657742, 68.9226721685891, 0.0)
Dim viewCenter43 As Point3d = New Point3d(46.4478877658013, -68.9226721685876, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint43, viewCenter43)
Dim scaleAboutPoint44 As Point3d = New Point3d(-37.1583102126166, 55.1381377348715, 0.0)
Dim viewCenter44 As Point3d = New Point3d(37.1583102126438, -55.1381377348699, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint44, viewCenter44)
Dim scaleAboutPoint45 As Point3d = New Point3d(-29.7266481700906, 44.1105101878974, 0.0)
Dim viewCenter45 As Point3d = New Point3d(29.7266481701178, -44.1105101878958, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint45, viewCenter45)
Dim scaleAboutPoint46 As Point3d = New Point3d(-23.7813185360697, 35.288408150318, 0.0)
Dim viewCenter46 As Point3d = New Point3d(23.7813185360969, -35.2884081503164, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint46, viewCenter46)
Dim scaleAboutPoint47 As Point3d = New Point3d(-19.0250548288531, 28.2307265202546, 0.0)
Dim viewCenter47 As Point3d = New Point3d(19.0250548288803, -28.230726520253, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint47, viewCenter47)
Dim scaleAboutPoint48 As Point3d = New Point3d(-15.2200438630797, 22.5845812162038, 0.0)
Dim viewCenter48 As Point3d = New Point3d(15.2200438631069, -22.5845812162022, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint48, viewCenter48)
Dim scaleAboutPoint49 As Point3d = New Point3d(-12.1760350904611, 18.0676649729632, 0.0)
Dim viewCenter49 As Point3d = New Point3d(12.1760350904883, -18.0676649729616, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint49, viewCenter49)
Dim scaleAboutPoint50 As Point3d = New Point3d(-9.74082807236612, 14.4541319783708, 0.0)
Dim viewCenter50 As Point3d = New Point3d(9.74082807239334, -14.4541319783691, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint50, viewCenter50)
Dim scaleAboutPoint51 As Point3d = New Point3d(-7.79266245789017, 11.5633055826968, 0.0)
Dim viewCenter51 As Point3d = New Point3d(7.7926624579174, -11.5633055826951, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint51, viewCenter51)
Dim scaleAboutPoint52 As Point3d = New Point3d(-6.23412996630941, 9.25064446615757, 0.0)
Dim viewCenter52 As Point3d = New Point3d(6.23412996633665, -9.25064446615595, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint52, viewCenter52)
Dim scaleAboutPoint53 As Point3d = New Point3d(-4.9873039730448, 7.40051557292622, 0.0)
Dim viewCenter53 As Point3d = New Point3d(4.98730397307204, -7.4005155729246, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint53, viewCenter53)
Dim scaleAboutPoint54 As Point3d = New Point3d(-3.98984317843311, 5.92041245834114, 0.0)
Dim viewCenter54 As Point3d = New Point3d(3.98984317846036, -5.92041245833952, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint54, viewCenter54)
Dim scaleAboutPoint55 As Point3d = New Point3d(-3.19187454274377, 4.73632996667307, 0.0)
Dim viewCenter55 As Point3d = New Point3d(3.19187454277101, -4.73632996667145, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint55, viewCenter55)
Dim scaleAboutPoint56 As Point3d = New Point3d(-2.55349963419229, 3.78906397333862, 0.0)
Dim viewCenter56 As Point3d = New Point3d(2.55349963421953, -3.789063973337, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint56, viewCenter56)
Dim scaleAboutPoint57 As Point3d = New Point3d(-2.04279970735111, 3.03125117867106, 0.0)
Dim viewCenter57 As Point3d = New Point3d(2.04279970737835, -3.03125117866944, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.5625, scaleAboutPoint57, viewCenter57)
Dim scaleAboutPoint58 As Point3d = New Point3d(-1.30739181269981, 1.94000075434977, 0.0)
Dim viewCenter58 As Point3d = New Point3d(1.30739181272705, -1.94000075434815, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint58, viewCenter58)
Dim scaleAboutPoint59 As Point3d = New Point3d(-1.04591345015712, 1.55200060347998, 0.0)
Dim viewCenter59 As Point3d = New Point3d(1.04591345018436, -1.55200060347836, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint59, viewCenter59)
Dim scaleAboutPoint60 As Point3d = New Point3d(-0.836730760122972, 1.24160048278414, 0.0)
Dim viewCenter60 As Point3d = New Point3d(0.836730760150214, -1.24160048278252, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.5625, scaleAboutPoint60, viewCenter60)
Dim scaleAboutPoint61 As Point3d = New Point3d(-0.535507686473799, 0.794624308982143, 0.0)
Dim viewCenter61 As Point3d = New Point3d(0.535507686501041, -0.794624308980523, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint61, viewCenter61)
Dim scaleAboutPoint62 As Point3d = New Point3d(-0.428406149176316, 0.635699447185877, 0.0)
Dim viewCenter62 As Point3d = New Point3d(0.428406149203555, -0.635699447184257, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint62, viewCenter62)
Dim scaleAboutPoint63 As Point3d = New Point3d(0.312321902326283, 0.619115983346266, 0.0)
Dim viewCenter63 As Point3d = New Point3d(-0.312321902299045, -0.619115983344646, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint63, viewCenter63)
Dim scaleAboutPoint64 As Point3d = New Point3d(0.390402377904449, 0.77389497918263, 0.0)
Dim viewCenter64 As Point3d = New Point3d(-0.390402377877211, -0.77389497918101, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint64, viewCenter64)
Dim scaleAboutPoint65 As Point3d = New Point3d(0.312321902326283, 0.619115983346266, 0.0)
Dim viewCenter65 As Point3d = New Point3d(-0.312321902299045, -0.619115983344646, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint65, viewCenter65)
Dim scaleAboutPoint66 As Point3d = New Point3d(0.24985752186375, 0.495292786677175, 0.0)
Dim viewCenter66 As Point3d = New Point3d(-0.249857521836511, -0.495292786675555, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint66, viewCenter66)
Dim scaleAboutPoint67 As Point3d = New Point3d(0.199886017493724, 0.396234229341902, 0.0)
Dim viewCenter67 As Point3d = New Point3d(-0.199886017466485, -0.396234229340282, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.5625, scaleAboutPoint67, viewCenter67)
Dim scaleAboutPoint68 As Point3d = New Point3d(0.127927051200886, 0.253589906779109, 0.0)
Dim viewCenter68 As Point3d = New Point3d(-0.127927051173648, -0.253589906777489, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint68, viewCenter68)
Dim scaleAboutPoint69 As Point3d = New Point3d(0.102341640963433, 0.202871925423449, 0.0)
Dim viewCenter69 As Point3d = New Point3d(-0.102341640936194, -0.202871925421829, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint69, viewCenter69)
Dim scaleAboutPoint70 As Point3d = New Point3d(0.0818733127734703, 0.162297540338921, 0.0)
Dim viewCenter70 As Point3d = New Point3d(-0.0818733127462316, -0.162297540337301, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint70, viewCenter70)
Dim scaleAboutPoint71 As Point3d = New Point3d(0.0654986502215, 0.129838032271299, 0.0)
Dim viewCenter71 As Point3d = New Point3d(-0.0654986501942613, -0.129838032269679, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.5625, scaleAboutPoint71, viewCenter71)
Dim scaleAboutPoint72 As Point3d = New Point3d(0.041919136146663, 0.083096340653923, 0.0)
Dim viewCenter72 As Point3d = New Point3d(-0.0419191361194244, -0.083096340652303, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint72, viewCenter72)
Dim scaleAboutPoint73 As Point3d = New Point3d(0.0335353089200544, 0.0664770725233006, 0.0)
Dim viewCenter73 As Point3d = New Point3d(-0.0335353088928157, -0.0664770725216806, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint73, viewCenter73)
Dim scaleAboutPoint74 As Point3d = New Point3d(0.0268282471387673, 0.0531816580188024, 0.0)
Dim viewCenter74 As Point3d = New Point3d(-0.0268282471115287, -0.0531816580171824, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint74, viewCenter74)
Dim scaleAboutPoint75 As Point3d = New Point3d(0.0214625977137377, 0.0425453264152039, 0.0)
Dim viewCenter75 As Point3d = New Point3d(-0.0214625976864991, -0.0425453264135839, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint75, viewCenter75)
Dim scaleAboutPoint76 As Point3d = New Point3d(0.017170078173714, 0.034036261132325, 0.0)
Dim viewCenter76 As Point3d = New Point3d(-0.0171700781464753, -0.0340362611307049, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint76, viewCenter76)
Dim scaleAboutPoint77 As Point3d = New Point3d(0.013736062541695, 0.0272290089060219, 0.0)
Dim viewCenter77 As Point3d = New Point3d(-0.0137360625144563, -0.0272290089044019, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint77, viewCenter77)
Dim scaleAboutPoint78 As Point3d = New Point3d(0.0109888500360799, 0.0217832071249797, 0.0)
Dim viewCenter78 As Point3d = New Point3d(-0.0109888500088413, -0.0217832071233597, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint78, viewCenter78)
Dim scaleAboutPoint79 As Point3d = New Point3d(0.00879108003158786, 0.0174265657001458, 0.0)
Dim viewCenter79 As Point3d = New Point3d(-0.00879108000434921, -0.0174265656985258, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint79, viewCenter79)
Dim scaleAboutPoint80 As Point3d = New Point3d(0.00703286402799424, 0.0139412525602789, 0.0)
Dim viewCenter80 As Point3d = New Point3d(-0.00703286400075558, -0.0139412525586588, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint80, viewCenter80)
Dim scaleAboutPoint81 As Point3d = New Point3d(0.00879108003158808, 0.0174265657001463, 0.0)
Dim viewCenter81 As Point3d = New Point3d(-0.00879108000434942, -0.0174265656985262, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint81, viewCenter81)
Dim scaleAboutPoint82 As Point3d = New Point3d(0.0109888500360802, 0.0217832071249801, 0.0)
Dim viewCenter82 As Point3d = New Point3d(-0.0109888500088415, -0.0217832071233601, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint82, viewCenter82)
Dim scaleAboutPoint83 As Point3d = New Point3d(0.0137360625416954, 0.0272290089060227, 0.0)
Dim viewCenter83 As Point3d = New Point3d(-0.0137360625144568, -0.0272290089044027, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint83, viewCenter83)
Dim scaleAboutPoint84 As Point3d = New Point3d(0.0171700781737144, 0.0340362611323258, 0.0)
Dim viewCenter84 As Point3d = New Point3d(-0.0171700781464757, -0.0340362611307058, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint84, viewCenter84)
Dim scaleAboutPoint85 As Point3d = New Point3d(0.0214625977137381, 0.0425453264152048, 0.0)
Dim viewCenter85 As Point3d = New Point3d(-0.0214625976864995, -0.0425453264135848, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint85, viewCenter85)
Dim scaleAboutPoint86 As Point3d = New Point3d(0.0268282471387677, 0.0531816580188033, 0.0)
Dim viewCenter86 As Point3d = New Point3d(-0.0268282471115291, -0.0531816580171832, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint86, viewCenter86)
Dim scaleAboutPoint87 As Point3d = New Point3d(0.0335353089200548, 0.0664770725233015, 0.0)
Dim viewCenter87 As Point3d = New Point3d(-0.0335353088928161, -0.0664770725216814, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint87, viewCenter87)
Dim scaleAboutPoint88 As Point3d = New Point3d(0.0419191361466637, 0.0830963406539243, 0.0)
Dim viewCenter88 As Point3d = New Point3d(-0.041919136119425, -0.0830963406523043, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint88, viewCenter88)
Dim scaleAboutPoint89 As Point3d = New Point3d(0.0523989201799246, 0.103870425817203, 0.0)
Dim viewCenter89 As Point3d = New Point3d(-0.052398920152686, -0.103870425815583, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint89, viewCenter89)
Dim scaleAboutPoint90 As Point3d = New Point3d(0.0654986502215009, 0.129838032271301, 0.0)
Dim viewCenter90 As Point3d = New Point3d(-0.0654986501942622, -0.129838032269681, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint90, viewCenter90)
Dim scaleAboutPoint91 As Point3d = New Point3d(0.0818733127734711, 0.162297540338923, 0.0)
Dim viewCenter91 As Point3d = New Point3d(-0.0818733127462325, -0.162297540337303, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint91, viewCenter91)
Dim scaleAboutPoint92 As Point3d = New Point3d(0.102341640963434, 0.202871925423451, 0.0)
Dim viewCenter92 As Point3d = New Point3d(-0.102341640936195, -0.202871925421831, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint92, viewCenter92)
Dim scaleAboutPoint93 As Point3d = New Point3d(0.127927051200888, 0.253589906779112, 0.0)
Dim viewCenter93 As Point3d = New Point3d(-0.127927051173649, -0.253589906777492, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint93, viewCenter93)
Dim scaleAboutPoint94 As Point3d = New Point3d(0.159908813997705, 0.316987383473687, 0.0)
Dim viewCenter94 As Point3d = New Point3d(-0.159908813970466, -0.316987383472067, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint94, viewCenter94)
Dim scaleAboutPoint95 As Point3d = New Point3d(0.199886017493726, 0.396234229341906, 0.0)
Dim viewCenter95 As Point3d = New Point3d(-0.199886017466488, -0.396234229340286, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint95, viewCenter95)
Dim scaleAboutPoint96 As Point3d = New Point3d(0.249857521863753, 0.49529278667718, 0.0)
Dim viewCenter96 As Point3d = New Point3d(-0.249857521836514, -0.49529278667556, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint96, viewCenter96)
Dim scaleAboutPoint97 As Point3d = New Point3d(0.312321902326286, 0.619115983346273, 0.0)
Dim viewCenter97 As Point3d = New Point3d(-0.312321902299048, -0.619115983344653, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint97, viewCenter97)
Dim scaleAboutPoint98 As Point3d = New Point3d(0.390402377904453, 0.773894979182638, 0.0)
Dim viewCenter98 As Point3d = New Point3d(-0.390402377877214, -0.773894979181018, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint98, viewCenter98)
Dim scaleAboutPoint99 As Point3d = New Point3d(0.488002972377161, 0.967368723978095, 0.0)
Dim viewCenter99 As Point3d = New Point3d(-0.488002972349923, -0.967368723976475, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint99, viewCenter99)
Dim scaleAboutPoint100 As Point3d = New Point3d(0.512834982032829, 0.852925549043283, 0.0)
Dim viewCenter100 As Point3d = New Point3d(-0.51283498200559, -0.852925549041663, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint100, viewCenter100)
Dim scaleAboutPoint101 As Point3d = New Point3d(0.410267985628987, 0.682340439234788, 0.0)
Dim viewCenter101 As Point3d = New Point3d(-0.410267985601748, -0.682340439233168, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint101, viewCenter101)
Dim scaleAboutPoint102 As Point3d = New Point3d(0.328214388505913, 0.545872351387992, 0.0)
Dim viewCenter102 As Point3d = New Point3d(-0.328214388478674, -0.545872351386372, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint102, viewCenter102)
Dim scaleAboutPoint103 As Point3d = New Point3d(0.262571510807454, 0.436697881110556, 0.0)
Dim viewCenter103 As Point3d = New Point3d(-0.262571510780216, -0.436697881108936, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint103, viewCenter103)
Dim scaleAboutPoint104 As Point3d = New Point3d(0.210057208648687, 0.349358304888607, 0.0)
Dim viewCenter104 As Point3d = New Point3d(-0.210057208621449, -0.349358304886987, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint104, viewCenter104)
Dim scaleAboutPoint105 As Point3d = New Point3d(0.168045766921674, 0.279486643911048, 0.0)
Dim viewCenter105 As Point3d = New Point3d(-0.168045766894435, -0.279486643909428, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint105, viewCenter105)
Dim scaleAboutPoint106 As Point3d = New Point3d(0.134436613540063, 0.223589315129, 0.0)
Dim viewCenter106 As Point3d = New Point3d(-0.134436613512824, -0.22358931512738, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.5625, scaleAboutPoint106, viewCenter106)
Dim scaleAboutPoint107 As Point3d = New Point3d(0.0860394326705433, 0.143097161682852, 0.0)
Dim viewCenter107 As Point3d = New Point3d(-0.0860394326433047, -0.143097161681232, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.5625, scaleAboutPoint107, viewCenter107)
Dim scaleAboutPoint108 As Point3d = New Point3d(0.0550652369140507, 0.0915821834773168, 0.0)
Dim viewCenter108 As Point3d = New Point3d(-0.055065236886812, -0.0915821834756968, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint108, viewCenter108)
Dim scaleAboutPoint109 As Point3d = New Point3d(0.0440521895339645, 0.0732657467820156, 0.0)
Dim viewCenter109 As Point3d = New Point3d(-0.0440521895067258, -0.0732657467803955, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint109, viewCenter109)
Dim scaleAboutPoint110 As Point3d = New Point3d(0.0550652369140507, 0.0915821834773168, 0.0)
Dim viewCenter110 As Point3d = New Point3d(-0.055065236886812, -0.0915821834756968, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint110, viewCenter110)
Dim scaleAboutPoint111 As Point3d = New Point3d(0.0688315461391586, 0.114477729346444, 0.0)
Dim viewCenter111 As Point3d = New Point3d(-0.06883154611192, -0.114477729344824, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint111, viewCenter111)
Dim scaleAboutPoint112 As Point3d = New Point3d(0.0860394326705435, 0.143097161682852, 0.0)
Dim viewCenter112 As Point3d = New Point3d(-0.0860394326433048, -0.143097161681232, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint112, viewCenter112)
Dim scaleAboutPoint113 As Point3d = New Point3d(0.107549290834774, 0.178871452103363, 0.0)
Dim viewCenter113 As Point3d = New Point3d(-0.107549290807536, -0.178871452101742, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint113, viewCenter113)
Dim scaleAboutPoint114 As Point3d = New Point3d(0.134436613540063, 0.223589315129001, 0.0)
Dim viewCenter114 As Point3d = New Point3d(-0.134436613512825, -0.223589315127381, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint114, viewCenter114)
Dim scaleAboutPoint115 As Point3d = New Point3d(0.168045766921674, 0.279486643911048, 0.0)
Dim viewCenter115 As Point3d = New Point3d(-0.168045766894436, -0.279486643909429, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint115, viewCenter115)
Dim scaleAboutPoint116 As Point3d = New Point3d(0.210057208648688, 0.349358304888608, 0.0)
Dim viewCenter116 As Point3d = New Point3d(-0.21005720862145, -0.349358304886988, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint116, viewCenter116)
Dim scaleAboutPoint117 As Point3d = New Point3d(0.262571510807455, 0.436697881110557, 0.0)
Dim viewCenter117 As Point3d = New Point3d(-0.262571510780217, -0.436697881108937, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint117, viewCenter117)
Dim scaleAboutPoint118 As Point3d = New Point3d(0.328214388505914, 0.545872351387994, 0.0)
Dim viewCenter118 As Point3d = New Point3d(-0.328214388478676, -0.545872351386374, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint118, viewCenter118)
Dim scaleAboutPoint119 As Point3d = New Point3d(0.410267985628988, 0.68234043923479, 0.0)
Dim viewCenter119 As Point3d = New Point3d(-0.410267985601749, -0.68234043923317, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint119, viewCenter119)
Dim scaleAboutPoint120 As Point3d = New Point3d(0.512834982032829, 0.852925549043285, 0.0)
Dim viewCenter120 As Point3d = New Point3d(-0.512834982005592, -0.852925549041665, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.64, scaleAboutPoint120, viewCenter120)
Dim scaleAboutPoint121 As Point3d = New Point3d(0.801304659418633, 1.33269617037968, 0.0)
Dim viewCenter121 As Point3d = New Point3d(-0.801304659391397, -1.33269617037806, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint121, viewCenter121)
Dim scaleAboutPoint122 As Point3d = New Point3d(1.00163082426989, 1.66587021297439, 0.0)
Dim viewCenter122 As Point3d = New Point3d(-1.00163082424265, -1.66587021297277, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint122, viewCenter122)
Dim scaleAboutPoint123 As Point3d = New Point3d(1.25203853033396, 2.08233776621779, 0.0)
Dim viewCenter123 As Point3d = New Point3d(-1.25203853030672, -2.08233776621617, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint123, viewCenter123)
Dim scaleAboutPoint124 As Point3d = New Point3d(1.56504816291404, 2.60292220777203, 0.0)
Dim viewCenter124 As Point3d = New Point3d(-1.5650481628868, -2.60292220777041, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.512, scaleAboutPoint124, viewCenter124)
Dim scaleAboutPoint125 As Point3d = New Point3d(3.05673469317851, 5.08383243705398, 0.0)
Dim viewCenter125 As Point3d = New Point3d(-3.05673469315126, -5.08383243705236, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.64, scaleAboutPoint125, viewCenter125)
Dim scaleAboutPoint126 As Point3d = New Point3d(4.77614795808375, 7.94348818289638, 0.0)
Dim viewCenter126 As Point3d = New Point3d(-4.77614795805651, -7.94348818289477, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint126, viewCenter126)
Dim scaleAboutPoint127 As Point3d = New Point3d(5.97018494760129, 9.92936022862028, 0.0)
Dim viewCenter127 As Point3d = New Point3d(-5.97018494757405, -9.92936022861866, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint127, viewCenter127)
Dim scaleAboutPoint128 As Point3d = New Point3d(7.46273118449819, 12.4117002857751, 0.0)
Dim viewCenter128 As Point3d = New Point3d(-7.46273118447097, -12.4117002857735, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint128, viewCenter128)
Dim scaleAboutPoint129 As Point3d = New Point3d(9.32841398061934, 15.5146253572187, 0.0)
Dim viewCenter129 As Point3d = New Point3d(-9.32841398059211, -15.5146253572171, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.64, scaleAboutPoint129, viewCenter129)
Dim scaleAboutPoint130 As Point3d = New Point3d(14.57564684471, 24.2416021206538, 0.0)
Dim viewCenter130 As Point3d = New Point3d(-14.5756468446829, -24.2416021206522, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.64, scaleAboutPoint130, viewCenter130)
Dim scaleAboutPoint131 As Point3d = New Point3d(22.7744481948518, 37.8775033135211, 0.0)
Dim viewCenter131 As Point3d = New Point3d(-22.7744481948246, -37.8775033135195, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint131, viewCenter131)
Dim scaleAboutPoint132 As Point3d = New Point3d(28.4680602435613, 47.3468791419012, 0.0)
Dim viewCenter132 As Point3d = New Point3d(-28.4680602435342, -47.3468791418995, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint132, viewCenter132)
Dim scaleAboutPoint133 As Point3d = New Point3d(35.5850753044482, 59.1835989273762, 0.0)
Dim viewCenter133 As Point3d = New Point3d(-35.5850753044211, -59.1835989273746, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint133, viewCenter133)
Dim scaleAboutPoint134 As Point3d = New Point3d(44.4813441305568, 73.9794986592201, 0.0)
Dim viewCenter134 As Point3d = New Point3d(-44.4813441305296, -73.9794986592185, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint134, viewCenter134)
Dim scaleAboutPoint135 As Point3d = New Point3d(55.6016801631927, 92.4743733240249, 0.0)
Dim viewCenter135 As Point3d = New Point3d(-55.6016801631656, -92.4743733240234, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint135, viewCenter135)
Dim scaleAboutPoint136 As Point3d = New Point3d(69.5021002039875, 115.592966655031, 0.0)
Dim viewCenter136 As Point3d = New Point3d(-69.5021002039604, -115.592966655029, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint136, viewCenter136)
associativeLineBuilder3.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder3.EndPointOptions = Features.AssociativeLineBuilder.EndOption.AlongZc
associativeLineBuilder3.Limits.EndLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.Value
associativeLineBuilder3.Limits.EndLimit.Distance.RightHandSide = "1350"
theSession.SetUndoMarkVisibility(markId7, Nothing, Session.MarkVisibility.Visible)
Dim markId8 As Session.UndoMarkId
markId8 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Line Point-XYZ")
associativeLineBuilder3.Associative = True
Dim nXObject3 As NXObject
nXObject3 = associativeLineBuilder3.Commit()
theSession.DeleteUndoMark(markId8, Nothing)
Dim markId9 As Session.UndoMarkId
markId9 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Line Point-XYZ")
theSession.SetUndoMarkName(markId7, "Line Point-XYZ")
theSession.SetUndoMarkVisibility(markId7, Nothing, Session.MarkVisibility.Visible)
Dim expression18 As Expression = associativeLineBuilder3.Limits.EndLimit.Distance
associativeLineBuilder3.Destroy()
Try
' Expression is still in use.
workPart.Expressions.Delete(expression14)
Catch ex As NXException
ex.AssertErrorCode(1050029)
End Try
Try
' Expression is still in use.
workPart.Expressions.Delete(expression13)
Catch ex As NXException
ex.AssertErrorCode(1050029)
End Try
plane3.DestroyPlane()
theSession.DeleteUndoMark(markId9, Nothing)
Dim markId10 As Session.UndoMarkId
markId10 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Start")
Dim associativeLineBuilder4 As Features.AssociativeLineBuilder
associativeLineBuilder4 = workPart.BaseFeatures.CreateAssociativeLineBuilder(nullFeatures_AssociativeLine)
Dim origin7 As Point3d = New Point3d(0.0, 0.0, 0.0)
Dim normal4 As Vector3d = New Vector3d(0.0, 0.0, 1.0)
Dim plane4 As Plane
plane4 = workPart.Planes.CreatePlane(origin7, normal4, SmartObject.UpdateOption.WithinModeling)
Dim expression19 As Expression
expression19 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim expression20 As Expression
expression20 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
associativeLineBuilder4.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder4.StartPointOptions = Features.AssociativeLineBuilder.StartOption.Point
associativeLineBuilder4.StartAngle.RightHandSide = "0"
associativeLineBuilder4.EndPointOptions = Features.AssociativeLineBuilder.EndOption.AlongZc
associativeLineBuilder4.EndAngle.RightHandSide = "0"
associativeLineBuilder4.Limits.StartLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.AtPoint
associativeLineBuilder4.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder4.Limits.EndLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.Value
associativeLineBuilder4.Limits.EndLimit.Distance.RightHandSide = "1350"
associativeLineBuilder4.StartPointOptions = Features.AssociativeLineBuilder.StartOption.Inferred
associativeLineBuilder4.EndPointOptions = Features.AssociativeLineBuilder.EndOption.Inferred
associativeLineBuilder4.Limits.StartLimit.Distance.RightHandSide = "0"
associativeLineBuilder4.Limits.EndLimit.LimitOption = GeometricUtilities.CurveExtendData.LimitOptions.AtPoint
associativeLineBuilder4.Limits.EndLimit.Distance.RightHandSide = "0"
associativeLineBuilder4.StartPointOptions = Features.AssociativeLineBuilder.StartOption.Point
associativeLineBuilder4.Limits.FullCircle = False
theSession.SetUndoMarkName(markId10, "Line Point-XYZ Dialog")
associativeLineBuilder4.Limits.FullCircle = False
' ----------------------------------------------
' Dialog Begin Line Point-XYZ
' ----------------------------------------------
associativeLineBuilder4.Destroy()
Try
' Expression is still in use.
workPart.Expressions.Delete(expression20)
Catch ex As NXException
ex.AssertErrorCode(1050029)
End Try
Try
' Expression is still in use.
workPart.Expressions.Delete(expression19)
Catch ex As NXException
ex.AssertErrorCode(1050029)
End Try
plane4.DestroyPlane()
theSession.UndoToMark(markId10, Nothing)
theSession.DeleteUndoMark(markId10, Nothing)
Dim scaleAboutPoint137 As Point3d = New Point3d(-306.357941688555, 110.654659535275, 0.0)
Dim viewCenter137 As Point3d = New Point3d(306.357941688582, -110.654659535273, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint137, viewCenter137)
Dim rotMatrix2 As Matrix3x3
rotMatrix2.Xx = 0.913258572469156
rotMatrix2.Xy = 0.376019601570771
rotMatrix2.Xz = -0.156741950498767
rotMatrix2.Yx = 0.0141073349892884
rotMatrix2.Yy = 0.355333991310614
rotMatrix2.Yz = 0.934632942774204
rotMatrix2.Zx = 0.407136049633411
rotMatrix2.Zy = -0.855772758303176
rotMatrix2.Zz = 0.319207179172201
Dim translation2 As Point3d = New Point3d(42.747840992388, -41.4751969434197, 529.517304204101)
workPart.ModelingViews.WorkView.SetRotationTranslationScale(rotMatrix2, translation2, 0.231455835427361)
Dim scaleAboutPoint138 As Point3d = New Point3d(-378.374920518331, 112.026411512985, 0.0)
Dim viewCenter138 As Point3d = New Point3d(378.374920518358, -112.026411512983, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint138, viewCenter138)
Dim scaleAboutPoint139 As Point3d = New Point3d(-472.968650647917, 140.033014391231, 0.0)
Dim viewCenter139 As Point3d = New Point3d(472.968650647944, -140.033014391229, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint139, viewCenter139)
Dim scaleAboutPoint140 As Point3d = New Point3d(-591.210813309899, 175.041267989038, 0.0)
Dim viewCenter140 As Point3d = New Point3d(591.210813309926, -175.041267989037, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint140, viewCenter140)
Dim scaleAboutPoint141 As Point3d = New Point3d(-739.013516637378, 218.801584986298, 0.0)
Dim viewCenter141 As Point3d = New Point3d(739.013516637404, -218.801584986296, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint141, viewCenter141)
Dim scaleAboutPoint142 As Point3d = New Point3d(-923.766895796725, 273.501981232872, 0.0)
Dim viewCenter142 As Point3d = New Point3d(923.766895796752, -273.501981232871, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint142, viewCenter142)
Dim scaleAboutPoint143 As Point3d = New Point3d(-1154.70861974591, 341.87747654109, 0.0)
Dim viewCenter143 As Point3d = New Point3d(1154.70861974594, -341.877476541088, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint143, viewCenter143)
Dim scaleAboutPoint144 As Point3d = New Point3d(-1443.38577468239, 427.346845676362, 0.0)
Dim viewCenter144 As Point3d = New Point3d(1443.38577468242, -427.346845676361, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint144, viewCenter144)
Dim scaleAboutPoint145 As Point3d = New Point3d(-703.159988421551, 648.651462187335, 0.0)
Dim viewCenter145 As Point3d = New Point3d(703.159988421576, -648.651462187334, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint145, viewCenter145)
Dim scaleAboutPoint146 As Point3d = New Point3d(-562.527990737237, 518.921169749868, 0.0)
Dim viewCenter146 As Point3d = New Point3d(562.527990737262, -518.921169749867, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint146, viewCenter146)
Dim rotMatrix3 As Matrix3x3
rotMatrix3.Xx = 0.943343556537897
rotMatrix3.Xy = 0.307191607915772
rotMatrix3.Xz = -0.12544421216044
rotMatrix3.Yx = -0.00730121762168252
rotMatrix3.Yy = 0.397176717102824
rotMatrix3.Yz = 0.917713107464781
rotMatrix3.Zx = 0.331737285452919
rotMatrix3.Zy = -0.864802851184908
rotMatrix3.Zz = 0.376916969666772
Dim translation3 As Point3d = New Point3d(-1132.25519552781, 149.186672886749, 545.273944733034)
workPart.ModelingViews.WorkView.SetRotationTranslationScale(rotMatrix3, translation3, 0.0758434481528375)
Dim scaleAboutPoint147 As Point3d = New Point3d(-348.854567899058, 397.694207404941, 0.0)
Dim viewCenter147 As Point3d = New Point3d(348.854567899082, -397.69420740494, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint147, viewCenter147)
Dim scaleAboutPoint148 As Point3d = New Point3d(-436.068209873825, 497.117759256176, 0.0)
Dim viewCenter148 As Point3d = New Point3d(436.068209873849, -497.117759256175, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint148, viewCenter148)
Dim scaleAboutPoint149 As Point3d = New Point3d(-545.085262342285, 621.39719907022, 0.0)
Dim viewCenter149 As Point3d = New Point3d(545.085262342309, -621.397199070219, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint149, viewCenter149)
Dim scaleAboutPoint150 As Point3d = New Point3d(-844.88215663055, 919.831380202628, 0.0)
Dim viewCenter150 As Point3d = New Point3d(844.882156630571, -919.831380202626, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint150, viewCenter150)
Dim scaleAboutPoint151 As Point3d = New Point3d(-675.905725304437, 735.865104162102, 0.0)
Dim viewCenter151 As Point3d = New Point3d(675.905725304459, -735.865104162101, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint151, viewCenter151)
Dim scaleAboutPoint152 As Point3d = New Point3d(-540.724580243547, 588.692083329682, 0.0)
Dim viewCenter152 As Point3d = New Point3d(540.724580243569, -588.692083329681, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint152, viewCenter152)
Dim scaleAboutPoint153 As Point3d = New Point3d(-432.579664194836, 470.953666663745, 0.0)
Dim viewCenter153 As Point3d = New Point3d(432.579664194858, -470.953666663745, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint153, viewCenter153)
Dim scaleAboutPoint154 As Point3d = New Point3d(-346.063731355867, 376.762933330996, 0.0)
Dim viewCenter154 As Point3d = New Point3d(346.063731355888, -376.762933330996, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint154, viewCenter154)
Dim scaleAboutPoint155 As Point3d = New Point3d(-276.850985084691, 301.410346664797, 0.0)
Dim viewCenter155 As Point3d = New Point3d(276.850985084713, -301.410346664796, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint155, viewCenter155)
Dim scaleAboutPoint156 As Point3d = New Point3d(-346.063731355866, 376.762933330996, 0.0)
Dim viewCenter156 As Point3d = New Point3d(346.063731355888, -376.762933330996, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint156, viewCenter156)
Dim scaleAboutPoint157 As Point3d = New Point3d(-990.746972833348, 812.831143204834, 0.0)
Dim viewCenter157 As Point3d = New Point3d(990.74697283337, -812.831143204833, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(1.25, scaleAboutPoint157, viewCenter157)
' ----------------------------------------------
' Menu: Edit->Move Object...
' ----------------------------------------------
Dim markId11 As Session.UndoMarkId
markId11 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Start")
Dim nullFeatures_MoveObject As Features.MoveObject = Nothing
Dim moveObjectBuilder1 As Features.MoveObjectBuilder
moveObjectBuilder1 = workPart.BaseFeatures.CreateMoveObjectBuilder(nullFeatures_MoveObject)
moveObjectBuilder1.TransformMotion.DistanceAngle.OrientXpress.AxisOption = GeometricUtilities.OrientXpressBuilder.Axis.Passive
moveObjectBuilder1.TransformMotion.DistanceAngle.OrientXpress.PlaneOption = GeometricUtilities.OrientXpressBuilder.Plane.Passive
moveObjectBuilder1.TransformMotion.AlongCurveAngle.AlongCurve.IsPercentUsed = True
moveObjectBuilder1.TransformMotion.AlongCurveAngle.AlongCurve.Expression.RightHandSide = "0"
moveObjectBuilder1.TransformMotion.AlongCurveAngle.AlongCurve.Expression.RightHandSide = "0"
moveObjectBuilder1.TransformMotion.OrientXpress.AxisOption = GeometricUtilities.OrientXpressBuilder.Axis.Passive
moveObjectBuilder1.TransformMotion.OrientXpress.PlaneOption = GeometricUtilities.OrientXpressBuilder.Plane.Passive
moveObjectBuilder1.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
moveObjectBuilder1.TransformMotion.DistanceValue.RightHandSide = "100"
moveObjectBuilder1.TransformMotion.DistanceBetweenPointsDistance.RightHandSide = "0"
moveObjectBuilder1.TransformMotion.RadialDistance.RightHandSide = "0"
moveObjectBuilder1.TransformMotion.Angle.RightHandSide = "0"
moveObjectBuilder1.TransformMotion.DistanceAngle.Distance.RightHandSide = "0"
moveObjectBuilder1.TransformMotion.DistanceAngle.Angle.RightHandSide = "0"
moveObjectBuilder1.TransformMotion.DeltaEnum = GeometricUtilities.ModlMotion.Delta.ReferenceWcsWorkPart
moveObjectBuilder1.TransformMotion.DeltaXc.RightHandSide = "0"
moveObjectBuilder1.TransformMotion.DeltaYc.RightHandSide = "0"
moveObjectBuilder1.TransformMotion.DeltaZc.RightHandSide = "-6.5"
moveObjectBuilder1.TransformMotion.AlongCurveAngle.AlongCurve.Expression.RightHandSide = "0"
moveObjectBuilder1.TransformMotion.AlongCurveAngle.AlongCurveAngle.RightHandSide = "0"
moveObjectBuilder1.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
moveObjectBuilder1.NumberOfCopies = 12
theSession.SetUndoMarkName(markId11, "Move Object Dialog")
Dim associativeLine1 As Features.AssociativeLine = CType(nXObject3, Features.AssociativeLine)
Dim line1 As Line = CType(associativeLine1.FindObject("CURVE 1"), Line)
Dim added1 As Boolean
added1 = moveObjectBuilder1.ObjectToMoveObject.Add(line1)
Dim associativeLine2 As Features.AssociativeLine = CType(nXObject2, Features.AssociativeLine)
Dim line2 As Line = CType(associativeLine2.FindObject("CURVE 1"), Line)
Dim added2 As Boolean
added2 = moveObjectBuilder1.ObjectToMoveObject.Add(line2)
Dim expression21 As Expression
expression21 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim origin8 As Point3d = New Point3d(0.0, 0.0, 0.0)
Dim vector1 As Vector3d = New Vector3d(1.0, 0.0, 0.0)
Dim direction1 As Direction
direction1 = workPart.Directions.CreateDirection(origin8, vector1, SmartObject.UpdateOption.WithinModeling)
moveObjectBuilder1.TransformMotion.DistanceVector = direction1
Dim origin9 As Point3d = New Point3d(0.0, 0.0, 0.0)
direction1.Origin = origin9
Dim markId12 As Session.UndoMarkId
markId12 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Move Object")
Dim nXObject4 As NXObject
nXObject4 = moveObjectBuilder1.Commit()
Dim objects1() As NXObject
objects1 = moveObjectBuilder1.GetCommittedObjects()
theSession.DeleteUndoMark(markId12, Nothing)
theSession.SetUndoMarkName(markId11, "Move Object")
moveObjectBuilder1.Destroy()
workPart.Expressions.Delete(expression21)
Dim markId13 As Session.UndoMarkId
markId13 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Start")
Dim moveObjectBuilder2 As Features.MoveObjectBuilder
moveObjectBuilder2 = workPart.BaseFeatures.CreateMoveObjectBuilder(nullFeatures_MoveObject)
moveObjectBuilder2.TransformMotion.DistanceAngle.OrientXpress.AxisOption = GeometricUtilities.OrientXpressBuilder.Axis.Passive
moveObjectBuilder2.TransformMotion.DistanceAngle.OrientXpress.PlaneOption = GeometricUtilities.OrientXpressBuilder.Plane.Passive
moveObjectBuilder2.TransformMotion.AlongCurveAngle.AlongCurve.IsPercentUsed = True
moveObjectBuilder2.TransformMotion.AlongCurveAngle.AlongCurve.Expression.RightHandSide = "0"
moveObjectBuilder2.TransformMotion.AlongCurveAngle.AlongCurve.Expression.RightHandSide = "0"
moveObjectBuilder2.TransformMotion.OrientXpress.AxisOption = GeometricUtilities.OrientXpressBuilder.Axis.Passive
moveObjectBuilder2.TransformMotion.OrientXpress.PlaneOption = GeometricUtilities.OrientXpressBuilder.Plane.Passive
moveObjectBuilder2.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
moveObjectBuilder2.TransformMotion.DistanceValue.RightHandSide = "100"
moveObjectBuilder2.TransformMotion.DistanceBetweenPointsDistance.RightHandSide = "0"
moveObjectBuilder2.TransformMotion.RadialDistance.RightHandSide = "0"
moveObjectBuilder2.TransformMotion.Angle.RightHandSide = "0"
moveObjectBuilder2.TransformMotion.DistanceAngle.Distance.RightHandSide = "0"
moveObjectBuilder2.TransformMotion.DistanceAngle.Angle.RightHandSide = "0"
moveObjectBuilder2.TransformMotion.DeltaEnum = GeometricUtilities.ModlMotion.Delta.ReferenceWcsWorkPart
moveObjectBuilder2.TransformMotion.DeltaXc.RightHandSide = "0"
moveObjectBuilder2.TransformMotion.DeltaYc.RightHandSide = "0"
moveObjectBuilder2.TransformMotion.DeltaZc.RightHandSide = "-6.5"
moveObjectBuilder2.TransformMotion.AlongCurveAngle.AlongCurve.Expression.RightHandSide = "0"
moveObjectBuilder2.TransformMotion.AlongCurveAngle.AlongCurveAngle.RightHandSide = "0"
moveObjectBuilder2.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
moveObjectBuilder2.NumberOfCopies = 12
theSession.SetUndoMarkName(markId13, "Move Object Dialog")
' ----------------------------------------------
' Dialog Begin Move Object
' ----------------------------------------------
Dim added3 As Boolean
added3 = moveObjectBuilder2.ObjectToMoveObject.Add(line1)
Dim associativeLine3 As Features.AssociativeLine = CType(nXObject1, Features.AssociativeLine)
Dim line3 As Line = CType(associativeLine3.FindObject("CURVE 1"), Line)
Dim added4 As Boolean
added4 = moveObjectBuilder2.ObjectToMoveObject.Add(line3)
Dim expression22 As Expression
expression22 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim origin10 As Point3d = New Point3d(0.0, 0.0, 0.0)
Dim vector2 As Vector3d = New Vector3d(0.0, 1.0, 0.0)
Dim direction2 As Direction
direction2 = workPart.Directions.CreateDirection(origin10, vector2, SmartObject.UpdateOption.WithinModeling)
moveObjectBuilder2.TransformMotion.DistanceVector = direction2
Dim origin11 As Point3d = New Point3d(0.0, 0.0, 0.0)
direction2.Origin = origin11
moveObjectBuilder2.NumberOfCopies = 11
Dim markId14 As Session.UndoMarkId
markId14 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Move Object")
Dim nXObject5 As NXObject
nXObject5 = moveObjectBuilder2.Commit()
Dim objects2() As NXObject
objects2 = moveObjectBuilder2.GetCommittedObjects()
theSession.DeleteUndoMark(markId14, Nothing)
theSession.SetUndoMarkName(markId13, "Move Object")
moveObjectBuilder2.Destroy()
workPart.Expressions.Delete(expression22)
Dim markId15 As Session.UndoMarkId
markId15 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Start")
Dim moveObjectBuilder3 As Features.MoveObjectBuilder
moveObjectBuilder3 = workPart.BaseFeatures.CreateMoveObjectBuilder(nullFeatures_MoveObject)
moveObjectBuilder3.TransformMotion.DistanceAngle.OrientXpress.AxisOption = GeometricUtilities.OrientXpressBuilder.Axis.Passive
moveObjectBuilder3.TransformMotion.DistanceAngle.OrientXpress.PlaneOption = GeometricUtilities.OrientXpressBuilder.Plane.Passive
moveObjectBuilder3.TransformMotion.AlongCurveAngle.AlongCurve.IsPercentUsed = True
moveObjectBuilder3.TransformMotion.AlongCurveAngle.AlongCurve.Expression.RightHandSide = "0"
moveObjectBuilder3.TransformMotion.AlongCurveAngle.AlongCurve.Expression.RightHandSide = "0"
moveObjectBuilder3.TransformMotion.OrientXpress.AxisOption = GeometricUtilities.OrientXpressBuilder.Axis.Passive
moveObjectBuilder3.TransformMotion.OrientXpress.PlaneOption = GeometricUtilities.OrientXpressBuilder.Plane.Passive
moveObjectBuilder3.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
moveObjectBuilder3.TransformMotion.DistanceValue.RightHandSide = "100"
moveObjectBuilder3.TransformMotion.DistanceBetweenPointsDistance.RightHandSide = "0"
moveObjectBuilder3.TransformMotion.RadialDistance.RightHandSide = "0"
moveObjectBuilder3.TransformMotion.Angle.RightHandSide = "0"
moveObjectBuilder3.TransformMotion.DistanceAngle.Distance.RightHandSide = "0"
moveObjectBuilder3.TransformMotion.DistanceAngle.Angle.RightHandSide = "0"
moveObjectBuilder3.TransformMotion.DeltaEnum = GeometricUtilities.ModlMotion.Delta.ReferenceWcsWorkPart
moveObjectBuilder3.TransformMotion.DeltaXc.RightHandSide = "0"
moveObjectBuilder3.TransformMotion.DeltaYc.RightHandSide = "0"
moveObjectBuilder3.TransformMotion.DeltaZc.RightHandSide = "-6.5"
moveObjectBuilder3.TransformMotion.AlongCurveAngle.AlongCurve.Expression.RightHandSide = "0"
moveObjectBuilder3.TransformMotion.AlongCurveAngle.AlongCurveAngle.RightHandSide = "0"
moveObjectBuilder3.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
moveObjectBuilder3.NumberOfCopies = 11
theSession.SetUndoMarkName(markId15, "Move Object Dialog")
' ----------------------------------------------
' Dialog Begin Move Object
' ----------------------------------------------
Dim added5 As Boolean
added5 = moveObjectBuilder3.ObjectToMoveObject.Add(line3)
Dim added6 As Boolean
added6 = moveObjectBuilder3.ObjectToMoveObject.Add(line2)
Dim expression23 As Expression
expression23 = workPart.Expressions.CreateSystemExpressionWithUnits("0", unit1)
Dim origin12 As Point3d = New Point3d(0.0, 0.0, 0.0)
Dim vector3 As Vector3d = New Vector3d(0.0, 0.0, 1.0)
Dim direction3 As Direction
direction3 = workPart.Directions.CreateDirection(origin12, vector3, SmartObject.UpdateOption.WithinModeling)
moveObjectBuilder3.TransformMotion.DistanceVector = direction3
Dim origin13 As Point3d = New Point3d(0.0, 0.0, 0.0)
direction3.Origin = origin13
Dim scaleAboutPoint158 As Point3d = New Point3d(-298.619510121593, -496.768904688275, 0.0)
Dim viewCenter158 As Point3d = New Point3d(298.619510121615, 496.768904688276, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint158, viewCenter158)
Dim scaleAboutPoint159 As Point3d = New Point3d(-373.274387651994, -620.961130860344, 0.0)
Dim viewCenter159 As Point3d = New Point3d(373.274387652015, 620.961130860345, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint159, viewCenter159)
moveObjectBuilder3.NumberOfCopies = 13
moveObjectBuilder3.NumberOfCopies = 12
Dim markId16 As Session.UndoMarkId
markId16 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Move Object")
Dim nXObject6 As NXObject
nXObject6 = moveObjectBuilder3.Commit()
Dim objects3() As NXObject
objects3 = moveObjectBuilder3.GetCommittedObjects()
theSession.DeleteUndoMark(markId16, Nothing)
theSession.SetUndoMarkName(markId15, "Move Object")
moveObjectBuilder3.Destroy()
workPart.Expressions.Delete(expression23)
Dim markId17 As Session.UndoMarkId
markId17 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Start")
Dim moveObjectBuilder4 As Features.MoveObjectBuilder
moveObjectBuilder4 = workPart.BaseFeatures.CreateMoveObjectBuilder(nullFeatures_MoveObject)
moveObjectBuilder4.TransformMotion.DistanceAngle.OrientXpress.AxisOption = GeometricUtilities.OrientXpressBuilder.Axis.Passive
moveObjectBuilder4.TransformMotion.DistanceAngle.OrientXpress.PlaneOption = GeometricUtilities.OrientXpressBuilder.Plane.Passive
moveObjectBuilder4.TransformMotion.AlongCurveAngle.AlongCurve.IsPercentUsed = True
moveObjectBuilder4.TransformMotion.AlongCurveAngle.AlongCurve.Expression.RightHandSide = "0"
moveObjectBuilder4.TransformMotion.AlongCurveAngle.AlongCurve.Expression.RightHandSide = "0"
moveObjectBuilder4.TransformMotion.OrientXpress.AxisOption = GeometricUtilities.OrientXpressBuilder.Axis.Passive
moveObjectBuilder4.TransformMotion.OrientXpress.PlaneOption = GeometricUtilities.OrientXpressBuilder.Plane.Passive
moveObjectBuilder4.TransformMotion.Option = GeometricUtilities.ModlMotion.Options.Distance
moveObjectBuilder4.TransformMotion.DistanceValue.RightHandSide = "100"
moveObjectBuilder4.TransformMotion.DistanceBetweenPointsDistance.RightHandSide = "0"
moveObjectBuilder4.TransformMotion.RadialDistance.RightHandSide = "0"
moveObjectBuilder4.TransformMotion.Angle.RightHandSide = "0"
moveObjectBuilder4.TransformMotion.DistanceAngle.Distance.RightHandSide = "0"
moveObjectBuilder4.TransformMotion.DistanceAngle.Angle.RightHandSide = "0"
moveObjectBuilder4.TransformMotion.DeltaEnum = GeometricUtilities.ModlMotion.Delta.ReferenceWcsWorkPart
moveObjectBuilder4.TransformMotion.DeltaXc.RightHandSide = "0"
moveObjectBuilder4.TransformMotion.DeltaYc.RightHandSide = "0"
moveObjectBuilder4.TransformMotion.DeltaZc.RightHandSide = "-6.5"
moveObjectBuilder4.TransformMotion.AlongCurveAngle.AlongCurve.Expression.RightHandSide = "0"
moveObjectBuilder4.TransformMotion.AlongCurveAngle.AlongCurveAngle.RightHandSide = "0"
moveObjectBuilder4.MoveObjectResult = Features.MoveObjectBuilder.MoveObjectResultOptions.CopyOriginal
moveObjectBuilder4.NumberOfCopies = 12
theSession.SetUndoMarkName(markId17, "Move Object Dialog")
' ----------------------------------------------
' Dialog Begin Move Object
' ----------------------------------------------
moveObjectBuilder4.Destroy()
theSession.UndoToMark(markId17, Nothing)
theSession.DeleteUndoMark(markId17, Nothing)
' ----------------------------------------------
' Menu: Edit->Object Display...
' ----------------------------------------------
Dim markId18 As Session.UndoMarkId
markId18 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Start")
theSession.SetUndoMarkName(markId18, "Class Selection Dialog")
Dim markId19 As Session.UndoMarkId
markId19 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Class Selection")
theSession.DeleteUndoMark(markId19, Nothing)
Dim markId20 As Session.UndoMarkId
markId20 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Class Selection")
theSession.DeleteUndoMark(markId20, Nothing)
theSession.SetUndoMarkName(markId18, "Class Selection")
theSession.DeleteUndoMark(markId18, Nothing)
' ----------------------------------------------
' Dialog Begin Edit Object Display
' ----------------------------------------------
Dim scaleAboutPoint160 As Point3d = New Point3d(-2411.45720060051, 1173.02348455975, 0.0)
Dim viewCenter160 As Point3d = New Point3d(2411.45720060053, -1173.02348455975, 0.0)
workPart.ModelingViews.WorkView.ZoomAboutPoint(0.8, scaleAboutPoint160, viewCenter160)
' ----------------------------------------------
' Dialog Begin Color
' ----------------------------------------------
Dim markId21 As Session.UndoMarkId
markId21 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Edit Object Display")
Dim displayModification1 As DisplayModification
displayModification1 = theSession.DisplayManager.NewDisplayModification()
displayModification1.ApplyToAllFaces = True
displayModification1.ApplyToOwningParts = False
displayModification1.NewColor = 216
displayModification1.NewWidth = DisplayableObject.ObjectWidth.One
Dim objects4(72) As DisplayableObject
Dim line4 As Line = CType(workPart.Lines.FindObject("ENTITY 3 12 1"), Line)
objects4(0) = line4
Dim line5 As Line = CType(workPart.Lines.FindObject("ENTITY 3 26 1"), Line)
objects4(1) = line5
Dim line6 As Line = CType(workPart.Lines.FindObject("ENTITY 3 59 1"), Line)
objects4(2) = line6
Dim line7 As Line = CType(workPart.Lines.FindObject("ENTITY 3 56 1"), Line)
objects4(3) = line7
Dim line8 As Line = CType(workPart.Lines.FindObject("ENTITY 3 33 1"), Line)
objects4(4) = line8
Dim line9 As Line = CType(workPart.Lines.FindObject("ENTITY 3 16 1"), Line)
objects4(5) = line9
Dim line10 As Line = CType(workPart.Lines.FindObject("ENTITY 3 21 1"), Line)
objects4(6) = line10
Dim line11 As Line = CType(workPart.Lines.FindObject("ENTITY 3 43 1"), Line)
objects4(7) = line11
Dim line12 As Line = CType(workPart.Lines.FindObject("ENTITY 3 46 1"), Line)
objects4(8) = line12
Dim line13 As Line = CType(workPart.Lines.FindObject("ENTITY 3 3 1"), Line)
objects4(9) = line13
Dim line14 As Line = CType(workPart.Lines.FindObject("ENTITY 3 27 1"), Line)
objects4(10) = line14
Dim line15 As Line = CType(workPart.Lines.FindObject("ENTITY 3 25 1"), Line)
objects4(11) = line15
Dim line16 As Line = CType(workPart.Lines.FindObject("ENTITY 3 62 1"), Line)
objects4(12) = line16
Dim line17 As Line = CType(workPart.Lines.FindObject("ENTITY 3 29 1"), Line)
objects4(13) = line17
Dim line18 As Line = CType(workPart.Lines.FindObject("ENTITY 3 63 1"), Line)
objects4(14) = line18
Dim line19 As Line = CType(workPart.Lines.FindObject("ENTITY 3 32 1"), Line)
objects4(15) = line19
Dim line20 As Line = CType(workPart.Lines.FindObject("ENTITY 3 37 1"), Line)
objects4(16) = line20
Dim line21 As Line = CType(workPart.Lines.FindObject("ENTITY 3 39 1"), Line)
objects4(17) = line21
Dim line22 As Line = CType(workPart.Lines.FindObject("ENTITY 3 20 1"), Line)
objects4(18) = line22
Dim line23 As Line = CType(workPart.Lines.FindObject("ENTITY 3 44 1"), Line)
objects4(19) = line23
Dim line24 As Line = CType(workPart.Lines.FindObject("ENTITY 3 2 1"), Line)
objects4(20) = line24
Dim line25 As Line = CType(workPart.Lines.FindObject("ENTITY 3 7 1"), Line)
objects4(21) = line25
Dim line26 As Line = CType(workPart.Lines.FindObject("ENTITY 3 22 1"), Line)
objects4(22) = line26
Dim line27 As Line = CType(workPart.Lines.FindObject("ENTITY 3 1 1"), Line)
objects4(23) = line27
Dim line28 As Line = CType(workPart.Lines.FindObject("ENTITY 3 24 1"), Line)
objects4(24) = line28
Dim line29 As Line = CType(workPart.Lines.FindObject("ENTITY 3 28 1"), Line)
objects4(25) = line29
Dim line30 As Line = CType(workPart.Lines.FindObject("ENTITY 3 61 1"), Line)
objects4(26) = line30
Dim line31 As Line = CType(workPart.Lines.FindObject("ENTITY 3 31 1"), Line)
objects4(27) = line31
Dim line32 As Line = CType(workPart.Lines.FindObject("ENTITY 3 15 1"), Line)
objects4(28) = line32
Dim line33 As Line = CType(workPart.Lines.FindObject("ENTITY 3 38 1"), Line)
objects4(29) = line33
Dim line34 As Line = CType(workPart.Lines.FindObject("ENTITY 3 42 1"), Line)
objects4(30) = line34
Dim line35 As Line = CType(workPart.Lines.FindObject("ENTITY 3 52 1"), Line)
objects4(31) = line35
objects4(32) = line3
Dim line36 As Line = CType(workPart.Lines.FindObject("ENTITY 3 18 1"), Line)
objects4(33) = line36
Dim line37 As Line = CType(workPart.Lines.FindObject("ENTITY 3 53 1"), Line)
objects4(34) = line37
Dim line38 As Line = CType(workPart.Lines.FindObject("ENTITY 3 48 1"), Line)
objects4(35) = line38
Dim line39 As Line = CType(workPart.Lines.FindObject("ENTITY 3 34 1"), Line)
objects4(36) = line39
Dim line40 As Line = CType(workPart.Lines.FindObject("ENTITY 3 66 1"), Line)
objects4(37) = line40
Dim line41 As Line = CType(workPart.Lines.FindObject("ENTITY 3 49 1"), Line)
objects4(38) = line41
Dim line42 As Line = CType(workPart.Lines.FindObject("ENTITY 3 69 1"), Line)
objects4(39) = line42
Dim line43 As Line = CType(workPart.Lines.FindObject("ENTITY 3 54 1"), Line)
objects4(40) = line43
Dim line44 As Line = CType(workPart.Lines.FindObject("ENTITY 3 58 1"), Line)
objects4(41) = line44
Dim line45 As Line = CType(workPart.Lines.FindObject("ENTITY 3 55 1"), Line)
objects4(42) = line45
objects4(43) = line1
Dim line46 As Line = CType(workPart.Lines.FindObject("ENTITY 3 64 1"), Line)
objects4(44) = line46
Dim line47 As Line = CType(workPart.Lines.FindObject("ENTITY 3 40 1"), Line)
objects4(45) = line47
Dim line48 As Line = CType(workPart.Lines.FindObject("ENTITY 3 47 1"), Line)
objects4(46) = line48
Dim line49 As Line = CType(workPart.Lines.FindObject("ENTITY 3 45 1"), Line)
objects4(47) = line49
Dim line50 As Line = CType(workPart.Lines.FindObject("ENTITY 3 17 1"), Line)
objects4(48) = line50
Dim line51 As Line = CType(workPart.Lines.FindObject("ENTITY 3 13 1"), Line)
objects4(49) = line51
Dim line52 As Line = CType(workPart.Lines.FindObject("ENTITY 3 11 1"), Line)
objects4(50) = line52
Dim line53 As Line = CType(workPart.Lines.FindObject("ENTITY 3 8 1"), Line)
objects4(51) = line53
Dim line54 As Line = CType(workPart.Lines.FindObject("ENTITY 3 5 1"), Line)
objects4(52) = line54
Dim line55 As Line = CType(workPart.Lines.FindObject("ENTITY 3 30 1"), Line)
objects4(53) = line55
Dim line56 As Line = CType(workPart.Lines.FindObject("ENTITY 3 50 1"), Line)
objects4(54) = line56
Dim line57 As Line = CType(workPart.Lines.FindObject("ENTITY 3 36 1"), Line)
objects4(55) = line57
Dim line58 As Line = CType(workPart.Lines.FindObject("ENTITY 3 67 1"), Line)
objects4(56) = line58
Dim line59 As Line = CType(workPart.Lines.FindObject("ENTITY 3 19 1"), Line)
objects4(57) = line59
objects4(58) = line2
Dim line60 As Line = CType(workPart.Lines.FindObject("ENTITY 3 65 1"), Line)
objects4(59) = line60
Dim line61 As Line = CType(workPart.Lines.FindObject("ENTITY 3 9 1"), Line)
objects4(60) = line61
Dim line62 As Line = CType(workPart.Lines.FindObject("ENTITY 3 57 1"), Line)
objects4(61) = line62
Dim line63 As Line = CType(workPart.Lines.FindObject("ENTITY 3 4 1"), Line)
objects4(62) = line63
Dim line64 As Line = CType(workPart.Lines.FindObject("ENTITY 3 6 1"), Line)
objects4(63) = line64
Dim line65 As Line = CType(workPart.Lines.FindObject("ENTITY 3 60 1"), Line)
objects4(64) = line65
Dim line66 As Line = CType(workPart.Lines.FindObject("ENTITY 3 10 1"), Line)
objects4(65) = line66
Dim line67 As Line = CType(workPart.Lines.FindObject("ENTITY 3 35 1"), Line)
objects4(66) = line67
Dim line68 As Line = CType(workPart.Lines.FindObject("ENTITY 3 51 1"), Line)
objects4(67) = line68
Dim line69 As Line = CType(workPart.Lines.FindObject("ENTITY 3 68 1"), Line)
objects4(68) = line69
Dim line70 As Line = CType(workPart.Lines.FindObject("ENTITY 3 41 1"), Line)
objects4(69) = line70
Dim line71 As Line = CType(workPart.Lines.FindObject("ENTITY 3 70 1"), Line)
objects4(70) = line71
Dim line72 As Line = CType(workPart.Lines.FindObject("ENTITY 3 23 1"), Line)
objects4(71) = line72
Dim line73 As Line = CType(workPart.Lines.FindObject("ENTITY 3 14 1"), Line)
objects4(72) = line73
displayModification1.Apply(objects4)
displayModification1.Dispose()
' ----------------------------------------------
' Menu: Tools->Journal->Stop Recording
' ----------------------------------------------
End Sub
End Module
re: grid
What would this grid of lines do for you that turning on NX's grid cannot? {Preferences -> Grid}
The grid would be able to be
The grid would be able to be originated on a WCS or Body and plottable? if thats a word.
https://dl.dropboxusercontent.com/u/73951307/Rob_4405-1_A_net_weld_fixture%28RH%29.pdf
see pdf in my dropbox
re: grid journal
Below is a bare bones journal that will create a grid of lines. It draws on the WCS XY plane, on the work layer, with the current color settings; change the grid settings as desired before running the journal. A more "feature complete" journal may prompt the user for these settings.
'NXJournaling.com
'May 6, 2014
'journal to create grid of lines on the WCS
Option Strict Off
Imports System
Imports NXOpen
Module Module1
Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim lw As ListingWindow = theSession.ListingWindow
Sub Main()
If IsNothing(theSession.Parts.Work) Then
'active part required
Return
End If
lw.Open()
Const undoMarkName As String = "NXJ Gridlines"
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, undoMarkName)
'*****************************************
'variables controlling grid, change these as desired
Const GridLengthX As Double = 500
Const GridLengthY As Double = 500
Const GridOffsetX As Double = 100
Const GridOffsetY As Double = 100
Const numX As Integer = 5
Const numY As Integer = 5
'*****************************************
Try
Dim startPt As New Point3d(workPart.WCS.Origin.X, workPart.WCS.Origin.Y, workPart.WCS.Origin.Z)
'generate grid lines parallel to the WCS X axis
Dim dirLength As New Vector3d(workPart.WCS.CoordinateSystem.Orientation.Element.Xx, _
workPart.WCS.CoordinateSystem.Orientation.Element.Xy, _
workPart.WCS.CoordinateSystem.Orientation.Element.Xz)
'offset in the +Y direction
Dim dirOffset As New Vector3d(workPart.WCS.CoordinateSystem.Orientation.Element.Yx, _
workPart.WCS.CoordinateSystem.Orientation.Element.Yy, _
workPart.WCS.CoordinateSystem.Orientation.Element.Yz)
Call GenerateGridLines(startPt, dirLength, dirOffset, GridLengthX, GridOffsetX, numX)
'generate grid lines parallel to the WCS Y axis
dirLength = New Vector3d(workPart.WCS.CoordinateSystem.Orientation.Element.Yx, _
workPart.WCS.CoordinateSystem.Orientation.Element.Yy, _
workPart.WCS.CoordinateSystem.Orientation.Element.Yz)
'offset in the +X direction
dirOffset = New Vector3d(workPart.WCS.CoordinateSystem.Orientation.Element.Xx, _
workPart.WCS.CoordinateSystem.Orientation.Element.Xy, _
workPart.WCS.CoordinateSystem.Orientation.Element.Xz)
Call GenerateGridLines(startPt, dirLength, dirOffset, GridLengthY, GridOffsetY, numY)
Catch ex As NXException
theSession.UndoToMark(markId1, undoMarkName)
MsgBox(ex.Message)
Finally
End Try
lw.Close()
End Sub
Public Sub GenerateGridLines(ByVal startPt As Point3d, _
ByVal dirLength As Vector3d, _
ByVal dirOffset As Vector3d, _
ByVal lengthLine As Double, _
ByVal lengthOffset As Double, _
ByVal count As Double)
'normalize the line direction and offset vectors
Dim lengthMagnitude As Double = Math.Sqrt(dirLength.X ^ 2 + dirLength.Y ^ 2 + dirLength.Z ^ 2)
dirLength.X /= lengthMagnitude
dirLength.Y /= lengthMagnitude
dirLength.Z /= lengthMagnitude
Dim offsetMagnitude As Double = Math.Sqrt(dirOffset.X ^ 2 + dirOffset.Y ^ 2 + dirOffset.Z ^ 2)
dirOffset.X /= offsetMagnitude
dirOffset.Y /= offsetMagnitude
dirOffset.Z /= offsetMagnitude
For i As Integer = 0 To count - 1
Dim ptTemp As Point3d
ptTemp.X = startPt.X + dirOffset.X * (i * lengthOffset)
ptTemp.Y = startPt.Y + dirOffset.Y * (i * lengthOffset)
ptTemp.Z = startPt.Z + dirOffset.Z * (i * lengthOffset)
Dim ptStart As Point = workPart.Points.CreatePoint(ptTemp)
Dim ptEnd As Point = workPart.Points.CreatePoint(New Point3d(ptTemp.X + lengthLine * dirLength.X, _
ptTemp.Y + lengthLine * dirLength.Y, _
ptTemp.Z + lengthLine * dirLength.Z))
Dim tempLine As Line = workPart.Curves.CreateLine(ptStart, ptEnd)
tempLine.SetVisibility(SmartObject.VisibilityOption.Visible)
Next
End Sub
Public Function GetUnloadOption(ByVal dummy As String) As Integer
'Unloads the image when the NX session terminates
GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
'----Other unload options-------
'Unloads the image immediately after execution within NX
'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Immediately
'Unloads the image explicitly, via an unload dialog
'GetUnloadOption = NXOpen.Session.LibraryUnloadOption.Explicitly
'-------------------------------
End Function
End Module