;*************************************************************
;                                                      ZOOMALL.LSP
;*************************************************************
; โปรแกรมนี้ใช้สำหรับขยายภาพของวัตถุที่อยู่ในวิวพอร์ทต่างๆ พร้อมๆ กันในคราวเดียว 
; ซึ่งจะทำให้วัตถุใหญ่ขึ้นเต็มกรอบของวิวพอร์ทเหล่านั้น ช่วยทำให้เกิดความสะดวกและ
; รวดเร็วในงานเขียนแบบ 3 มิติ
; 			                                     โดย ภาณุพงษ์ ปัตติสิงห์ 
;			  	                        2 มิถุนายน 2539
;*************************************************************
; แก้ไขเพิ่มเติม โดยกำหนดให้ UCS ไอคอนเคลื่อนที่ไปยังจุดกำเนิดใหม่โดยอัตโนมัติในทุกๆ 
; วิวพอร์ท
;  				                 โดย ภาณุพงษ์ ปัตติสิงห์ 
;			  	                        18 พฤศจิกายน 2542
;*************************************************************
(defun c:zoomall (/ num n)
                (setq num (length (vports)))
   (if (/= num 1)
       (progn
           (while (> num 0)
                (setvar "cvport" (+ 1 num))
                (command "zoom" "e")
                (command "zoom" ".9x")
                (command "ucsicon" "or")	
                (setq num (1- num))
           )
        )
        (progn
                (command "zoom" "e")
                (command "zoom" ".9x")
                (command "ucsicon" "or")	
        )
    )
                 (princ) 
)

