Quantcast
Channel: NX Journaling - Journaling / NXOpen API
Viewing all 783 articles
Browse latest View live
↧

FindObject Problem

June 9, 2016, 2:04 am
$
0
0
Forums: 
Journaling / NXOpen API

Hello, I'm new for Journal programing and stuggling on two cases below to resolve FindObject problem. In order to make my program generic, I replaced CType,FindObject which were produced during recording with For-each-Loop. But, it doesn't work. Please help me to resolve the situation.

Thank you in advance,
Kazu

******************
*** First Case ***
******************

Dim measure1 As measure
measure1 = measureRectanglarExtream1.CreateFeature()
'----------------------------------
'Dim toppoint As Point = Ctype(measure1.Findobject("POINT 1"),Point)
'----------------------------------

'--- I added "For each loop" below instead of Ctype,Findobject
For each toppoint as Point in measure1
lw.WriteLine(" In the Loop ")
Next

' Do SectionCurveBuilder using toppoint

*******************
*** Second case ***
*******************

' extrude1 below was produced from ExtrudeBuilder
Dim extrude1 As feature.Extrude
'----------------------------------
'Dim face1 As face = Ctype(extrude1.Findobject("FACE 160{(x,y,z) EXTRUDE(89)}",Face)
'----------------------------------

'--- I added For each loop below instead of Ctype,Findobject
For Each face1 As Face in extrude1
lw.WriteLine(" In the Loop ")
Next

' Do OffSetSurfaceBuilder using face1

↧
Search

Discover X, Y, Z coordinates of a Point

June 9, 2016, 12:53 pm
$
0
0
Forums: 
Journaling / NXOpen API

Hello,

I would like to know if there is a way to extract X, Y, Z coordinates from a Point.
In particular way, the point of my code is generated from an intersection between two known curves (spline and arc).

Dim intersection_point As NXOpen.Point
intersection_point = workPart.Points.CreatePoint(spline, arc, nullNXOpen_Point, nullNXOpen_Point, NXOpen.SmartObject.UpdateOption.WithinModeling)
intersection_point.SetVisibility(NXOpen.SmartObject.VisibilityOption.Visible)

My goal is to discover at least the X coordinate of this intersection point to be able to create a new point which is mirrored with respect to the X axis.

Any help is much appreciated.
Regards,

kalo86

↧
↧

Three Tangent Arc/Circle

June 10, 2016, 3:23 am
$
0
0
Forums: 
Journaling / NXOpen API

Hello,

In these days I'm trying to automatize the creation of an arc/circle which is 3-tangent to three known curves (in my case two splines and one arc).

Recording the journal I notice that the arc is created with the 3 points method and these 3 points are the tangent ones (or intersection) between curve and tangent arc.
The problem is that I don't know the coordinates of the 3 points where I have the tangent constaints.
In fact, when creating the arc manually, I select only the 3 objects without knowing where will be the tangent constaints. When I select the last curve, then I can see the preview of the arc which is 3-tangent.

See example image here: http://i67.tinypic.com/245j589.png

Is there a way to make this command work?

Thank you in advance,

kalo86

↧

LoadThisPartFully error on Workpart

June 10, 2016, 8:56 am
$
0
0
Forums: 
Journaling / NXOpen API

I have a journal that creates mirrored wave linked bodies. In order to do it I need to have a part fully loaded.
But I get error when I select the bodies inside the workpart. It's because of the code for loading parts fully as below:

Dim part1 As Part = myBody.OwningComponent.Prototype.OwningPart 
If part1.IsFullyLoaded=FalseThen part1.LoadThisPartFully()

I know it crashes on .OwningComponent.Prototype.OwningPart

How can I check if the body belongs to the workpart (which is normally fully loaded) and I could skip the code to load it fully?

↧

Check if part is already loaded in session

June 13, 2016, 6:58 am
$
0
0
Forums: 
Journaling / NXOpen API

I'm creating my own "library" Form from where I insert often used parts.

I have a problem with inserting a component when it's already loaded into a session.

For the moment I use Try...Catch. There is a collection of theSession.Parts which I assume I could check somehow if there is already a part which I want to load...
Could you help me with that?

TryDim basePart As BasePart
   Dim partLoadStatus1 As PartLoadStatus
   basePart = theSession.Parts.OpenBase(pfile, partLoadStatus1)
   partLoadStatus1.Dispose()Catch ex As Exception
   lw.writeline(ex.Message) 
EndTry
↧
↧

How to exclude shared edge for TrimExtend Builder ?

June 14, 2016, 7:51 pm
$
0
0
Forums: 
Journaling / NXOpen API

I'm working on creating Journal for TrimExtendBuilder.
Suppose there is a body shown as below diagram.I want to extend its perimeter outward by 10mm.

When I launch TrimExtend command interactively, system let user select only perimeter edges ("OOOOO" and "O--M--O" in the diagram). So, we don't select shared edge ("MMMM") in the middle of the body.

O--M--O
O--M--O
O--M--O
O--M--O

I wrote journal below for TrimExtend Builder, But,the for each loop detects all edges including shared edge,"MMMM". As a result, I got error during TrimExtend Builder. I want to exclude the middle edge as interactive mode does. How can I do this (excluding middle edge) in journal?

''' Journal ''''
Dim MyBody as Featers.Body
For each TempEdge as Edge in MyBody
' Do TrimExtend Builder with selected edges
Next

Thank in advance,
Kazu

↧

Create profile & extrude it

June 16, 2016, 3:56 am
$
0
0
Forums: 
Journaling / NXOpen API

Hi,

i have a points in one plane, I have to create profile with these points in one sketch & extrude it using nxopen. Plz help me in this

Tak

↧

Get user to select and fill surface

June 16, 2016, 11:01 pm
$
0
0
Forums: 
Journaling / NXOpen API

Hi all! I am new to NX Open Journaling.
Recently I am trying to modified the journal that I've created so that user can select a group of projected curve and fill surface.
As I am quite new to NX Journaling, the code that I modified cant work!
Any help will be ok! Thanks in advance!!!

' NX 10.0.3.5' Journal created by ManTech-Sin on Fri Jun 17 13:55:01 2016 Malay Peninsula Standard Time'Option Strict OffImports System
Imports NXOpen
Imports NXOpen.UFImports NXOpen.UI 
Module NXJournal
Sub Main (ByVal args()AsString) 
Dim theSession As NXOpen.Session= NXOpen.Session.GetSession()Dim workPart As NXOpen.Part= theSession.Parts.Work 
Dim displayPart As NXOpen.Part= theSession.Parts.Display 
' ----------------------------------------------'   Menu: Insert->Surface->Fill Surface...' ----------------------------------------------Dim markId1 As NXOpen.Session.UndoMarkId
markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Start") 
Dim nullNXOpen_Features_FillHole As NXOpen.Features.FillHole=Nothing 
 
