Hi Cowski,
Thank you. Still not there. I am now able to get all the objects on the working layer. But, there is still more geometry and objects than I need. Now, I want only the displayed objects on the screen and hence the current working layer.
Here's what I have so far.
Dim workLayer As Integer
workLayer = workpart.Layers.WorkLayer
Dim workLayerObjs() As NXObject
workLayerObjs = workpart.Layers.GetAllObjectsOnLayer(workLayer)