关于screensize变量

669423907

请问各位大师，screensize变量能自定义吗？我想在需要时设为 130，90   不知能否做到呢？

highflybir

看来是不用API也可以达到目的了。

1. (defun ChangeScreenSize (Width height / oldsize doc w1 h1 dw dh)
   
2.   (setq oldsize (getvar "SCREENSIZE"))
   
3.   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
4.   (setq W1 (vla-get-width doc))
   
5.   (setq H1 (vla-get-Height doc))
   
6.   (setq dw (- w1 (car oldsize)))
   
7.   (setq dh (- h1 (cadr oldsize)))
   
8.   (vla-put-width doc (+ dw width))
   
9.   (vla-put-height doc (+ dh height))
   
10. )
    

(defun ChangeScreenSize (Width height / oldsize doc w1 h1 dw dh)<br />   (setq oldsize (getvar "SCREENSIZE"))<br />   (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))<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 />

下面是测试：

1. 
   
2. (defun c:test( / w h)
   
3.   (setq W (getint "\n输入宽:"))
   
4.   (setq H (getint "\n输入高:"))
   
5.   (changeScreenSize w h)
   
6. )
   

<br /> (defun c:test( / w h)<br />   (setq W (getint "\n输入宽:"))<br />   (setq H (getint "\n输入高:"))<br />   (changeScreenSize w h)<br /> )<br />

669423907

自己顶一下，希望有人吱个声！

duotu007

只读变量，应该不能改

highflybir

这个变量虽然不可以改，但是可以通过windows API 函数来修改

669423907

回复 highflybir 的帖子

该如何写呢？恳请大师指教。

mandala

楼上的比较牛。

669423907

回复 highflybir 的帖子

非常感谢 highflybir 版主的帮助。
我要此程序的目的是想实现以下功能
1，在CAD中，删除未选择对象
2，关闭线宽
3，zoom_e
4，全选、复制
5，".undo"4
CAD→Excel
(defun c:exc()
(princ"\n选择要保留对象: ")
(setq ss(ssget)
ss1(ssget"X"))
(command "erase"ss1"r"ss""zoom _e)
(command "zoom""e""" "lwdisplay""0" "copyclip""all""" ".undo"4""))

不知 highflybir 版主是否方便帮我把两个程序合并且实现以下功能呢？：
1，选择对象后按下快捷键 exc 删除未选择对象
2，SCREENSIZE 为 200,140
3，"lwdisplay""0"
4，"zoom""e"
5，"copyclip""all"
6，SCREENSIZE 最大化
7，撤销删除
8，"lwdisplay""1"
9，"zoom""e"

因为经常要从别人的电脑里不同的图纸(只读)中拷图形到 Excel 里，
希望 highflybir 版主帮帮忙，实在是感激不尽啊！

highflybird

(vla-put-windowState   DOC 3) ---->最大化

669423907

回复 highflybird 的帖子

首先非常感谢大师的关注。只是我不懂写程序。不知 highflybird 大师是否方便帮忙实现我上述的功能呢？