TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: Adesu on March 02, 2010, 07:27:23 PM

Title: Zoom real time
Post by: Adesu on March 02, 2010, 07:27:23 PM

I would change function for zoom, but for zoom real time not work,any one have idea?

Code: [Select]

(defun c:za ()
  (command "_zoom" "a")
   )
(defun c:zc ()
  (command "_zoom" "c")
   )
(defun c:zd ()
  (command "_zoom" "d" "")
   )
(defun c:ze ()
  (command "_zoom" "e")
   )
(defun c:zp ()
  (command "_zoom" "p")
   )
(defun c:zs ()
  (command "_zoom" "s") 
   )
(defun c:zw ()
  (command "ZOOM" "W" pause pause)
   )
(defun c:zo ()
  (command "_zoom" "o")
  )
(defun c:zr ()
  (command "_zoom" "r")    ; this code not work
  )



Title: Re: Zoom real time
Post by: Bob Wahr on March 02, 2010, 07:34:50 PM

Doing it this way works the same as if you type it in so Zoom R won't do anything.  Try:

  (command "_zoom" "")

Title: Re: Zoom real time
Post by: Adesu on March 03, 2010, 05:54:56 AM

it great, thanks

Title: Re: Zoom real time
Post by: huiz on March 04, 2010, 05:58:38 AM

Or you can use the command RTZOOM.

Title: Re: Zoom real time
Post by: alloy mold design on March 13, 2010, 09:38:11 AM

 :evil:Yes,You are right!

Title: Re: Zoom real time
Post by: uncoolperson on March 13, 2010, 09:48:02 AM

why not use the pgp file for this?