IfNot workPart.Preferences.Modeling.GetHistoryModeThenThrow(New Exception("Create or edit of a Feature was recorded in History Mode but playback is in History-Free Mode."))EndIf 
Dim fillHoleBuilder1 As NXOpen.Features.FillHoleBuilder
fillHoleBuilder1 = workPart.Features.FreeformSurfaceCollection.CreateFillHoleBuilder(nullNXOpen_Features_FillHole) 
fillHoleBuilder1.Tolerance=0.01 
fillHoleBuilder1.DefaultEdgeContinuity= NXOpen.Features.FillHoleBuilder.ContinuityTypes.G1 
fillHoleBuilder1.Fullness.RightHandSide="0" 
theSession.SetUndoMarkName(markId1, "Fill Surface Dialog") 
fillHoleBuilder1.CurveChain.DistanceTolerance=0.01 
fillHoleBuilder1.CurveChain.ChainingTolerance=0.0095 
fillHoleBuilder1.SelectPassThrougCurves.DistanceTolerance=0.01 
fillHoleBuilder1.SelectPassThrougCurves.ChainingTolerance=0.0095 
fillHoleBuilder1.CurveChain.SetAllowedEntityTypes(NXOpen.Section.AllowTypes.OnlyCurves) 
Dim markId2 As NXOpen.Session.UndoMarkId
markId2 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "section mark") 
Dim markId3 As NXOpen.Session.UndoMarkId
markId3 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, Nothing) 
Dim features1(0)As NXOpen.Features.Feature'Dim projectCurve1 As NXOpen.Features.ProjectCurve = CType(workPart.Features.FindObject("CPROJ(134)"), NXOpen.Features.ProjectCurve)'addDim projectCurve1 As Curve =NothingIf SelectCurve("Select a curve", projectCurve1)= Selection.Response.CancelThenReturnEndIf'end
features1(0)= projectCurve1
Dim curveFeatureRule1 As NXOpen.CurveFeatureRule
curveFeatureRule1 = workPart.ScRuleFactory.CreateRuleCurveFeature(features1) 
fillHoleBuilder1.CurveChain.AllowSelfIntersection(True) 
Dim rules1(0)As NXOpen.SelectionIntentRule
rules1(0)= curveFeatureRule1
Dim nullNXOpen_NXObject As NXOpen.NXObject=Nothing 
Dim helpPoint1 As NXOpen.Point3d=New NXOpen.Point3d(0.0, 0.0, 0.0)
fillHoleBuilder1.CurveChain.AddToSection(rules1, nullNXOpen_NXObject, nullNXOpen_NXObject, nullNXOpen_NXObject, helpPoint1, NXOpen.Section.Mode.Create, False) 
theSession.DeleteUndoMark(markId3, Nothing) 
' Dim markertonodelistitem1(150) As NXOpen.Features.FillHoleBuilder.BorderContinuity' Dim spline1 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 1 {9 (-22.2915218937917,-11.2692456554817,884.5167247292206)}"), NXOpen.Spline) 
' markertonodelistitem1(0).BorderObject = spline1' markertonodelistitem1(0).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline2 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 151 {9 (-22.171133236995,-11.1065728520564,882.8404612389408)}"), NXOpen.Spline) 
' markertonodelistitem1(1).BorderObject = spline2' markertonodelistitem1(1).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline3 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 150 {9 (-21.8233682623084,-10.8785873645389,882.5642058438201)}"), NXOpen.Spline) 
' markertonodelistitem1(2).BorderObject = spline3' markertonodelistitem1(2).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline4 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 149 {9 (-21.4697583124097,-10.6482926531905,882.2996236610569)}"), NXOpen.Spline) 
' markertonodelistitem1(3).BorderObject = spline4' markertonodelistitem1(3).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline5 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 148 {9 (-21.1029587385432,-10.4120018318159,882.0627038605994)}"), NXOpen.Spline) 
' markertonodelistitem1(4).BorderObject = spline5' markertonodelistitem1(4).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline6 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 147 {9 (-20.7507314409325,-10.1836592836219,881.7937995304684)}"), NXOpen.Spline) 
' markertonodelistitem1(5).BorderObject = spline6' markertonodelistitem1(5).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline7 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 146 {9 (-20.3359158866375,-9.8769966320938,880.687332278698)}"), NXOpen.Spline) 
' markertonodelistitem1(6).BorderObject = spline7' markertonodelistitem1(6).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline8 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 145 {9 (-20.5766457661628,-9.9519450174135,879.2532459917575)}"), NXOpen.Spline) 
' markertonodelistitem1(7).BorderObject = spline8' markertonodelistitem1(7).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline9 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 144 {9 (-20.8912478302695,-9.8659474938311,873.8322501487013)}"), NXOpen.Spline) 
' markertonodelistitem1(8).BorderObject = spline9' markertonodelistitem1(8).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline10 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 143 {9 (-20.2531571967306,-9.2565153113786,869.3243739573165)}"), NXOpen.Spline) 
' markertonodelistitem1(9).BorderObject = spline10' markertonodelistitem1(9).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline11 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 142 {9 (-19.8406326629812,-8.9578123736371,868.2035970317062)}"), NXOpen.Spline) 
' markertonodelistitem1(10).BorderObject = spline11' markertonodelistitem1(10).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline12 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 141 {9 (-19.0684406937372,-8.438999538351,866.8189319841059)}"), NXOpen.Spline) 
' markertonodelistitem1(11).BorderObject = spline12' markertonodelistitem1(11).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline13 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 140 {9 (-17.9850792013855,-7.7754561852675,866.0300847778876)}"), NXOpen.Spline) 
' markertonodelistitem1(12).BorderObject = spline13' markertonodelistitem1(12).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline14 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 139 {9 (-17.5645387856441,-7.4794086023004,864.9201302375739)}"), NXOpen.Spline) 
' markertonodelistitem1(13).BorderObject = spline14' markertonodelistitem1(13).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline15 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 138 {9 (-17.1370127623064,-7.1813025045903,863.8248271953069)}"), NXOpen.Spline) 
' markertonodelistitem1(14).BorderObject = spline15' markertonodelistitem1(14).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline16 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 137 {9 (-16.42642468934,-6.7505919432836,863.2672204788358)}"), NXOpen.Spline) 
' markertonodelistitem1(15).BorderObject = spline16' markertonodelistitem1(15).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline17 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 136 {9 (-16.3568260135304,-6.6707713491167,862.4429654961429)}"), NXOpen.Spline) 
' markertonodelistitem1(16).BorderObject = spline17' markertonodelistitem1(16).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline18 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 135 {9 (-15.9988905754835,-6.4553405204388,862.1689506138704)}"), NXOpen.Spline) 
' markertonodelistitem1(17).BorderObject = spline18' markertonodelistitem1(17).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline19 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 134 {9 (-15.0028720535865,-5.8939931466896,862.1507191109275)}"), NXOpen.Spline) 
' markertonodelistitem1(18).BorderObject = spline19' markertonodelistitem1(18).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline20 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 133 {9 (-14.5597540921103,-5.5951633750293,861.0847572947608)}"), NXOpen.Spline) 
' markertonodelistitem1(19).BorderObject = spline20' markertonodelistitem1(19).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline21 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 132 {9 (-13.8464735126149,-5.1707939694111,860.5249064509952)}"), NXOpen.Spline) 
' markertonodelistitem1(20).BorderObject = spline21' markertonodelistitem1(20).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline22 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 131 {9 (-13.4911245021599,-4.9599044311548,860.241228551513)}"), NXOpen.Spline) 
' markertonodelistitem1(21).BorderObject = spline22' markertonodelistitem1(21).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline23 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 130 {9 (-13.4171268078093,-4.8807908462602,859.4246262543966)}"), NXOpen.Spline) 
' markertonodelistitem1(22).BorderObject = spline23' markertonodelistitem1(22).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline24 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 129 {9 (-12.354335035842,-4.2533895395965,858.5614877456936)}"), NXOpen.Spline) 
' markertonodelistitem1(23).BorderObject = spline24' markertonodelistitem1(23).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline25 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 128 {9 (-11.291150495176,-3.6299811376359,857.694147458006)}"), NXOpen.Spline) 
' markertonodelistitem1(24).BorderObject = spline25' markertonodelistitem1(24).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline26 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 127 {9 (-11.1998654316019,-3.544986567244,856.9173452890839)}"), NXOpen.Spline) 
' markertonodelistitem1(25).BorderObject = spline26' markertonodelistitem1(25).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline27 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 126 {9 (-10.8424688098472,-3.3371153555258,856.6339195337212)}"), NXOpen.Spline) 
' markertonodelistitem1(26).BorderObject = spline27' markertonodelistitem1(26).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline28 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 125 {9 (-10.4891122547656,-3.1314860802664,856.3406309769159)}"), NXOpen.Spline) 
' markertonodelistitem1(27).BorderObject = spline28' markertonodelistitem1(27).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline29 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 124 {9 (-10.1293935852297,-2.9235206126858,856.0616940453288)}"), NXOpen.Spline) 
' markertonodelistitem1(28).BorderObject = spline29' markertonodelistitem1(28).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline30 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 123 {9 (-9.4519715026033,-2.5490872590992,855.9001260281542)}"), NXOpen.Spline) 
' markertonodelistitem1(29).BorderObject = spline30' markertonodelistitem1(29).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline31 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 122 {9 (-9.0797829342493,-2.3369026111929,855.6498367698337)}"), NXOpen.Spline) 
' markertonodelistitem1(30).BorderObject = spline31' markertonodelistitem1(30).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline32 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 121 {9 (-8.3969225752872,-1.9619699334989,855.4991046154821)}"), NXOpen.Spline) 
' markertonodelistitem1(31).BorderObject = spline32' markertonodelistitem1(31).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline33 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 120 {9 (-7.6495191605629,-1.5392297796202,855.003404172322)}"), NXOpen.Spline) 
' markertonodelistitem1(32).BorderObject = spline33' markertonodelistitem1(32).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline34 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 119 {9 (-6.6368000377818,-0.9963222072986,854.9945580080047)}"), NXOpen.Spline) 
' markertonodelistitem1(33).BorderObject = spline34' markertonodelistitem1(33).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline35 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 118 {9 (-5.262970466141,-0.2523834526289,854.7052872573465)}"), NXOpen.Spline) 
' markertonodelistitem1(34).BorderObject = spline35' markertonodelistitem1(34).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline36 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 117 {9 (-3.2287524176915,0.8254848905661,854.7018768214566)}"), NXOpen.Spline) 
' markertonodelistitem1(35).BorderObject = spline36' markertonodelistitem1(35).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline37 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 116 {9 (-1.8719528903062,1.5349995849971,854.8520377416953)}"), NXOpen.Spline) 
' markertonodelistitem1(36).BorderObject = spline37' markertonodelistitem1(36).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline38 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 115 {9 (-1.4855045576472,1.745242467676,854.6300758417491)}"), NXOpen.Spline) 
' markertonodelistitem1(37).BorderObject = spline38' markertonodelistitem1(37).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline39 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 114 {9 (-0.7857615393733,2.1156988181731,854.5084158458186)}"), NXOpen.Spline) 
' markertonodelistitem1(38).BorderObject = spline39' markertonodelistitem1(38).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline40 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 113 {9 (-0.0920662057753,2.4823714523136,854.369992956641)}"), NXOpen.Spline) 
' markertonodelistitem1(39).BorderObject = spline40' markertonodelistitem1(39).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline41 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 112 {9 (0.5353561530601,2.8032189664495,854.5708572096893)}"), NXOpen.Spline) 
' markertonodelistitem1(40).BorderObject = spline41' markertonodelistitem1(40).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline42 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 111 {9 (1.2451883283052,3.1752286915244,854.4717762354918)}"), NXOpen.Spline) 
' markertonodelistitem1(41).BorderObject = spline42' markertonodelistitem1(41).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline43 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 110 {9 (2.2586507526771,3.7012856559288,854.4444199957221)}"), NXOpen.Spline) 
' markertonodelistitem1(42).BorderObject = spline43' markertonodelistitem1(42).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline44 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 109 {9 (3.2746565695342,4.2265855024242,854.4219374117965)}"), NXOpen.Spline) 
' markertonodelistitem1(43).BorderObject = spline44' markertonodelistitem1(43).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline45 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 108 {9 (4.9780220988673,5.0952145975999,854.7173258500542)}"), NXOpen.Spline) 
' markertonodelistitem1(44).BorderObject = spline45' markertonodelistitem1(44).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline46 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 107 {9 (6.6704529384616,5.9541313226338,855.0419751166595)}"), NXOpen.Spline) 
' markertonodelistitem1(45).BorderObject = spline46' markertonodelistitem1(45).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline47 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 106 {9 (7.3374714185976,6.2885297641749,855.3390384284749)}"), NXOpen.Spline) 
' markertonodelistitem1(46).BorderObject = spline47' markertonodelistitem1(46).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline48 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 105 {9 (8.9451104775472,7.0876554218513,856.4693242991831)}"), NXOpen.Spline) 
' markertonodelistitem1(47).BorderObject = spline48' markertonodelistitem1(47).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline49 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 104 {9 (10.5677354937713,7.8969509072169,857.5862903450218)}"), NXOpen.Spline) 
' markertonodelistitem1(48).BorderObject = spline49' markertonodelistitem1(48).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline50 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 103 {9 (11.0491952572415,8.1364427827086,858.0205780540809)}"), NXOpen.Spline) 
' markertonodelistitem1(49).BorderObject = spline50' markertonodelistitem1(49).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline51 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 102 {9 (11.355040219411,8.2856684549956,858.6187267112421)}"), NXOpen.Spline) 
' markertonodelistitem1(50).BorderObject = spline51' markertonodelistitem1(50).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline52 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 101 {9 (11.8448884133474,8.5303589769516,859.0773199146188)}"), NXOpen.Spline) 
' markertonodelistitem1(51).BorderObject = spline52' markertonodelistitem1(51).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline53 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 100 {9 (12.5175025227315,8.8693518642157,859.391718343538)}"), NXOpen.Spline) 
' markertonodelistitem1(52).BorderObject = spline53' markertonodelistitem1(52).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline54 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 99 {9 (13.4670876541339,9.3461208851325,860.2283408177293)}"), NXOpen.Spline) 
' markertonodelistitem1(53).BorderObject = spline54' markertonodelistitem1(53).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline55 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 98 {9 (14.4357449718577,9.8342719040055,861.1195976867732)}"), NXOpen.Spline) 
' markertonodelistitem1(54).BorderObject = spline55' markertonodelistitem1(54).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline56 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 97 {9 (15.0113888001087,10.1252991151271,862.2282923748654)}"), NXOpen.Spline) 
' markertonodelistitem1(55).BorderObject = spline56' markertonodelistitem1(55).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline57 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 96 {9 (15.6806116056226,10.4651653487641,862.5364239420462)}"), NXOpen.Spline) 
' markertonodelistitem1(56).BorderObject = spline57' markertonodelistitem1(56).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline58 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 95 {9 (17.0340216253852,11.1580991905859,864.2054969780191)}"), NXOpen.Spline) 
' markertonodelistitem1(57).BorderObject = spline58' markertonodelistitem1(57).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline59 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 94 {9 (18.6148820876668,11.979222202084,866.3227674778027)}"), NXOpen.Spline) 
' markertonodelistitem1(58).BorderObject = spline59' markertonodelistitem1(58).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline60 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 93 {9 (18.84451481019,12.1014344814954,866.7895937354294)}"), NXOpen.Spline) 
' markertonodelistitem1(59).BorderObject = spline60' markertonodelistitem1(59).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline61 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 92 {9 (19.131412419144,12.2545890452211,867.3497288835141)}"), NXOpen.Spline) 
' markertonodelistitem1(60).BorderObject = spline61' markertonodelistitem1(60).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline62 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 91 {9 (20.0774335226556,12.7493346935395,868.2228775373688)}"), NXOpen.Spline) 
' markertonodelistitem1(61).BorderObject = spline62' markertonodelistitem1(61).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline63 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 90 {9 (20.4838155033583,12.9703134481341,869.0450906409487)}"), NXOpen.Spline) 
' markertonodelistitem1(62).BorderObject = spline63' markertonodelistitem1(62).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline64 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 89 {9 (20.2674208329083,12.8699261227786,869.6203339139494)}"), NXOpen.Spline) 
' markertonodelistitem1(63).BorderObject = spline64' markertonodelistitem1(63).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline65 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 88 {9 (20.2240301165015,12.8554116465706,870.0446674782436)}"), NXOpen.Spline) 
' markertonodelistitem1(64).BorderObject = spline65' markertonodelistitem1(64).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline66 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 87 {9 (20.5060638055387,13.0111276668256,870.6275754552613)}"), NXOpen.Spline) 
' markertonodelistitem1(65).BorderObject = spline66' markertonodelistitem1(65).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline67 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 86 {9 (20.7601049502028,13.1624968763074,871.6431382628576)}"), NXOpen.Spline) 
' markertonodelistitem1(66).BorderObject = spline67' markertonodelistitem1(66).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline68 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 85 {9 (21.2332785405727,13.4275262906025,872.5946540860767)}"), NXOpen.Spline) 
' markertonodelistitem1(67).BorderObject = spline68' markertonodelistitem1(67).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline69 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 84 {9 (21.5625642662422,13.6137835740203,873.271765916507)}"), NXOpen.Spline) 
' markertonodelistitem1(68).BorderObject = spline69' markertonodelistitem1(68).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline70 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 83 {9 (21.3377747728906,13.5118176666237,873.8358499139171)}"), NXOpen.Spline) 
' markertonodelistitem1(69).BorderObject = spline70' markertonodelistitem1(69).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline71 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 82 {9 (21.6231627669457,13.6749661322527,874.4271049930221)}"), NXOpen.Spline) 
' markertonodelistitem1(70).BorderObject = spline71' markertonodelistitem1(70).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline72 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 81 {9 (21.919499400147,13.8452529535096,875.0362410163388)}"), NXOpen.Spline) 
' markertonodelistitem1(71).BorderObject = spline72' markertonodelistitem1(71).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline73 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 80 {9 (22.1386100215506,13.9717899880966,875.485480706859)}"), NXOpen.Spline) 
' markertonodelistitem1(72).BorderObject = spline73' markertonodelistitem1(72).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline74 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 79 {9 (22.3067332026342,14.0691970281391,875.8279541339133)}"), NXOpen.Spline) 
' markertonodelistitem1(73).BorderObject = spline74' markertonodelistitem1(73).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline75 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 78 {9 (22.4335726372727,14.1584572922138,876.5918250017996)}"), NXOpen.Spline) 
' markertonodelistitem1(74).BorderObject = spline75' markertonodelistitem1(74).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline76 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 77 {9 (23.2046048546207,14.5953208201924,877.6655293738852)}"), NXOpen.Spline) 
' markertonodelistitem1(75).BorderObject = spline76' markertonodelistitem1(75).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline77 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 76 {9 (23.3228123578656,14.7025551615872,878.9605217887422)}"), NXOpen.Spline) 
' markertonodelistitem1(76).BorderObject = spline77' markertonodelistitem1(76).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline78 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 75 {9 (22.8961880823862,14.5029759244052,879.6328892618481)}"), NXOpen.Spline) 
' markertonodelistitem1(77).BorderObject = spline78' markertonodelistitem1(77).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline79 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 74 {9 (22.8240216191687,14.479003866961,880.0168896276258)}"), NXOpen.Spline) 
' markertonodelistitem1(78).BorderObject = spline79' markertonodelistitem1(78).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline80 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 73 {9 (22.6972914015195,14.4416717011657,880.8123592123703)}"), NXOpen.Spline) 
' markertonodelistitem1(79).BorderObject = spline80' markertonodelistitem1(79).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline81 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 72 {9 (22.5720960163543,14.405698602315,881.6101123043104)}"), NXOpen.Spline) 
' markertonodelistitem1(80).BorderObject = spline81' markertonodelistitem1(80).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline82 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 71 {9 (22.4373665343705,14.3645177538889,882.393216483296)}"), NXOpen.Spline) 
' markertonodelistitem1(81).BorderObject = spline82' markertonodelistitem1(81).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline83 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 70 {9 (22.3327849066511,14.3416634537076,883.2235060965891)}"), NXOpen.Spline) 
' markertonodelistitem1(82).BorderObject = spline83' markertonodelistitem1(82).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline84 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 69 {9 (22.2447330245824,14.3292507138571,884.0803389346413)}"), NXOpen.Spline) 
' markertonodelistitem1(83).BorderObject = spline84' markertonodelistitem1(83).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline85 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 68 {9 (22.528694259132,14.5062510874171,884.6774734189792)}"), NXOpen.Spline) 
' markertonodelistitem1(84).BorderObject = spline85' markertonodelistitem1(84).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline86 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 67 {9 (22.7882649015053,14.6695164638447,885.2370926947745)}"), NXOpen.Spline) 
' markertonodelistitem1(85).BorderObject = spline86' markertonodelistitem1(85).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline87 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 66 {9 (22.25592879437,14.4263656929266,886.2396535904729)}"), NXOpen.Spline) 
' markertonodelistitem1(86).BorderObject = spline87' markertonodelistitem1(86).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline88 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 65 {9 (21.7332575810101,14.1875660531272,887.2567413247713)}"), NXOpen.Spline) 
' markertonodelistitem1(87).BorderObject = spline88' markertonodelistitem1(87).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline89 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 64 {9 (21.6133259170592,14.1576336154757,888.0633354210205)}"), NXOpen.Spline) 
' markertonodelistitem1(88).BorderObject = spline89' markertonodelistitem1(88).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline90 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 63 {9 (21.4828840461821,14.1214458392503,888.8532986844253)}"), NXOpen.Spline) 
' markertonodelistitem1(89).BorderObject = spline90' markertonodelistitem1(89).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline91 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 62 {9 (20.9753499288038,13.8894631333761,889.8922840401878)}"), NXOpen.Spline) 
' markertonodelistitem1(90).BorderObject = spline91' markertonodelistitem1(90).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline92 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 61 {9 (20.7872330324272,13.839356576553,891.088349205853)}"), NXOpen.Spline) 
' markertonodelistitem1(91).BorderObject = spline92' markertonodelistitem1(91).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline93 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 60 {9 (20.4311661784514,13.6550541497128,891.3711204206242)}"), NXOpen.Spline) 
' markertonodelistitem1(92).BorderObject = spline93' markertonodelistitem1(92).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline94 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 59 {9 (20.3519464111505,13.6277392951719,891.7428204237202)}"), NXOpen.Spline) 
' markertonodelistitem1(93).BorderObject = spline94' markertonodelistitem1(93).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline95 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 58 {9 (20.2109796397033,13.5840226800956,892.514372149742)}"), NXOpen.Spline) 
' markertonodelistitem1(94).BorderObject = spline95' markertonodelistitem1(94).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline96 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 57 {9 (20.1078389314885,13.5641723208816,893.3471695215775)}"), NXOpen.Spline) 
' markertonodelistitem1(95).BorderObject = spline96' markertonodelistitem1(95).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline97 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 56 {9 (19.9949283673139,13.5382423291568,894.1642604733181)}"), NXOpen.Spline) 
' markertonodelistitem1(96).BorderObject = spline97' markertonodelistitem1(96).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline98 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 55 {9 (19.5553354052934,13.3206294690569,894.8096151975617)}"), NXOpen.Spline) 
' markertonodelistitem1(97).BorderObject = spline98' markertonodelistitem1(97).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline99 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 54 {9 (19.4097425755987,13.2730791297463,895.5720715094277)}"), NXOpen.Spline) 
' markertonodelistitem1(98).BorderObject = spline99' markertonodelistitem1(98).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline100 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 53 {9 (18.9470079638828,13.0384704497605,896.1778697431378)}"), NXOpen.Spline) 
' markertonodelistitem1(99).BorderObject = spline100' markertonodelistitem1(99).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline101 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 52 {9 (18.1977204903713,12.6346495079685,896.6772840000185)}"), NXOpen.Spline) 
' markertonodelistitem1(100).BorderObject = spline101' markertonodelistitem1(100).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline102 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 51 {9 (18.0589470229584,12.5888909767805,897.4486268915861)}"), NXOpen.Spline) 
' markertonodelistitem1(101).BorderObject = spline102' markertonodelistitem1(101).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline103 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 50 {9 (17.9155782380202,12.5399338768205,898.2120234373826)}"), NXOpen.Spline) 
' markertonodelistitem1(102).BorderObject = spline103' markertonodelistitem1(102).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline104 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 49 {9 (17.167441997672,12.1312038392225,898.7101909877302)}"), NXOpen.Spline) 
' markertonodelistitem1(103).BorderObject = spline104' markertonodelistitem1(103).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline105 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 48 {9 (16.6234155957377,11.8569717155719,899.6746475837661)}"), NXOpen.Spline) 
' markertonodelistitem1(104).BorderObject = spline105' markertonodelistitem1(104).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline106 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 47 {9 (16.11823337617,11.605305648983,900.7033258052788)}"), NXOpen.Spline) 
' markertonodelistitem1(105).BorderObject = spline106' markertonodelistitem1(105).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline107 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 46 {9 (15.6156400470923,11.3526607646925,901.7338400785072)}"), NXOpen.Spline) 
' markertonodelistitem1(106).BorderObject = spline107' markertonodelistitem1(106).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline108 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 45 {9 (15.0944985819807,11.0851763005105,902.7309251673856)}"), NXOpen.Spline) 
' markertonodelistitem1(107).BorderObject = spline108' markertonodelistitem1(107).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline109 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 44 {9 (14.3468448598884,10.6621068415271,903.2215477420879)}"), NXOpen.Spline) 
' markertonodelistitem1(108).BorderObject = spline109' markertonodelistitem1(108).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline110 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 43 {9 (13.5562644643678,10.2081556486367,903.6359669347573)}"), NXOpen.Spline) 
' markertonodelistitem1(109).BorderObject = spline110' markertonodelistitem1(109).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline111 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 42 {9 (12.775075194097,9.7575993128101,904.0649477565273)}"), NXOpen.Spline) 
' markertonodelistitem1(110).BorderObject = spline111' markertonodelistitem1(110).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline112 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 41 {9 (11.616581499035,9.0852254501746,904.727879292424)}"), NXOpen.Spline) 
' markertonodelistitem1(111).BorderObject = spline112' markertonodelistitem1(111).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline113 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 40 {9 (10.4312519007195,8.3890293961978,905.338603284408)}"), NXOpen.Spline) 
' markertonodelistitem1(112).BorderObject = spline113' markertonodelistitem1(112).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline114 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 39 {9 (9.6356525886111,7.9179004267777,905.7332518094141)}"), NXOpen.Spline) 
' markertonodelistitem1(113).BorderObject = spline114' markertonodelistitem1(113).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline115 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 38 {9 (8.5971137934051,7.2842329634888,905.5989936624972)}"), NXOpen.Spline) 
' markertonodelistitem1(114).BorderObject = spline115' markertonodelistitem1(114).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline116 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 37 {9 (7.1647801841653,6.4130548452306,905.6708761943783)}"), NXOpen.Spline) 
' markertonodelistitem1(115).BorderObject = spline116' markertonodelistitem1(115).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline117 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 36 {9 (5.6026109615196,5.4688636915639,906.4904235947882)}"), NXOpen.Spline) 
' markertonodelistitem1(116).BorderObject = spline117' markertonodelistitem1(116).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline118 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 35 {9 (4.1880083136489,4.5970220102938,906.5806784902239)}"), NXOpen.Spline) 
' markertonodelistitem1(117).BorderObject = spline118' markertonodelistitem1(117).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline119 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 34 {9 (3.7906977576235,4.3529892783422,906.7711917651945)}"), NXOpen.Spline) 
' markertonodelistitem1(118).BorderObject = spline119' markertonodelistitem1(118).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline120 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 33 {9 (3.386102208709,4.1036052269305,906.9474416954481)}"), NXOpen.Spline) 
' markertonodelistitem1(119).BorderObject = spline120' markertonodelistitem1(119).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline121 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 32 {9 (2.3401003179949,3.4519502957941,906.789971037394)}"), NXOpen.Spline) 
' markertonodelistitem1(120).BorderObject = spline121' markertonodelistitem1(120).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline122 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 31 {9 (1.3052597984748,2.8060811320445,906.6523734733863)}"), NXOpen.Spline) 
' markertonodelistitem1(121).BorderObject = spline122' markertonodelistitem1(121).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline123 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 30 {9 (0.9126556861935,2.561279173494,906.8479455988294)}"), NXOpen.Spline) 
' markertonodelistitem1(122).BorderObject = spline123' markertonodelistitem1(122).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline124 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 29 {9 (0.538341197233,2.32727326405,907.0768106188655)}"), NXOpen.Spline) 
' markertonodelistitem1(123).BorderObject = spline124' markertonodelistitem1(123).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline125 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 28 {9 (-0.4939253126176,1.6792500234676,906.9410488432598)}"), NXOpen.Spline) 
' markertonodelistitem1(124).BorderObject = spline125' markertonodelistitem1(124).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline126 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 27 {9 (-2.2308108158581,0.5878241932738,906.3711383506518)}"), NXOpen.Spline) 
' markertonodelistitem1(125).BorderObject = spline126' markertonodelistitem1(125).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline127 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 26 {9 (-3.9300698865793,-0.4810019839052,905.8358000507025)}"), NXOpen.Spline) 
' markertonodelistitem1(126).BorderObject = spline127' markertonodelistitem1(126).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline128 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 25 {9 (-4.7080169362802,-0.978554695486,906.22819201454)}"), NXOpen.Spline) 
' markertonodelistitem1(127).BorderObject = spline128' markertonodelistitem1(127).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline129 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 24 {9 (-5.7530942142925,-1.6409346240824,906.0631261877991)}"), NXOpen.Spline) 
' markertonodelistitem1(128).BorderObject = spline129' markertonodelistitem1(128).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline130 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 23 {9 (-6.7965299443921,-2.3036097950133,905.8997792453394)}"), NXOpen.Spline) 
' markertonodelistitem1(129).BorderObject = spline130' markertonodelistitem1(129).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline131 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 22 {9 (-6.9461165629969,-2.3935186182008,905.5913518462021)}"), NXOpen.Spline) 
' markertonodelistitem1(130).BorderObject = spline131' markertonodelistitem1(130).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline132 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 21 {9 (-7.2296621947164,-2.563484264178,905.0076450611506)}"), NXOpen.Spline) 
' markertonodelistitem1(131).BorderObject = spline132' markertonodelistitem1(131).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline133 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 20 {9 (-8.4212472258795,-3.3138640280536,904.5429117972113)}"), NXOpen.Spline) 
' markertonodelistitem1(132).BorderObject = spline133' markertonodelistitem1(132).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline134 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 19 {9 (-9.479721943707,-3.9858819092034,904.3505723943493)}"), NXOpen.Spline) 
' markertonodelistitem1(133).BorderObject = spline134' markertonodelistitem1(133).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline135 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 18 {9 (-10.1482450690414,-4.4041311421085,903.968704940635)}"), NXOpen.Spline) 
' markertonodelistitem1(134).BorderObject = spline135' markertonodelistitem1(134).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline136 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 17 {9 (-10.8160646894534,-4.8215950562032,903.5882413494528)}"), NXOpen.Spline) 
' markertonodelistitem1(135).BorderObject = spline136' markertonodelistitem1(135).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline137 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 16 {9 (-11.5649674254647,-5.2858690197353,903.0456395703043)}"), NXOpen.Spline) 
' markertonodelistitem1(136).BorderObject = spline137' markertonodelistitem1(136).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline138 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 15 {9 (-12.530626829683,-5.8741359085596,902.0614096748221)}"), NXOpen.Spline) 
' markertonodelistitem1(137).BorderObject = spline138' markertonodelistitem1(137).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline139 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 14 {9 (-13.5289743183903,-6.5120042317212,901.9906157816023)}"), NXOpen.Spline) 
' markertonodelistitem1(138).BorderObject = spline139' markertonodelistitem1(138).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline140 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 13 {9 (-14.1969903323302,-6.9277909533369,901.6117499335719)}"), NXOpen.Spline) 
' markertonodelistitem1(139).BorderObject = spline140' markertonodelistitem1(139).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline141 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 12 {9 (-15.1651269220232,-7.5130654197519,900.6270927726824)}"), NXOpen.Spline) 
' markertonodelistitem1(140).BorderObject = spline141' markertonodelistitem1(140).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline142 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 11 {9 (-16.1436720066017,-8.1017227055505,899.6263345554357)}"), NXOpen.Spline) 
' markertonodelistitem1(141).BorderObject = spline142' markertonodelistitem1(141).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline143 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 10 {9 (-16.7823910054493,-8.4987050045704,899.3106168735292)}"), NXOpen.Spline) 
' markertonodelistitem1(142).BorderObject = spline143' markertonodelistitem1(142).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline144 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 9 {9 (-17.08632012399,-8.667873998773,898.7004163070591)}"), NXOpen.Spline) 
' markertonodelistitem1(143).BorderObject = spline144' markertonodelistitem1(143).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline145 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 8 {9 (-17.3937309189304,-8.796643044111,897.1184710241346)}"), NXOpen.Spline) 
' markertonodelistitem1(144).BorderObject = spline145' markertonodelistitem1(144).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline146 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 7 {9 (-17.9988402777295,-9.1292763319748,895.9076741030714)}"), NXOpen.Spline) 
' markertonodelistitem1(145).BorderObject = spline146' markertonodelistitem1(145).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline147 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 6 {9 (-18.8920944428482,-9.6604621576405,895.0886385006274)}"), NXOpen.Spline) 
' markertonodelistitem1(146).BorderObject = spline147' markertonodelistitem1(146).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline148 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 5 {9 (-19.1880238113879,-9.8211168700687,894.4991489659672)}"), NXOpen.Spline) 
' markertonodelistitem1(147).BorderObject = spline148' markertonodelistitem1(147).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline149 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 4 {9 (-20.3491818782903,-10.3987174164996,891.2285552371515)}"), NXOpen.Spline) 
' markertonodelistitem1(148).BorderObject = spline149' markertonodelistitem1(148).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline150 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 3 {9 (-21.802114034032,-11.1160220737517,887.3950711532301)}"), NXOpen.Spline) 
' markertonodelistitem1(149).BorderObject = spline150' markertonodelistitem1(149).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' Dim spline151 As NXOpen.Spline = CType(projectCurve1.FindObject("CURVE 2 {9 (-22.0480483782004,-11.1938998128554,885.9527943097419)}"), NXOpen.Spline) 
' markertonodelistitem1(150).BorderObject = spline151' markertonodelistitem1(150).Continuity = NXOpen.Features.FillHoleBuilder.ContinuityTypes.G0' fillHoleBuilder1.SetBorderTypeItems(markertonodelistitem1) 
theSession.DeleteUndoMark(markId2, Nothing) 
Dim markId4 As NXOpen.Session.UndoMarkId
markId4 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Fill Surface") 
theSession.DeleteUndoMark(markId4, Nothing) 
Dim markId5 As NXOpen.Session.UndoMarkId
markId5 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Invisible, "Fill Surface") 
Dim nXObject1 As NXOpen.NXObject
nXObject1 = fillHoleBuilder1.Commit() 
Dim displayModification1 As NXOpen.DisplayModification
displayModification1 = theSession.DisplayManager.NewDisplayModification() 
displayModification1.ApplyToAllFaces=False 
displayModification1.SetNewGrid(0, 0) 
displayModification1.PoleDisplayState=False 
displayModification1.KnotDisplayState=False 
Dim objects1(0)As NXOpen.DisplayableObjectDim fillHole1 As NXOpen.Features.FillHole=CType(nXObject1, NXOpen.Features.FillHole) 
Dim face1 As NXOpen.Face=CType(fillHole1.FindObject("FACE 1 {(0.7645655932465,2.4610161836951,880.631967689838) FILLHOLE(136)}"), NXOpen.Face) 
objects1(0)= face1
displayModification1.Apply(objects1) 
face1.Color=32767 
theSession.DeleteUndoMark(markId5, Nothing) 
theSession.SetUndoMarkName(markId1, "Fill Surface") 
fillHoleBuilder1.Destroy() 
' ----------------------------------------------'   Menu: Tools->Journal->Stop Recording' ---------------------------------------------- 
EndSub 
Function SelectCurve(ByVal prompt AsString, ByRef theObj As NXOpen.Features.ProjectCurve)As Selection.Response 
        Dim theUI As UI = UI.GetUIDim title AsString="Select a curve"Dim includeFeatures AsBoolean=FalseDim keepHighlighted AsBoolean=FalseDim selAction As Selection.SelectionAction= Selection.SelectionAction.ClearAndEnableSpecificDim cursor As Point3d
        Dim scope As Selection.SelectionScope= Selection.SelectionScope.AnyInAssemblyDim selectionMask_array(3)As Selection.MaskTripleDim selObj As NXOpen.Features.ProjectCurve=Nothing 
        ' With selectionMask_array(0)' .Type = UFConstants.UF_circle_type' .Subtype = 0' End With' With selectionMask_array(1)' .Type = UFConstants.UF_conic_type' .Subtype = UFConstants.UF_all_subtype' End With' With selectionMask_array(2)' .Type = UFConstants.UF_line_type' .Subtype = UFConstants.UF_all_subtype' End WithWith selectionMask_array(3)
            .Type= UFConstants.UF_spline_type
            .Subtype= UFConstants.UF_all_subtypeEndWith 
        ' Dim resp As Selection.Response = theUI.SelectionManager.SelectTaggedObject(prompt,' title, scope, selAction,' includeFeatures, keepHighlighted, selectionMask_array,' selObj, cursor) 
        ' theObj = selObj 
        ' If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByName Then' Return Selection.Response.Ok' Else' Return Selection.Response.Cancel' End If 
    EndFunctionEnd Module
