设置窗口大小程的序问题

adc

win10 64位系统cad2012版本下这个程序运行时总提示： ; 错误: 参数类型错误: VLA-OBJECT nil， 请教问题出在哪里？谢谢！

1. ;;需要先下载安装dynwrapx.dll，然后才能正常使用
   
2. ;;可以重新下载一个dynwrapx.dll文件，复制到c:\windows\system32文件夹【64位系统在C:\Windows\SysWOW64目录】，然后【开始-运行-输入C:\Windows\SysWOW64\regsvr32 dynwrapx.dll】即可。
   
3. ;;自带命令syswindows也可很方便的实现，不过窗口还有标题栏
   
4. ;;将两个打开的dwg窗口左右均布
   
5. (vl-load-com)
   
6. 
   
7. (defun c:docwinleft (/ app doc wrap hwnd w1 h1)
   
8.   (setq app (vlax-get-acad-object))                                     ;CAD程序对象
   
9.   (setq doc (vla-get-ActiveDocument app))                             ;当前文档对象
   
10.   (setq wrap (vlax-create-object "DynamicWrapperX"))                 ;创建DynamicWrapperX对象
    
11.   (setq hwnd (vla-get-hwnd doc))                                       ;当前文档句柄
    
12.   (vla-put-windowState doc 3)                                        ;当前文档窗口最大化
    
13.   (setq w1 (fix (* (vla-get-width doc) 0.5)))                        ;设w1为当前文档窗口宽度的一半
    
14.   (setq h1 (fix (vla-get-Height doc)))                               ;设h1为当前文档窗口高度
    
15.   (vla-put-windowState doc 1)                                        ;当前文档窗口正常
    
16.   (vlax-invoke wrap 'Register "USER32" "MoveWindow" "i=llllll" "r=l");注册MoveWindow函数
    
17.   (vlax-invoke wrap 'MoveWindow hwnd -4 -25 (+ w1 7) h1 1)           ;移动当前文档窗口至左侧,并改窗口宽度为最大化时的一半
    
18.   (vlax-release-object wrap)
    
19.   (princ)
    
20. )
    
21. 
    
22. (defun c:docwinright (/ app doc wrap hwnd w1 h1)
    
23.   (setq app (vlax-get-acad-object))                                     ;CAD程序对象
    
24.   (setq doc (vla-get-ActiveDocument app))                             ;当前文档对象
    
25.   (setq wrap (vlax-create-object "DynamicWrapperX"))                 ;创建DynamicWrapperX对象
    
26.   (setq hwnd (vla-get-hwnd doc))                                       ;当前文档句柄
    
27.   (vla-put-windowState doc 3)                                        ;当前文档窗口最大化
    
28.   (setq w1 (fix (* (vla-get-width doc) 0.5)))                        ;设w1为当前文档窗口宽度的一半
    
29.   (setq h1 (fix (vla-get-Height doc)))                               ;设h1为当前文档窗口高度
    
30.   (vla-put-windowState doc 1)                                        ;当前文档窗口正常
    
31.   (vlax-invoke wrap 'Register "USER32" "MoveWindow" "i=llllll" "r=l");注册MoveWindow函数
    
32.   (vlax-invoke wrap 'MoveWindow hwnd (- w1 3) -25 (+ w1 3) h1 1)     ;移动当前文档窗口至右侧,并改窗口宽度为最大化时的一半
    
33.   (vlax-release-object wrap)
    
34.   (princ)
    
35. )
    

;;需要先下载安装dynwrapx.dll，然后才能正常使用<br /> ;;可以重新下载一个dynwrapx.dll文件，复制到c:\windows\system32文件夹【64位系统在C:\Windows\SysWOW64目录】，然后【开始-运行-输入C:\Windows\SysWOW64\regsvr32 dynwrapx.dll】即可。<br /> ;;自带命令syswindows也可很方便的实现，不过窗口还有标题栏<br /> ;;将两个打开的dwg窗口左右均布<br /> (vl-load-com)<br /> <br /> (defun c:docwinleft (/ app doc wrap hwnd w1 h1)<br />   (setq app (vlax-get-acad-object))                                     ;CAD程序对象<br />   (setq doc (vla-get-ActiveDocument app))                             ;当前文档对象<br />   (setq wrap (vlax-create-object "DynamicWrapperX"))                 ;创建DynamicWrapperX对象<br />   (setq hwnd (vla-get-hwnd doc))                                       ;当前文档句柄<br />   (vla-put-windowState doc 3)                                        ;当前文档窗口最大化<br />   (setq w1 (fix (* (vla-get-width doc) 0.5)))                        ;设w1为当前文档窗口宽度的一半<br />   (setq h1 (fix (vla-get-Height doc)))                               ;设h1为当前文档窗口高度<br />   (vla-put-windowState doc 1)                                        ;当前文档窗口正常<br />   (vlax-invoke wrap 'Register "USER32" "MoveWindow" "i=llllll" "r=l");注册MoveWindow函数<br />   (vlax-invoke wrap 'MoveWindow hwnd -4 -25 (+ w1 7) h1 1)           ;移动当前文档窗口至左侧,并改窗口宽度为最大化时的一半<br />   (vlax-release-object wrap)<br />   (princ)<br /> )<br /> <br /> (defun c:docwinright (/ app doc wrap hwnd w1 h1)<br />   (setq app (vlax-get-acad-object))                                     ;CAD程序对象<br />   (setq doc (vla-get-ActiveDocument app))                             ;当前文档对象<br />   (setq wrap (vlax-create-object "DynamicWrapperX"))                 ;创建DynamicWrapperX对象<br />   (setq hwnd (vla-get-hwnd doc))                                       ;当前文档句柄<br />   (vla-put-windowState doc 3)                                        ;当前文档窗口最大化<br />   (setq w1 (fix (* (vla-get-width doc) 0.5)))                        ;设w1为当前文档窗口宽度的一半<br />   (setq h1 (fix (vla-get-Height doc)))                               ;设h1为当前文档窗口高度<br />   (vla-put-windowState doc 1)                                        ;当前文档窗口正常<br />   (vlax-invoke wrap 'Register "USER32" "MoveWindow" "i=llllll" "r=l");注册MoveWindow函数<br />   (vlax-invoke wrap 'MoveWindow hwnd (- w1 3) -25 (+ w1 3) h1 1)     ;移动当前文档窗口至右侧,并改窗口宽度为最大化时的一半<br />   (vlax-release-object wrap)<br />   (princ)<br /> )<br />

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:将两个打开的dwg窗口左右均布修改docwinleftdocwinright.lsp 
下载次数:17  文件大小:2.34 KB 
下载权限: 不限 以上  [免费赚D豆]

newer

这么短的代码，还是直接贴出来更方便讨论，帮你修改了

newer

你把  dynwrapx.dll 打包到压缩文件里面传上来，别人没这个，怎么帮你调试程序啊

/db_自贡黄明儒_

高飞大师的帖子里说得很清楚，分64位dynwrapx.dll和32位dynwrapx.dll，看你的代码没有判断32位还是64位，出错就难免了。

adc

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:dynwrapx.zip 
下载次数:9  文件大小:11.42 KB 
下载权限: 不限 以上  [免费赚D豆]

newer 发表于 2017-5-18 10:19

已上传，谢谢帮忙

adc

/db_自贡黄明儒_ 发表于 2017-5-18 13:57

谢谢回复，我只注册了64位，还需要判断吗？