Zoom XP

[Marc Beique]

It would be nice to have an automated zoom-to-scale command that would zoom
to correct MS scale while in PS. Although this is built-in to the zoom
command with the scale and XP options, I am unable to automate this on a
toolbar. The problem seems to be to get the zoom command to accept an
input which is a combination of both numbers and text, i.e., 1/48xp. I've
tried the following as input to the scale prompt, but to no avail:

(strcat "(rtos (expt (getvar "dimscale") -1))" "xp")

or,
get dimscale;
use expt function to create inverse;
use rtos function to convert real number dimscale inverse to string;
use strcat to join with xp on zoom command line.

I am a Lisp beginner, wanting to know just enough to do what I need to do.
Not knowing what the zoom command really wants doesn't help. Any thoughts
from those of you that don't think this is Greek are appreciated. Thanks,
Marc

[Byron Blattel]

Try this instead (you had some extra quotes in there):

(command "zoom" (strcat (rtos (expt (getvar "dimscale") -1)) "xp"))

Marc Beique wrote:

--
|
----+----------------------------------------------
| Byron Blattel
| CADwerx---Applications for AutoCAD
|
| e-mail: cad...@texas.net
| web site: http://lonestar.texas.net/~cadwerx