↧
Search

Read Hole Callout

June 17, 2016, 5:25 am
$
0
0
Forums: 
Journaling / NXOpen API

Hi,

I am trying to read drawing dimensions to a table. I used workPart.Dimensions.ToArray() method. Linear dimensions fine. However, dimensions that made with "hole callout" have more than one entity in the array. For example, a general hole will have three dimensions in the array (HoleDimension 119341, RadiusDimension 160698, RadiusDimension 160672). Is in NX Open or UG Open a function that bound these dimensions?

Thank you,

↧
↧

Object from tag , in Python.

June 20, 2016, 2:22 am
$
0
0
Forums: 
Journaling / NXOpen API

There is no Utilities or NXObjectManager or Tag class in python.So is it not possible to get obj from tag?

obj=NXOpen.TaggedObjectManager.GetTaggedObject(objTag)

obj=NXObjectManager.Get(objTag)

obj=ufs.GetObjectManager(bodytag)

obj=NXOpen.Utilities.NXObjectManager.Get(objectTag)

All of these wouldnt work in python.

↧

Setting Environmental Variable alternative

June 20, 2016, 8:38 am
$
0
0
Forums: 
Journaling / NXOpen API

Hi,

I have a Problem. I wrote a nice NXOpen program that just tags face. I am using the BlockStyler Library with a dlx file. Unfortunately, I wrote it on my personal computer which I have administrator right. I would like to use it at work. That means setting the Environment Variable so that NX knows where to find the dlx file. Since I don't have admin right, I can't do that. Is there any other alternative? Is there a way to modify my code so that NX knows where to find the DLX?

