Part and blank selection

Submitted by mnafis on Wed, 05/15/2013 - 07:11
Forums: 
Journaling / NXOpen API

Hi,

How to remove the selection stickiness when defining the blank and part in CAM. I am expecting the pop up intruction ask the user to select past and blank. This is the recosding code for the application. Your hel would be highly appreciated. Thank you

' ----------------------------------------------
' Dialog Begin Part Geometry
' ----------------------------------------------
Dim bodies1(0) As Body
Dim body1 As Body = CType(workPart.Bodies.FindObject("EXTRUDE(2)"), Body)

bodies1(0) = body1
Dim bodyDumbRule1 As BodyDumbRule
bodyDumbRule1 = workPart.ScRuleFactory.CreateRuleBodyDumb(bodies1)

Dim scCollector1 As ScCollector
scCollector1 = geometrySet1.ScCollector

Dim rules1(0) As SelectionIntentRule
rules1(0) = bodyDumbRule1
scCollector1.ReplaceRules(rules1, False)

Dim markId4 As Session.UndoMarkId
markId4 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Part Geometry")

theSession.DeleteUndoMark(markId4, Nothing)

Dim markId5 As Session.UndoMarkId
markId5 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Part Geometry")

theSession.DeleteUndoMark(markId5, Nothing)

theSession.SetUndoMarkName(markId3, "Part Geometry")

theSession.DeleteUndoMark(markId3, Nothing)

Dim markId6 As Session.UndoMarkId
markId6 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Workpiece")

theSession.DeleteUndoMark(markId6, Nothing)

Dim markId7 As Session.UndoMarkId
markId7 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Workpiece")

Dim nXObject1 As NXObject
nXObject1 = millGeomBuilder1.Commit()

theSession.DeleteUndoMark(markId7, Nothing)

theSession.SetUndoMarkName(markId2, "Workpiece")

millGeomBuilder1.Destroy()

theSession.DeleteUndoMark(markId2, Nothing)

Dim markId8 As Session.UndoMarkId
markId8 = theSession.SetUndoMark(Session.MarkVisibility.Invisible, "Start")

Dim featureGeometry2 As CAM.FeatureGeometry = CType(nXObject1, CAM.FeatureGeometry)

Dim millGeomBuilder2 As CAM.MillGeomBuilder
millGeomBuilder2 = workPart.CAMSetup.CAMGroupCollection.CreateMillGeomBuilder(featureGeometry2)

Dim geometryCiBuilder2 As CAM.GeometryCiBuilder
geometryCiBuilder2 = millGeomBuilder2.GeometryCiBuilder

theSession.SetUndoMarkName(markId8, "Workpiece Dialog")

NXJournaling - Fri, 05/17/2013 - 05:22

I'm not very familiar with the CAM side of things; are the CAM part and blank special CAM objects, or are they simply solid bodies? or perhaps components in an assembly?

mnafis - Fri, 05/17/2013 - 06:51

It is just two solid bodies. One represent the blank (in my case, cylinder stock), another one is a part. The code post is partcularly to select the part (1 solid body)

Thanks

M Nafis