ASE, SQL, OLE, ADE

ASE, SQL, OLE, ADE

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

Run-time Error -'2145320928 (80210020)'

348 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 (307 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?

Need installation help?

Start with some of our most frequented solutions or visit the Installation and Licensing Forum to get help installing your software.