↧

Making intellisense work with Python Tools for Visual Studio for NXOpen.

June 20, 2016, 8:56 am
$
0
0
Forums: 
Journaling / NXOpen API

Does any one know how to make intellisense work for NXOpen Python ,on Visual Studio 2012(or any). I have installed PTVS 2.1 but not able to make intellisense recognise NXOpen libraries.

It works with c#,VB but no python IDE could recognise the DLLs and give intellisense .

↧

SynchronizeAttributes

June 21, 2016, 9:01 am
$
0
0
Forums: 
Journaling / NXOpen API

Hy alltogether,

i tried to sync the Routing attributes from the part to the assembly.
It works pretty good if i use properties inside NX.

I recordet a Journal to see what happend and have a look into net.ref.

What i tried out is the following Code but it didn´t work.


Sub Main(ByVal args() As String)

Dim theSession As Session = Session.GetSession()
Dim workPart As Part = theSession.Parts.Work
Dim lw As ListingWindow = theSession.ListingWindow
lw.Open()
Dim markId1 As Session.UndoMarkId
markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Start")

Dim cw As ComponentAssembly = workPart.ComponentAssembly
If Not IsNothing(cw.RootComponent) Then
For Each child As Component In cw.RootComponent.GetChildren()

Dim objects1(0) As NXObject
objects1(0) = child
Dim assembliesGeneralPropertiesBuilder1 As Assemblies.AssembliesGeneralPropertiesBuilder
assembliesGeneralPropertiesBuilder1 = workPart.PropertiesManager.CreateAssembliesGeneralPropertiesBuilder(objects1)

