topic Re: How can I select just one object using vb net (SelectOnScreen) in .NET Forum

How can I select just one object using vb net (SelectOnScreen)

Anonymous — Thu, 20 Jan 2011 07:31:19 GMT

Hello to all experts.

Question.

I don't want user to be able to select more than one item. How should I do that ?

"Selectonscreen" allow users to select more than one item. But I want as soon as user pick (let's say a line). program exits.

thanks for all help.

Regards,

Re: How can I select just one object using vb net (SelectOnScreen)

_gile — Thu, 20 Jan 2011 09:59:56 GMT

Have a look at:

Editor.PromptEntityOptions

Editor.PromptEntityResult

Re: How can I select just one object using vb net (SelectOnScreen)

Anonymous — Thu, 20 Jan 2011 11:49:10 GMT

Editor.GetEntity

Re: How can I select just one object using vb net (SelectOnScreen)

Anonymous — Thu, 20 Jan 2011 23:52:09 GMT

Thanks Gile.

You were right . With your tip I was able to google it and find a good tweaked working code.

Thanks again from everybody in this discussion. I am learning here.

  Sub test_editor_prompt()
        Dim myPEO As New Autodesk.AutoCAD.EditorInput.PromptEntityOptions(vbLf & "Select BarMark:")
        Dim mydwg, mydb, myed, myPS, myPer, myent, mytrans, mytransman As Object
        mydwg = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
        mydb = mydwg.Database
        myed = mydwg.Editor
        myPEO.SetRejectMessage("You must select a BarMark." & vbCrLf)
        myPEO.AddAllowedClass(GetType(Autodesk.AutoCAD.DatabaseServices.DBText), False)
        myPer = myed.GetEntity(myPEO)
        myPS = myPer.Status
        Select Case myPS
            Case Autodesk.AutoCAD.EditorInput.PromptStatus.OK
                'MsgBox("Good job!")
                mytransman = mydwg.TransactionManager
                mytrans = mytransman.StartTransaction
                myent = myPer.ObjectId.GetObject(Autodesk.AutoCAD.DatabaseServices.OpenMode.ForRead)
                'MsgBox("Entity is on layer " & myent.Layer)
                'Where did he click?!
            Case Autodesk.AutoCAD.EditorInput.PromptStatus.Cancel
                MsgBox("You cancelled.")
                Exit Sub
            Case Autodesk.AutoCAD.EditorInput.PromptStatus.Error
                MsgBox("Error warning.")
                Exit Sub
            Case Else
                Exit Sub
        End Select
    End Sub

Re: How can I select just one object using vb net (SelectOnScreen)

kerry_w_brown — Sat, 22 Jan 2011 00:42:17 GMT

Dsharifi, Why are you declaring all your variables to be type Object ??

Re: How can I select just one object using vb net (SelectOnScreen)

Anonymous — Sat, 22 Jan 2011 02:42:12 GMT

Thanks Kerry for taking your time.

Honestly . I am not an expert person. I found subroutine in internet. Paste it in my code . Encounter error regarding declaration. I didn't know how to declared those variable. I put object and program worked.

I know if I declare them properly I reduce the memroy usage. But I don't know how. Could you Help me? But program is working right now.

Thanks again for sharing.