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

lilq_78 · 发表于 2011-11-16 09:49:55

Gu_xl · 发表于 2011-11-16 10:21:01

;;;设置屏幕大小 (SetScreenSize 400 300)
(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))
)

lilq_78 · 发表于 2011-11-16 10:28:02

谢谢

lilq_78 · 发表于 2011-11-16 13:03:57

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

Gu_xl · 发表于 2011-11-16 13:17:00

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

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

lilq_78 · 发表于 2011-11-16 13:20:58

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

lilq_78 · 发表于 2011-11-17 08:59:42

(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 · 发表于 2011-11-17 10:37:14

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

仲文玉 · 发表于 2011-11-17 12:31:49

好东西，留个脚印备用

lilq_78 · 发表于 2011-11-18 08:36:55

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

账号		自动登录	找回密码
密码			注册

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

相关帖子