用程序自动制作幻灯片，如何自动调节绘图窗口的尺寸？

lilq_78

用程序自动制作幻灯片，如何自动调节绘图窗口的尺寸？

Gu_xl

1. ;;;设置屏幕大小 (SetScreenSize 400 300)
   
2. (defun SetScreenSize (Width height / doc oldsize doc w1 h1 dw dh)
   
3.   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
4.   (setq oldsize (getvar "SCREENSIZE"))
   
5.   (setq W1 (vla-get-width doc))
   
6.   (setq H1 (vla-get-Height doc))
   
7.   (setq dw (- w1 (car oldsize)))
   
8.   (setq dh (- h1 (cadr oldsize)))
   
9.   (vla-put-width doc (+ dw width))
   
10.   (vla-put-height doc (+ dh height))
    
11. )
    

;;;设置屏幕大小 (SetScreenSize 400 300)<br /> (defun SetScreenSize (Width height / doc oldsize doc w1 h1 dw dh)<br />   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (setq oldsize (getvar "SCREENSIZE"))<br />   (setq W1 (vla-get-width doc))<br />   (setq H1 (vla-get-Height doc))<br />   (setq dw (- w1 (car oldsize)))<br />   (setq dh (- h1 (cadr oldsize)))<br />   (vla-put-width doc (+ dw width))<br />   (vla-put-height doc (+ dh height))<br /> )<br />

lilq_78

谢谢

lilq_78

楼主，好像改了后，接着执行mslide，位置不对，做出来的幻灯片还是原来的窗口里出来的，用 regen刷也不行，

Gu_xl

lilq_78 发表于 2011-11-16 13:03
楼主，好像改了后，接着执行mslide，位置不对，做出来的幻灯片还是原来的窗口里出来的，用 regen刷也不行，

(command "_.zoom" "_e" "._mslide" “testlid”)
试试

lilq_78

嗯，我的程序就是这样的，不行，还是原来的窗口数据，我想应该是要把 doc刷新下，像我们刷新图元一样
entmod 或 entupd等，我用了regen 不行，我不知道应该用哪个？

lilq_78

(defun SetScreenSize (Width height / doc oldsize doc w1 h1 dw dh)
  (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq oldsize (getvar "SCREENSIZE"))
  (setq W1 (vla-get-width doc))
  (setq H1 (vla-get-Height doc))
  (setq dw (- w1 (car oldsize)))
  (setq dh (- h1 (cadr oldsize)))
  (vla-put-width doc (+ dw width))
  (vla-put-height doc (+ dh height))
(setq newsize (getvar "SCREENSIZE"))   
)
doc里的参数是改掉了，但是 oldsize和newsize 相同，没变；
回到绘图窗口再转过来查看就好了，问题出在哪里？

lilq_78

顶下，高手们帮忙看看怎么回事

仲文玉

好东西，留个脚印备用

lilq_78

顶下，高手们帮忙看看怎么回事，doc里的参数改了，但是 screensize 里的参数没变/