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

淮上

我明白了，我8楼的代码没问题，是显示器分辨率的问题,假如你的当前分辨率为1024*768，而cad的图形窗口设为600，去掉cad标题、菜单、工具栏、命令行等占用的像素，图形窗口的实际像素<600,所以会出现这个问题

你把图形窗口的高度设置小一点就没问题了，如

  (vla-put-Height AcadDocument 400)

adsl1

也是不行的.這個我考慮到.按Ctrl+0和Ctrl+9.把那些菜單,命令行什么的.去掉.還是不行的.我的顯示器是1440*1050第一次轉出來的圖形是這樣的.

 

為了確認其不受顯示器影響.我特地弄成了長寬相等.

  (vla-put-Width AcadDocument 300)
  (vla-put-Height AcadDocument 300)

淮上

上面的图片不是已经可以了？

adsl1

上面的圖片是不正確的.因為我設的長寬比例是300.第第次還是用了未縮放窗口之前的長寬.要這樣才正確

 

附程序

(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
  )
  ;(command "_CleanScreenON")
  ;(command "_commandlinehide")
  ;(vla-put-WindowState AcadObject acNorm)
  ;(vla-put-Width AcadObject 300)
  ;(vla-put-Height AcadObject 300)
  (vla-put-Width AcadDocument 300)
  (vla-put-Height AcadDocument 300)
  (vla-ZoomExtents AcadObject)
  (command "_zoom" "_E" "")
  (setq AcadObject(vlax-get-acad-object)  ;object
        AcadDocument(vla-get-ActiveDocument AcadObject)  ;Document
  ) 
  (setq ss (ssget "x"))
  (vla-Export AcadDocument "c:\\abc" "wmf" (vla-get-ActiveSelectionSet AcadDocument))
  (Princ)
)