[LISP程序]：一個奇怪的問題

adsl1

為什么如下代碼,第一次轉出的wmf不是方形圖形輸出,而是依窗口大小.要等此程式執行一次后.窗口大小已改變成長寬600*600后.再次執行程序才是方形wmf文件輸出.
(Defun C:gg ()
  (SetVar "WMFBKGND" 0)
  (SetVar "WMFFOREGND" 0)
  (VL-LOAD-COM)
  (setq AcadObject(vlax-get-acad-object)  ;object
        AcadDocument(vla-get-ActiveDocument AcadObject)  ;Document
  )
  (vla-put-Width AcadDocument 600)
  (vla-put-Height AcadDocument 600)
  (vla-ZoomExtents AcadObject)
  (setq ss (ssget "x"))
  (vla-Export AcadDocument "c:\\abc""wmf" (vla-get-ActiveSelectionSet AcadDocument))
  (Princ)
)