How to continue lisp after paused user input?

[vgl...@my-deja.com]

I have a routine that is run over and over. I am trying to set up an
icon button to invoke this command. I need to scale an item using a
reference of 1.25 to 1. This is the actual autocad steps:

Command: scale
Select objects: 1 found
Select objects:
Base point:
<Scale factor>/Reference: r
Reference length <1>: 1.25
New length: 1

This is what I used as a command in the icon button:

^C^C(COMMAND "SCALE"" ");;(setvar "reference length" 1.25) (setvar "new
length" 1) (princ)

The original command “Scale” (Adding the additional "" " allowed the
user input)
I used two semicolons to invoke an enter (but this is where I run into
problems. Although Scale allows me to pick the objects and select the
base, it will not return to the routine which needs to continue with
reference, a reference length of 1.25 and a new length of 1.

Please reply Vgl...@mpsac.com or within this forum. Thanks.

Sent via Deja.com http://www.deja.com/
Before you buy.

[RSLEUMAS]

If you are always using the same scale factor, how 'bout this macro:

*^C^Cselect;\scale;p;;\.8;

This will allow you to keep selecting objects, or groups of objects, and as
soon as you pick your base point, the object(s) are scaled to .8x

The asterisk at the beginning of the macro causes it to repeat itself untill
you escape.
Hope this helps.
Roy