Hi Jacob,
Thanks for your response.
Here is my full code:
I am unable to trap the keywords entered. Do you have a working example of how
to do it?
Sub Main()
Dim util As AcadUtility
Dim pickedPt, pt1, pt2 As Variant
Dim objName As AcadEntity
Dim ang As Double
Dim kwd, kwdLst As String
Set glAcad = GetObject(, "AutoCAD.Application")
Set util = glAcad.ActiveDocument.Utility
On Error Resume Next
util.Prompt vbCrLf + "Demonstrates use of utility objects for user
interaction."
Err.Clear
kwdLst = "Open Close Fit Spline Xit"
ThisDrawing.Utility.InitializeUserInput 128, kwdLst
pt1 = util.GetPoint(, "Pick first point:")
If Err.Number <> 0 Then
If Err.Description = "User input is a keyword" Then
' One of the keywords was entered
kwd = util.GetInput
util.Prompt "Keyword entered was: " + kwd
Else
util.Prompt "Error in point selection" + Err.Description
Err.Clear
End If
Err.Clear
End If
End Sub
Jacob Dinardi wrote:
> How can you get an error when you are using On Error Resume Next? The code
> you posted below cannot be causing it directly, are you sure it is not
> coming from another procedure that runs after what you have posted below?
>
> Regards,
> Jacob Dinardi
>
> "Rakesh Rao" wrote in message
> news:3D5F5380.9A0F5138@vsnl.net...
> >
> > Hello,
> >
> > I am trying to use keywords in response to a getpoint function. For some
> > reason, VBA goes into an unhandled error. What am I doing wrong? I need
> > to pick a point or simply ENTER or type Open, Close, Fir Spline Xit in
> > response to getpoint.
> >
> > See attached code below. Any pointers are greatly appreciated.
> >
> > Regards
> > Rakesh
> >
> >
> > On Error Resume Next
> >
> > kwdLst = "Open Close Fit Spline Xit"
> > util.InitializeUserInput 128, kwdLst
> >
> > pt1 = util.GetPoint(, vbCrLf + "Pick first point:")
> >
> > If Err Then
> > If StrComp(Err.Description, "User input is a keyword", 1) = 0 Then
> > ' One of the keywords was entered
> > kwd = util.GetInput
> > util.Prompt "Keyword entered was: " + kwd
> > Else
> > util.Prompt "Error in point selection" + Err.Description
> > Err.Clear
> > End If
> > Err.Clear
> > End If
> >
> > --
> >
> > AutoCAD customization for Engineering/Mapping/GIS
> > Get GeoTools @ http://www.4d-technologies.com/geotools
> > Build MyGeoTools @
> > http://www.4d-technologies.com/geotools/my_geotools.htm
> > FREE downloads : http://www.4d-technologies.com/techcenter
> >
> >
--
AutoCAD customization for Engineering/Mapping/GIS
Get GeoTools @ http://www.4d-technologies.com/geotools
Build MyGeoTools @ http://www.4d-technologies.com/geotools/my_geotools.htm
FREE downloads : http://www.4d-technologies.com/techcenter
