调整cad窗口大小的参数

adc

请教有没有调整cad窗口大小的参数，可以通过命令的方式调整cad窗口的高度和宽度？谢谢

1993063

vla-put-dockedvisiblelines

masterlong

找找我最近的帖子

adc

1993063 发表于 2015-1-13 14:56
vla-put-dockedvisiblelines

谢谢，不过不是命令窗口，是绘图窗口大小

adc

masterlong 发表于 2015-1-13 16:00
找找我最近的帖子

谢谢，你的这个是调整程序的窗口，我是想调整里面d的绘图窗口，请问有没有办法

andyhua

(defun   c:11        ()
  (setq cmdlines (getint "行数:"))
  (vl-load-com)
  (vla-put-DockedVisibleLines (vla-get-display (vla-get-Preferences (vlax-get-acad-object))) cmdlines)
)

有网友反映这个函数无效啊？亲测过，在2012CAD中，确实无效！

xyp1964

2. ;; 设置窗口尺寸 (abc 800 528)
   
3. (defun abc (wide high / ad)
   
4.   (setq ad (vla-get-ActiveDocument (vlax-get-acad-object)))
   
5.   (vla-put-Width ad wide)
   
6.   (vla-put-height ad high)
   
7. )

;; 设置窗口尺寸 (abc 800 528)<br /> (defun abc (wide high / ad)<br />   (setq ad (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (vla-put-Width ad wide)<br />   (vla-put-height ad high)<br /> )