Message 1 of 9
Use SendCommand() as lisp's 'command
Not applicable
05-07-2008
02:08 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi
How can I use VBA's SendCommand the same way I use lisp's 'command?
I want to be able to do something like:
SendCommand("circle")
SendCommand("2,3")
SendCommand("100")
And have it draw a circle. The problem is, when I try the second command, I get an exception with the HRESULT 0x80010001 (RPC_E_CALL_REJECTED)
I also can't just do a front-end and keep accumulating the strings until a "" because it won't work.
Also, how can I pass an acadpoint as a parameter to command?
For example:
Dim p1 as AcadPoint = ThisDrawing.AddPoint(new Double() {2, 3, 0})
SendCommand("circle")
SendCommand(p1) ' ???
SendCommand("100")
Thanks for the help
- Filipe Cabecinhas
How can I use VBA's SendCommand the same way I use lisp's 'command?
I want to be able to do something like:
SendCommand("circle")
SendCommand("2,3")
SendCommand("100")
And have it draw a circle. The problem is, when I try the second command, I get an exception with the HRESULT 0x80010001 (RPC_E_CALL_REJECTED)
I also can't just do a front-end and keep accumulating the strings until a "" because it won't work.
Also, how can I pass an acadpoint as a parameter to command?
For example:
Dim p1 as AcadPoint = ThisDrawing.AddPoint(new Double() {2, 3, 0})
SendCommand("circle")
SendCommand(p1) ' ???
SendCommand("100")
Thanks for the help
- Filipe Cabecinhas