设置绘图窗口的长宽

marting

1. (defun SetScreenSize (Width height / acad doc oldsize doc w1 h1 dw dh)
   
2.   (setq acad    (vlax-get-acad-object)
   
3.         doc     (vla-get-ActiveDocument acad)
   
4.         oldsize (getvar "SCREENSIZE")
   
5.   )
   
6.   (setq W1 (vla-get-width doc)
   
7.         H1 (vla-get-Height doc)
   
8.         dw (- w1 (car oldsize))
   
9.         dh (- h1 (cadr oldsize))
   
10.   )
    
11.   (vla-put-width doc (+ dw width))
    
12.   (vla-put-height doc (+ dh height))
    
13.   (vla-Update acad)
    
14.   (vla-sendcommand doc "zoom e ")
    
15. )
    

(defun SetScreenSize (Width height / acad doc oldsize doc w1 h1 dw dh)<br />   (setq acad    (vlax-get-acad-object)<br />         doc     (vla-get-ActiveDocument acad)<br />         oldsize (getvar "SCREENSIZE")<br />   )<br />   (setq W1 (vla-get-width doc)<br />         H1 (vla-get-Height doc)<br />         dw (- w1 (car oldsize))<br />         dh (- h1 (cadr oldsize))<br />   )<br />   (vla-put-width doc (+ dw width))<br />   (vla-put-height doc (+ dh height))<br />   (vla-Update acad)<br />   (vla-sendcommand doc "zoom e ")<br /> )<br />

游客，如果您要查看本帖隐藏内容请回复

longer1000

学习学习学习学习

sh_h

等有时间了，把大师的作品好好整理一番！！！

xinxirong

设置长宽有点用，不过最好能设置窗口的位置。arx显得方便很多。

ynhh

谢谢你的这些分享
谢谢

pezyl

学习了，向大师学习

yaokui25

谢谢大师每天都提供这么好的代码

kqqt6236

谢谢分享。

/db_自贡黄明儒_

向楼主学习                    

yoyoho

谢谢你分享程序

laiz3000

向楼主学习  

adc

谢谢分享~~~~~~~~~

zixuan203344

666666666666666666666666666666666666666666

liulisheng

这个支持一下

1049955085ssd

怎么用的呢