ASE, SQL, OLE, ADE

Reply
New Member
tommyzh
Posts: 1
Registered: ‎04-20-2009
Message 1 of 2 (322 Views)

Run-time Error -'2145320928 (80210020)'

322 Views, 1 Replies
04-20-2009 12:14 PM
I developed a VBA application. In the application, I asked user to click on a AutoCAD drawing and get a return point. My code is as follows:

Dim blockRefObj As AcadBlockReference
If pick_insert_pointCheckBox.Value Then 'if user choose to pick an insert point by himself
Me.Hide
Dim returnPnt As Variant
returnPnt = ThisDrawing.Utility.GetPoint(, "Enter or pick up the insert point: ")
Dim cen(0 To 2) As Double
cen(0) = returnPnt(0): cen(1) = returnPnt(1): cen(2) = 0

Else
cen(0) = 0: cen(1) = 0: cen(2) = 0
End If

I can run this without problem in the design mode. The i created a tool button. But if I run this from the tool button, I always got stopped by an error message "Run-time Error -'2145320928 (80210020)', User input is a keyword. When the program stopped, the debug window show the code and marked "returnPnt = ThisDrawing.Utility.GetPoint(, "Enter or pick up the insert point: ")" in yellow. I guess this is the problem. But if I hit run again, it goes on without problem.

Anybody can help? Thank you very much.
Active Contributor
mhardine
Posts: 45
Registered: ‎11-22-2008
Message 2 of 2 (281 Views)

Re: Run-time Error -'2145320928 (80210020)'

08-30-2011 10:34 AM in reply to: tommyzh

I get same thing. Have you figured it out?

You are not logged in.

Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register

Announcements
Are you familiar with the Autodesk Expert Elites? The Expert Elite program is made up of customers that help other customers by sharing knowledge and exemplifying an engaging style of collaboration. To learn more, please visit our Expert Elite website.

Need installation help?

Start with some of our most frequented solutions to get help installing your software.

Ask the Community