[求助] (Command "ZOOM" "_E")不起作用

adsl1

我想轉出一個固定長寬比例的wmf,設定好畫面的長寬,但"zomm" "_e" 時,畫面並不依實際畫面縮放.但我試著加入了(VL-CMDF pause),畫面還是不正確.但轉出的圖片正確了.求解.

(Defun C:gg ()
  (SetVar "WMFBKGND" 0)
  (SetVar "WMFFOREGND" 0)
  ;(setq oldWidth (vla-get-Width AcadObject))
  (VL-LOAD-COM)
  (setq AcadObject(vlax-get-acad-object)  ;object
        AcadDocument(vla-get-ActiveDocument AcadObject)  ;Document
        mSpace(vla-get-ModelSpace AcadDocument)  ;Space
  )
  (vla-put-Width AcadDocument 800)
  (vla-put-Height AcadDocument 600)
  (Command "ZOOM" "_E")
  (SetQ wfn "c:\\abc.wmf")
  (Command "WMFOUT" wfn "all" "")
  (PrinC)
)
 

my_autocad

(Command "ZOOM" "_E")

->(Command "ZOOM" "_E" "")

adsl1

還是不行,不起作用.請各位再幫忙.可以把代碼運行一下看看.

淮上

直接用 (Command "ZOOM" "_W" ........)

adsl1

大哥,我還不會用取最大點和最小點.可否以我上面的程序修改教我.謝謝!

淮上

说错了，如果是cad2006或更高版本用

(setq ss (ssget))

(command "_.zoom" "object" ss "")

如果cad版本低，就要求选集的最小包围盒，搜索论坛应该找得到

adsl1

淮上,我在cad2006下試了不行.還請指教.

(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
        mSpace(vla-get-ModelSpace AcadDocument)  ;Space
  )
  (setq oldWidth (vla-get-Width AcadDocument))
  (setq oldHeight (vla-get-Height AcadDocument))
  (setq oldWindowState (vla-get-WindowState AcadDocument))
  ;轉檔
  (command "._zoom" "_e")
  (vla-put-Width AcadDocument 800)
  (vla-put-Height AcadDocument 600)
  (setq ss (ssget))
  (command "_.zoom" "object" ss "")

  ;(vla-ZoomExtents AcadObject)
  ;(command "._zoom" "_e")
  (SetQ wfn "c:\\abc.wmf")
  (Command "WMFOUT" wfn "all" "")
  ;恢複窗口
  ;(if (= oldWindowState acNorm)
  ;  ((vla-put-Width AcadDocument oldWidth)
  ;   (vla-put-Height AcadDocument oldHeight))   
  ;  (vla-put-WindowState AcadDocument oldWindowState)
  ;)
  ;(VL-CMDF pause)
  (PrinC)
)
 

淮上

(Defun C:gg ()
  (SetVar "WMFBKGND" 0)
  (SetVar "WMFFOREGND" 0)
  (setq AcadObject(vlax-get-acad-object)  ;object
        AcadDocument(vla-get-ActiveDocument AcadObject)  ;Document
  )
  (vla-put-Width AcadDocument 800)
  (vla-put-Height AcadDocument 600)
  (vla-ZoomExtents AcadObject)
  (setq ss (ssget "x"))
  (vla-Export AcadDocument "c:\\abc""wmf" (vla-get-ActiveSelectionSet AcadDocument))
  (Princ)
)

adsl1

運行一次的時候他是這個樣子.並沒有縮放到位.轉出來的圖形並非我所要的比例.比例還是之前(窗口)的比例.

adsl1

我今天又試了很多次.感覺問題應該不是出在(command "._zoom" "_e")

因為即使我用

  (setq top '(1110.0 1010.0))
  (setq bot '(990.0 890.0))
  (command "zoom" "w" top bot)

去處理.雖然畫面上看起來對了.但轉出來的圖還是不正確.還是之前的長寬,並沒有依800*600輸出.

求各位高人指點.