assembliesGeneralPropertiesBuilder1.SynchronizeAttributes()

Dim markId2 As Session.UndoMarkId
markId2 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Komponente Eigenschaften")

theSession.DeleteUndoMark(markId2, Nothing)

Dim markId3 As Session.UndoMarkId
markId3 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Komponente Eigenschaften")

Dim nXObject1 As NXObject
nXObject1 = assembliesGeneralPropertiesBuilder1.Commit()

'workPart.PartPreviewMode = BasePart.PartPreview.None

Dim id1 As Session.UndoMarkId
id1 = theSession.GetNewestUndoMark(Session.MarkVisibility.Visible)

Dim nErrs1 As Integer
nErrs1 = theSession.UpdateManager.DoUpdate(id1)

theSession.DeleteUndoMark(markId3, Nothing)

theSession.SetUndoMarkName(id1, "Komponente Eigenschaften")

assembliesGeneralPropertiesBuilder1.Destroy()

Next
End If

End Sub

Can somebody help please.

Thanks Hagen

↧
↧

Get Name of Group "Dynamic Sections"

June 21, 2016, 11:03 pm
$
0
0
Forums: 
Journaling / NXOpen API

Hi all.
I have a problem, when i used "Edit Section" command, in Part Navigator have sub Group (Group "Dynamic Section"),How to get name of Group and sub Groups in Part navigator.
Please help me in this.

