VLISP如何调用API隐藏CAD标题栏(已解决)。

wowan1314

通过加载高飞鸟分享的那个VLX...可调用API函数。

不过对于API完全不了解，搞了一天没整明白，，

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=81335 这个是VB编的。

;;;;CAD标题栏、菜单栏 的隐藏与显示(不行)
|;
      (vlax-invoke wrap 'Register "USER32" "SetWindowLong" "i=lll" "r=l");注册SetWindowLong函数
      (vlax-invoke wrap 'Register "USER32" "GetWindowLong" "i=ll" "r=l");注册GetWindowLong函数
      (setq win_style (vlax-invoke wrap 'GetWindowLong hwnd -16))
      ;;(vlax-invoke wrap 'SetWindowLong hwnd -16 0000);隐藏标题栏。。SetWindowPos 更新？


想做个隐藏标题栏与菜单栏的程序。求指导。

highflybir

1. 
   
2. (vl-load-com)
   
3. ;;; ====================================================================
   
4. ;;; 隐藏CAD菜单栏和标题栏                                               
   
5. ;;; ====================================================================
   
6. (defun C:Ccc (/ DWX app hwnd menu)
   
7.   ;; Create a DynamicWrapperX instance and register win32 API functions.
   
8.   (setq DWX (vlax-create-object "DynamicWrapperX"))
   
9.   (and (null DWX) (exit))
   
10.   (vlax-invoke DWX 'Register "USER32" "SetWindowLong" "i=lll" "r=l") ;注册SetWindowLong函数
    
11.   (vlax-invoke DWX 'Register "USER32" "GetWindowLong" "i=ll" "r=l") ;注册GetWindowLong函数
    
12.   (vlax-invoke DWX 'Register "USER32" "SetMenu" "i=ll" "r=l")  ;设置菜单
    
13.   (vlax-invoke DWX 'Register "USER32" "GetMenu" "i=l" "r=l")  ;取得当前菜单句柄
    
14.   ;;Hide the title and menubar
    
15.   (setq app (vlax-get-acad-object))     ;当前CAD程序
    
16.   (setq hwnd (vla-get-hwnd app))     ;CAD窗口句柄
    
17.   (ShowTitle DWX hwnd nil)      ;隐藏标题栏
    
18.   (setq menu (vlax-invoke DWX 'GetMenu hwnd))                           ;获得程序的菜单句柄
    
19.   (and (/= menu 0) (setq hMenu menu))     ;此处应把hMenu设置为全局变量
    
20.   (vlax-invoke DWX 'SetMenu hwnd 0)     ;(vlax-invoke DWX 'SetMenu hwnd hMenu) 恢复菜单栏
    
21.   ;; Release object
    
22.   (vlax-release-object app)
    
23.   (vlax-release-object DWX)
    
24.   (princ)
    
25. )
    
26. (defun ShowTitle (DWX hwnd Show / oldStyle)    ;如果show 为t 那么显示，否则不显示
    
27.   (setq oldStyle  (vlax-invoke Dwx 'GetWindowLong hwnd -16))   ;GWL_STYLE -16
    
28.   (if Show
    
29.     (if (zerop (logand oldstyle 12582912))    ;WS_CAPTION 12582912 C00000
    
30.       (vlax-invoke DWX 'SetWindowLong hwnd -16 (+ oldstyle 12582912))
    
31.     )
    
32.     (if (/= 0  (logand oldstyle 12582912))    ;WS_CAPTION 12582912 C00000
    
33.       (vlax-invoke DWX 'SetWindowLong hwnd -16 (- oldstyle 12582912))
    
34.     )
    
35.   )
    
36. )

<br /> (vl-load-com)<br /> ;;; ====================================================================<br /> ;;; 隐藏CAD菜单栏和标题栏                                               <br /> ;;; ====================================================================<br /> (defun C:Ccc (/ DWX app hwnd menu)<br />   ;; Create a DynamicWrapperX instance and register win32 API functions.<br />   (setq DWX (vlax-create-object "DynamicWrapperX"))<br />   (and (null DWX) (exit))<br />   (vlax-invoke DWX 'Register "USER32" "SetWindowLong" "i=lll" "r=l") ;注册SetWindowLong函数<br />   (vlax-invoke DWX 'Register "USER32" "GetWindowLong" "i=ll" "r=l") ;注册GetWindowLong函数<br />   (vlax-invoke DWX 'Register "USER32" "SetMenu" "i=ll" "r=l")  ;设置菜单<br />   (vlax-invoke DWX 'Register "USER32" "GetMenu" "i=l" "r=l")  ;取得当前菜单句柄<br />   ;;Hide the title and menubar<br />   (setq app (vlax-get-acad-object))     ;当前CAD程序<br />   (setq hwnd (vla-get-hwnd app))     ;CAD窗口句柄<br />   (ShowTitle DWX hwnd nil)      ;隐藏标题栏<br />   (setq menu (vlax-invoke DWX 'GetMenu hwnd))                           ;获得程序的菜单句柄<br />   (and (/= menu 0) (setq hMenu menu))     ;此处应把hMenu设置为全局变量<br />   (vlax-invoke DWX 'SetMenu hwnd 0)     ;(vlax-invoke DWX 'SetMenu hwnd hMenu) 恢复菜单栏<br />   ;; Release object<br />   (vlax-release-object app)<br />   (vlax-release-object DWX)<br />   (princ)<br /> )<br /> (defun ShowTitle (DWX hwnd Show / oldStyle)    ;如果show 为t 那么显示，否则不显示<br />   (setq oldStyle  (vlax-invoke Dwx 'GetWindowLong hwnd -16))   ;GWL_STYLE -16<br />   (if Show <br />     (if (zerop (logand oldstyle 12582912))    ;WS_CAPTION 12582912 C00000<br />       (vlax-invoke DWX 'SetWindowLong hwnd -16 (+ oldstyle 12582912))<br />     )<br />     (if (/= 0  (logand oldstyle 12582912))    ;WS_CAPTION 12582912 C00000<br />       (vlax-invoke DWX 'SetWindowLong hwnd -16 (- oldstyle 12582912))<br />     )<br />   )<br /> )

wowan1314

highflybir 发表于 2012-8-20 18:34

发现问题了。。
1、打开多个图纸的情况下。  在图纸间切换一下，菜单栏就又出现了。
2、从CAD界面切换到其他文件夹，再切换回来时候，系统的任务栏也被遮挡了。。
  请高飞鸟有时间再帮忙调整下。。

自贡黄明儒

highflybir 发表于 2012-8-20 18:34

向highflybir学习

juniko

发现这个调用api的方法好多了。。。就是要注册个控件麻烦了点

wangph

这种方法对高版本的CAD是改不了的

我爱lisp

一直想找这么个通用函数，对cAD界面进行设置，让二次开发显得更专业，顶起来