GetSelectedObject

GetSelectedObject2

GetSelectedObject3

GetSelectedObject4

GetSelectedObject5

and

GetSelectedObject 6

---------------------------

    boolStatus = .Extension.SelectByID2(Str, "NOTE", 0, 0, 0, False, 0, Nothing, 0)

    Set swAnnObj = SelMgr.GetSelectedObject2(1)

    swAnnObj.SetTextJustification (1)

-------------------------

   Set swSelMgr = Part.SelectionManager

    boolStatus = Part.Extension.SelectByID2(SelectID, "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)

    Count = swSelMgr.GetSelectedObjectCount

    Set Feature = swSelMgr.GetSelectedObject3(Count)

--------------------

      boolStatus = .Extension.SelectByID2(SketchName, "SKETCH", 0, 0, 0, False, 0, Nothing, 0)

      Set swFeat = swSelMgr.GetSelectedObject5(1)

      Set SwSketch = swFeat.GetSpecificFeature

      .EditSketch

------------

Set swNote = swSelMgr.GetSelectedObject6(1, 0)

Set swAnn = swNote.GetAnnotation

MsgBox swAnn.GetName