↧

NX Export Assembly Outside Teamcenter

June 22, 2016, 10:11 pm
$
0
0
Forums: 
Journaling / NXOpen API

Hi,
I have NX connected to the teamcenter and I have a part list to download. Is it possible to download several assemblies into local pc by one click? The exported parts should be *.prt, not parasolid or step.

↧
Search

Multi face select

June 23, 2016, 2:14 am
$
0
0
Forums: 
Journaling / NXOpen API

Hi,
I have small recorded macro to change color of selected face to my desired color code I need a small change that it should allow and apply to multiple faces selected... where i need to change in code

Option Strict OffImports System
Imports NXOpen
 
Module NXJournal
Sub Main (ByVal args()AsString) 
Dim theSession As NXOpen.Session= NXOpen.Session.GetSession()Dim workPart As NXOpen.Part= theSession.Parts.Work 
Dim displayPart As NXOpen.Part= theSession.Parts.Display 
 
Dim markId1 As NXOpen.Session.UndoMarkId
markId1 = theSession.SetUndoMark(NXOpen.Session.MarkVisibility.Visible, "Edit Object Display") 
Dim displayModification1 As NXOpen.DisplayModification
displayModification1 = theSession.DisplayManager.NewDisplayModification() 
displayModification1.ApplyToAllFaces=True 
displayModification1.ApplyToOwningParts=True 
displayModification1.NewColor=105 
Dim objects1(0)As NXOpen.DisplayableObjectDim theUI As UI = UI.GetUI() 
objects1(0)=CType(theUI.SelectionManager.GetSelectedObject(0), NXOpen.Face) 
displayModification1.Apply(objects1) 
displayModification1.Dispose() 
 
