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

[Anonymous]

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,

[_gile · Accepted solution]

Hi

Have a look at:

Editor.PromptEntityOptions

Editor.PromptEntityResult

[Anonymous]

Editor.GetEntity

[Anonymous · Accepted solution]

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

[kerry_w_brown · Accepted solution]

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

[Anonymous · Accepted solution]

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.