如何用vlisp将主程序窗口移至副屏幕

jackie31986

画图的时候用两个显示器，需要将主程序窗口移至第二个显示器上。用VLA-GET-WINDOWLEFT 可以得到负值，但是改值用的VLA-PUT-WINDOWLEFT 不支持改成负值，请教一下有没有什么其它方法可以实现。

jackie31986

分享一下，最后用C#实现了我需要的功能。

2. using System;
   
3. using System.Collections.Generic;
   
4. using System.Linq;
   
5. using System.Text;
   
6. using System.Threading.Tasks;
   
7. using Autodesk.AutoCAD.Runtime;
   
8. using Autodesk.AutoCAD.ApplicationServices;
   
9. using System.Drawing;
   
10. using Autodesk.AutoCAD.Windows;
    
11. 
    
12. namespace 调整CAD程序窗口
    
13. {
    
14.     /// <summary>
    
15.     /// 用于将程序窗口改为右屏最大。
    
16.     /// </summary>
    
17.     public class WindowContrlA
    
18.     {
    
19.         [CommandMethod("W1")]
    
20.         public static void WindowPost()  //调&#12132;HelloWorld 命令要调&#12132;的函数
    
21.         {
    
22.             Point ptApp = new Point(-9, -9);   //设点为（0，0）
    
23.             Size szApp = new Size(1938, 1048);  //设窗口大小为(500,500)
    
24.             Application.MainWindow.SetLocation(ptApp);  //将程序窗口点设为(0,0)
    
25.             Application.MainWindow.SetSize(szApp);  //将程序窗口大小设为(1920,1080)
    
26.         }
    
27.     }
    
28. 
    
29.     /// <summary>
    
30.     /// 用于将程序窗口改为双屏最大。
    
31.     /// </summary>
    
32.     public class WindowContrlB
    
33.     {
    
34.         [CommandMethod("W2")]
    
35.         public static void WindowPost()  //调&#12132;HelloWorld 命令要调&#12132;的函数
    
36.         {
    
37.             Point ptApp = new Point(-1929, -9);   //设点为（-1929，-9）
    
38.             Size szApp = new Size(3882, 1048);  //设窗口大小为(3840,1080)
    
39.             Application.MainWindow.SetLocation(ptApp);  //将程序窗口点设为(0,0)
    
40.             Application.MainWindow.SetSize(szApp);   //将程序设窗口大小为(3840,1080)
    
41.         }
    
42.     }
    
43. }
    

using System;<br /> using System.Collections.Generic;<br /> using System.Linq;<br /> using System.Text;<br /> using System.Threading.Tasks;<br /> using Autodesk.AutoCAD.Runtime;<br /> using Autodesk.AutoCAD.ApplicationServices;<br /> using System.Drawing;<br /> using Autodesk.AutoCAD.Windows;<br /> <br /> namespace 调整CAD程序窗口<br /> {<br />     /// <summary><br />     /// 用于将程序窗口改为右屏最大。<br />     /// </summary><br />     public class WindowContrlA<br />     {<br />         [CommandMethod("W1")]<br />         public static void WindowPost()  //调&#12132;HelloWorld 命令要调&#12132;的函数 <br />         {<br />             Point ptApp = new Point(-9, -9);   //设点为（0，0）<br />             Size szApp = new Size(1938, 1048);  //设窗口大小为(500,500) <br />             Application.MainWindow.SetLocation(ptApp);  //将程序窗口点设为(0,0)<br />             Application.MainWindow.SetSize(szApp);  //将程序窗口大小设为(1920,1080)<br />         }<br />     }<br /> <br />     /// <summary><br />     /// 用于将程序窗口改为双屏最大。<br />     /// </summary><br />     public class WindowContrlB<br />     {<br />         [CommandMethod("W2")]<br />         public static void WindowPost()  //调&#12132;HelloWorld 命令要调&#12132;的函数 <br />         {<br />             Point ptApp = new Point(-1929, -9);   //设点为（-1929，-9）<br />             Size szApp = new Size(3882, 1048);  //设窗口大小为(3840,1080) <br />             Application.MainWindow.SetLocation(ptApp);  //将程序窗口点设为(0,0)<br />             Application.MainWindow.SetSize(szApp);   //将程序设窗口大小为(3840,1080) <br />         }<br />     }<br /> }<br />

e2002

多屏的没有用过，希望有多屏的用户研究一下

pxt2001

移动窗口到副屏幕：win+shift+左or右方向键，非常快捷。

hushiyong11

这都能用lisp实现吗

jackie31986

pxt2001 发表于 2021-9-26 16:40
移动窗口到副屏幕：win+shift+左or右方向键，非常快捷。

可不可以用lisp实现快捷键功能？

jackie31986

hushiyong11 发表于 2021-9-27 09:37
这都能用lisp实现吗

可以的，目前我查了很多函数，有几个都可以控制主窗口程序大小，vla-put-windowleft(左边界),vla-put-windowtop(上边界),vla-put-height(高度)，vla-put-width(宽度)。不过目前只适用于主显示器，无法移动到多屏的其它显示器。

jackie31986

jackie31986 发表于 2021-9-27 14:47
可以的，目前我查了很多函数，有几个都可以控制主窗口程序大小，vla-put-windowleft(左边界),vla-put-win ...

可以实现的，不过要把主显示器设为左边的显示器，因为lisp的vla-put-windowleft 不支持负数。

baitang36

jackie31986 发表于 2021-9-27 14:43
可不可以用lisp实现快捷键功能？

http://bbs.mjtd.com/thread-187076-1-1.html

Bao_lai

试了下，很好用。感谢分享。