Crashing AutoCAD 2009 any time I prompt for user input

[AdammReilly]

I'm running Civil 3D 2009, and Visual Basic 2008 Express.

I was going to work on a small project, but I've run several test programs to prompt for different user input methods. Every time I prompt for user input at all, Autocad crashes.

I need some help. Everything looks correct, and I'm getting pretty irritated at this.

This is the code I have:

Imports Autodesk.AutoCAD

Imports Autodesk.AutoCAD.ApplicationServices.Application

Imports Autodesk.AutoCAD.DatabaseServices

Imports Autodesk.AutoCAD.Geometry

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.ApplicationServices

Imports DbTransMan = Autodesk.AutoCAD.DatabaseServices.TransactionManager

Imports Autodesk.AutoCAD.EditorInput

Public Class HCE_Tools

    <CommandMethod("TestString")> _

    Sub WriteStringToUser()

        Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor

        ed.WriteMessage("Hello World!")

    End Sub

    <CommandMethod("TestPoint")> _

Sub PromptUserForPoint()

        Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor

        Dim prPtOpts As New PromptPointOptions(vbLf + "Pick a point:")

        prPtOpts.AllowNone = True 'Allow ENTER only

        prPtOpts.AppendKeywordsToMessage = False

        Dim prPtResult As PromptPointResult

        prPtResult = ed.GetPoint(prPtOpts)            <---- This is where it always crashes at

        ed.WriteMessage(prPtResult.ToString)

    End Sub

End Class

[fieldguy]

The 1st argument for New PromptPointOptions is messageandkeywords as string.  My guess is it doesn't like your input.  Try it this way:

Dim prPtOpts As PromptPointOptions = New PromptPointOptions("")

prPtOpts.Message = vbLf & "Pick a point:"

[AdammReilly]

That didn't do it. Still got the same error.

Can't seem to catch the error either.

[chiefbraincloud]

I don't think this is going to be helpful at soothing your irritation, but I pasted your TestPoint Function into my code and ran it, it worked fine.  There were two things I was going to look at, one being that in VB, I prefer to use the & instead of + to concatenate strings, the other was setting AppendKeywordsToMessage to false without any keywords, but it doesn't seem to have a problem with either.

My Text Window output:

Command: testpoint

Pick a point: ((OK,),(5.84749117416629,4.5328068004761,0))
Command:  TESTPOINT
Pick a point: ((OK,),(4.30410913085712,3.24291119397888,0))
Command:  TESTPOINT
Pick a point: *Cancel*
((Cancel,),(0,0,0))
Command:  TESTPOINT
Pick a point:
((None,),(0,0,0))

Command:
TESTPOINT
Pick a point: fred

Invalid point.

Pick a point: f

Invalid point.

Pick a point: *Cancel*
((Cancel,),(0,0,0))

I was running this in AutoCAD 2010, but I used 2009 for two years, and I didn't have any wierd problems getting user input.

[fieldguy]

Your code works as is for me - in acad 2011.  I do not have 2009 installed anymore.

Good luck!