Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations TugboatEng on being selected by the Eng-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. FrankSwinks

    Move each objects on specified layer to another layer

    ...theSession.ListingWindow.WriteLine("Failed: " & e.ToString) End Try theSession.Parts.SetWork(dispPart) End Sub '********************************************************** Sub reportComponentChildren(ByVal comp As Component, ByVal indent As Integer) For...
  2. FrankSwinks

    Through mesh curve NX9.0

    To change a spline from degree 1 to a degree 3 spline I suggest you try the following. For a given spline 1) Create a point set of type = Spline Points and subtype = Poles 2) Create a fit curve using type = Fit Spline Select the point set created Parameterization Method = Degree and...
  3. FrankSwinks

    Curve fitting using UF_MODL_create_fitted_spline with end slopes

    Can I suggest you set the tolerance to a larger value say 0.01. The output the maximum error and the point at which the maximum error occurs. I ran your data with no slope control then the maximum error was 0.008 at point 4 (point numbers 1 to 7) I then ran it using your end slopes and the...
  4. FrankSwinks

    Extract Center line of a cylindrical body

    ...- 7 Step 3 vparm(i) = knotsV(i + 2) + (knotsV(i + 3) - knotsV(i + 2)) / 3.0 vparm(i + 1) = knotsV(i + 2) + 2.0 * (knotsV(i + 3) - knotsV(i + 2)) / 3.0 vparm(i + 2) = knotsV(i + 3) Next Dim ArrayOfPoints(vparm.Length - 1)...
  5. FrankSwinks

    Extract Center line of a cylindrical body

    My latest program did not allow for faces that are open in one direction. That is if the cylindrical surface is made up of say two 180 degree arc faces then the program will not work. If this is what you are referring to please let us know this and I can looking at adding it to the program...
  6. FrankSwinks

    NX 9 - COMPILE + SIGN - VB.NET

    I use SignDotNet.exe to sign NX6, NX7.5, NX8.5 and NX9 all with no problems for users. Frank Swinkels
  7. FrankSwinks

    Are Edges Tangent?

    Here is a journal that goes part of the way for what I think you want. The journal ask you to select a face. The journal then gets all edges of that selected face. Then for each edge we get the adjacent faces and checking for a point on the edge I get the normal on both faces at this point...
  8. FrankSwinks

    Simple way to create spline normal to face? , NX7.5

    ...Public Function MyUnitizeVector(ByVal v1 As Vector3d) As Vector3d Dim v2 As Vector3d Dim length As Double = Math.Sqrt(v1.X * v1.X + v1.Y * v1.Y + v1.Z * v1.Z) v2.X = v1.X / length v2.Y = v1.Y / length v2.Z = v1.Z / length Return v2 End...
  9. FrankSwinks

    Help me with a Journal to report the text strings in a Multisheet drawing (label or notes)

    Here is the modified journal to take into account multiple line labels Option Strict Off Imports System Imports NXOpen Imports NXOpen.UF Imports NXOpenUI Imports NXOpen.Utilities Imports NXOpen.Annotations Module GetWordInfo Dim s As Session = Session.GetSession() Dim ufs As UFSession...
  10. FrankSwinks

    Looking for a journal which gives total length of cable

    ...1.0 Dim lengths(noPolesV - 2) As Double sum1 = 0.0 cnt1 = 0 For i As Integer = noPolesU To noPolesU * noPolesV - 1 Step noPolesU pnt1(0) = poles1(i, 0) pnt1(1) = poles1(i, 1) pnt1(2) = poles1(i, 2)...
  11. FrankSwinks

    Looking for a journal which gives total length of cable

    ...- 1) = 1.0 Dim lengths(noPolesV - 2) As Double sum1 = 0.0 cnt1 = 0 For i As Integer = noPolesU To noPolesU * noPolesV - 1 Step noPolesU pnt1(0) = poles1(i, 0) pnt1(1) = poles1(i, 1) pnt1(2) = poles1(i, 2) pnt2(0)...
  12. FrankSwinks

    Looking for a journal which gives total length of cable

    To create the BSurface make the following changes to your journal 1. Add the following dim lines Dim extractedfeat1 As Feature = Nothing Dim extractedbodyfeat1 As BodyFeature = Nothing Dim extractedbody1() As Body = Nothing Dim faces() As Face 2. Change the first try catch in main to read...
  13. FrankSwinks

    UDF with Parent/Child Dependent Components - NX6

    Attached is a part in which I created what I think you are looking for. I then created a udf and inserted a second hole. What I have done different is that I have used a projected point from which I then create the lower simple hole. Frank Swinkels...
  14. FrankSwinks

    NXOpen-FitCurve

    I took another look at this. First I assume you are using NX8.5? My code is using VB. After the fitcurve has been created you can get the feature like this Dim fitcurvefeat As features.feature = fitCurveBuilder1.getfeature Hope this helps. Frank Swinkels
  15. FrankSwinks

    NXOpen-FitCurve

    The commit method for fitcurvebuilder indicates that "Commits any edits that have been applied to the builder". If you want to access the fitcurve feature then use the CommitFeature method.
  16. FrankSwinks

    Points transformation

    Or just delete the line Dim lstSelFaces As List(Of Face) = New List(Of Face) When I wrote the journal I started with the existing previous journal. It does nothing in my journal. Frank Swinkels
  17. FrankSwinks

    Points transformation

    ...Dim projpnt13d As Point3d = New Point3d(pnt1(0), 0.0, _ Math.Sqrt(pnt1(1) * pnt1(1) + _ pnt1(2) * pnt1(2))) ArrayOfPoints(i) =...
  18. FrankSwinks

    new to nx need some programming suggestion

    I have attached a demonstration for simple journal to enable applying rules for as many features as you want. My simple example part contains seven features (4 blocks and 3 cylinders). I have applied names to each features. I have also applied a suppression expression to each feature. The...
  19. FrankSwinks

    Journal to set/ change dimensions tolerance

    You have two code errors in the section if x1 = 100 then horizontalDimension1.SetDimensionText(text1) else horizontalDimension1.SetDimensionText(text2) end if It should be If x1(0) = "100" Then horizontalDimension1.SetDimensionText(text1) Else...
  20. FrankSwinks

    Journal to set/ change dimensions tolerance

    OK Here is one more try. Frank Swinkelshttp://files.engineering.com/getfile.aspx?folder=8163cbfa-a7ee-4f68-a216-127fe4be7335&file=NXDialogTolerances2.zip

Part and Inventory Search

Back
Top