EndSubEnd Module
↧

Code to query part file name

June 23, 2016, 8:47 am
$
0
0
Forums: 
Journaling / NXOpen API

I'm creating a journal that will output 3 files and I want those output files to be named the same as the file that is active when running the journal. I'm looking for a code snippet that will do this. I believe this would a UF function but I've tried a couple of things that haven't given me what I need. Any help with this is greatly appreciated.

Thank you,
Ron

↧
↧

Check Exist Part in NX-PDM

June 26, 2016, 9:41 am
$
0
0
Forums: 
Journaling / NXOpen API

Hi all, now I used NX 9.0 and TC 10.0, How to check a Part (Input Form Excel or Txt.File) is Exist or no Exist.
Thanks very much.

↧

Body color change and passing parameters to .vb

June 28, 2016, 9:07 am
$
0
0
Forums: 
Journaling / NXOpen API

I am sharing my tool to change body color to a value which is given as a parameter of Journal.

'ColorBody by wizdar () 
Option Strict OffImports System
Imports NXOpen
Imports NXOpen.UF 
Module Module1
 
    Sub Main(params()AsString) 
        Dim theSession As Session = Session.GetSession()Dim lw As ListingWindow = theSession.ListingWindow
        lw.Open() 
        Dim myBody As Body
 
        Do Until SelectBody("select a body", myBody)= Selection.Response.Cancel 
			Dim displayModification1 As DisplayModification
			displayModification1 = theSession.DisplayManager.NewDisplayModification() 
			displayModification1.ApplyToAllFaces=True 
			displayModification1.ApplyToOwningParts=False 
			displayModification1.NewColor= params(0) 
 
			Dim objects1(0)As DisplayableObject
 
			objects1(0)= myBody
			displayModification1.Apply(objects1) 
			displayModification1.Dispose() 
 
        Loop 
        lw.Close() 
    EndSub 
 
 
 
    PublicFunction GetUnloadOption(ByVal dummy AsString)AsInteger 
        'Unloads the image when the NX session terminates
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination 
    EndFunction 
    Function SelectBody(ByVal prompt AsString, ByRef selObj As TaggedObject)As Selection.Response 
        Dim theUI As UI = UI.GetUIDim title AsString="Select a solid body"Dim includeFeatures AsBoolean=FalseDim keepHighlighted AsBoolean=FalseDim selAction As Selection.SelectionAction= Selection.SelectionAction.ClearAndEnableSpecificDim cursor As Point3d
        Dim scope As Selection.SelectionScope= Selection.SelectionScope.AnyInAssemblyDim selectionMask_array(0)As Selection.MaskTriple 
        With selectionMask_array(0)
            .Type= UFConstants.UF_solid_type
            .SolidBodySubtype= UFConstants.UF_UI_SEL_FEATURE_SOLID_BODYEndWith 
        Dim resp As Selection.Response= theUI.SelectionManager.SelectTaggedObject(prompt, _
         title, scope, selAction, _
         includeFeatures, keepHighlighted, selectionMask_array, _
         selobj, cursor)If resp = Selection.Response.ObjectSelected OrElse resp = Selection.Response.ObjectSelectedByNameThenReturn Selection.Response.OkElseReturn Selection.Response.CancelEndIf 
    EndFunction 
 
End Module

Additionally a thing I could not find anywhere... is how to insert the parameter in a toolbar .tbr file instead of EditAction in "Customize->New Item"

ACTION code.vb("parameter string")

TITLE MyTools
VERSION 160
 
 
 
BEGIN_DROPDOWN Colors
 
  BUTTON FlameColor
  LABEL FlameColor
  BITMAP D:\UG_Journal\Toolbar\11.bmp
  ACTION D:\UG_Journal\Toolbar\Color.vb("11")
 
  BUTTON BlankColor
  LABEL BlankColor
  BITMAP D:\UG_Journal\Toolbar\15.bmp
  ACTION D:\UG_Journal\Toolbar\Color.vb("15")
 
  BUTTON NCColor
  LABEL NCColor
  BITMAP D:\UG_Journal\Toolbar\50.bmp
  ACTION D:\UG_Journal\Toolbar\Color.vb("50")
 
  BUTTON WeldColor
  LABEL WeldColor
  BITMAP D:\UG_Journal\Toolbar\91.bmp
  ACTION D:\UG_Journal\Toolbar\Color.vb("91")
 
  BUTTON AluColor
  LABEL AluColor
  BITMAP D:\UG_Journal\Toolbar\3.bmp
  ACTION D:\UG_Journal\Toolbar\Color.vb("3")
 
END_DROPDOWN
↧

Journal to Extract multiple bodies using wavelink

June 28, 2016, 11:20 pm
$
0
0
Forums: 
Journaling / NXOpen API

Hi all,
please check the below code I need some tweaks in this
1. remove parameters of extracted bodies
2. add color and transparency to bodies
3. rotate bodies about user input axis at user input angle 

' NX 10.0.1.4' Journal created by gashaik on Sat Jun 27 14:16:08 2016 India Standard Time'	Extracts Body from wavelink to work prat without link 
Option Strict OffImports System  
Imports NXOpen  
Imports NXOpen.UF 
Module Module1  
 
    Sub Main() 
        Dim theSession As Session = Session.GetSession()Dim workPart As Part = theSession.Parts.Work 
        Dim mySolids()As NXObject  
        If SelectObjects("Select Solids to Link", mySolids)= Selection.Response.CancelThenExitSubEndIf 
        Dim markId1 As Session.UndoMarkId  
        markId1 = theSession.SetUndoMark(Session.MarkVisibility.Visible, "Start") 
        Dim nullFeatures_Feature As Features.Feature=Nothing 
        IfNot workPart.Preferences.Modeling.GetHistoryModeThenThrow(New Exception("Create or edit of a Feature was recorded in History Mode but playback is in History-Free Mode."))EndIf 
        Dim waveLinkBuilder1 As Features.WaveLinkBuilder  
        waveLinkBuilder1 = workPart.BaseFeatures.CreateWaveLinkBuilder(nullFeatures_Feature) 
        Dim extractFaceBuilder1 As Features.ExtractFaceBuilder  
        extractFaceBuilder1 = waveLinkBuilder1.ExtractFaceBuilder 
        extractFaceBuilder1.FaceOption= Features.ExtractFaceBuilder.FaceOptionType.FaceChain 
        waveLinkBuilder1.Type= Features.WaveLinkBuilder.Types.BodyLink 
        extractFaceBuilder1.FaceOption= Features.ExtractFaceBuilder.FaceOptionType.FaceChain 
        waveLinkBuilder1.CopyThreads=False 
        extractFaceBuilder1.ParentPart= Features.ExtractFaceBuilder.ParentPartType.OtherPart 
        theSession.SetUndoMarkName(markId1, "WAVE Geometry Linker Dialog") 
        extractFaceBuilder1.Associative=False 
        extractFaceBuilder1.FixAtCurrentTimestamp=False 
        extractFaceBuilder1.HideOriginal=False 
        extractFaceBuilder1.InheritDisplayProperties=False 
        Dim selectObjectList1 As SelectObjectList  
        selectObjectList1 = extractFaceBuilder1.BodyToExtract 
        extractFaceBuilder1.CopyThreads=False 
        Dim added1 AsBoolean  
        added1 = selectObjectList1.Add(mySolids) 
        Dim nXObject1 As NXObject  
        nXObject1 = waveLinkBuilder1.Commit() 
        theSession.SetUndoMarkName(markId1, "WAVE Geometry Linker") 
        waveLinkBuilder1.Destroy() 
    EndSub 
   Function SelectObjects(ByVal prompt AsString, byRef selObj()as NXObject)As Selection.Response 
       Dim theUI As UI = UI.GetUIDim title AsString="Selection"Dim includeFeatures AsBoolean=FalseDim keepHighlighted AsBoolean=FalseDim selAction As Selection.SelectionAction= _
           Selection.SelectionAction.ClearAndEnableSpecific 
       Dim scope As Selection.SelectionScope= Selection.SelectionScope.AnyInAssemblyDim selectionMask_array(1)As Selection.MaskTriple 
        With selectionMask_array(0)  
        	.Type= UFConstants.UF_solid_type
        	.subtype=0
            .SolidBodySubtype= UFConstants.UF_UI_SEL_FEATURE_SOLID_BODYEndWith 
       Dim resp As Selection.Response= theUI.SelectionManager.SelectObjects( _
           prompt, title, scope, selAction, _
           includeFeatures, keepHighlighted, selectionMask_array, selObj) 
       If resp = Selection.Response.OkReturn Selection.Response.OkElseReturn Selection.Response.CancelEndIf 
   EndFunction 
 
End Module
↧
Viewing all 783 articles
Browse latest View live
Search
<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>