请教：关于隐藏CAD标题栏与菜单栏？

wowan1314

通过加载高飞鸟提供的VLX...可调用API函数。

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


请路过高手指导！！！  


;;;;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 更新？


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

邹锋

(defun c:cadbt(/ app acadver wrap hwnd filename str hico)
  (if (or (= (getvar "CPROFILE") "MyKey")
          (= (getvar "CPROFILE") "MyKeyE")
          (= (getvar "CPROFILE") "werwer")
      )
    (progn
      (vl-load-com)
      (setq app (vlax-get-acad-object))        ;CAD程序对象
      (setq acadver (atof (getvar "acadver"))) ;获取当前cad版本
      (setq wrap (vlax-create-object "DynamicWrapperX"));创建DynamicWrapperX对象
      (setq hwnd (vla-get-hwnd app))        ;当前文档句柄
      (cond
        ((= acadver 16.0) (setq str "CAD技术支持 QQ:609719845              "))
        ((= acadver 16.1) (setq str "CAD技术支持 QQ:609719845              "))
        ((= acadver 16.2) (setq str "CAD技术支持 QQ:609719845              "))
        ((= acadver 17.0) (setq str "CAD技术支持 QQ:609719845              "))
        ((= acadver 17.1) (setq str "CAD技术支持 QQ:609719845              "))
        ((= acadver 17.2) (setq str "CAD技术支持 QQ:609719845              "))
        ((= acadver 18.0) (setq str "CAD技术支持 QQ:609719845              "))
      )
      (setq filename "cad.ico")
      (vlax-invoke wrap 'Register "USER32" "SetWindowText" "i=ls" "r=l");注册SetWindowText函数
      (vlax-invoke wrap 'SetWindowText hwnd str);重设CAD程序标题窗口文字内容
      (vlax-invoke wrap 'Register "USER32" "LoadImage" "i=lsllll" "r=l");注册LoadImage函数
      (vlax-invoke wrap 'Register "USER32" "SendMessage" "i=llll" "r=l");注册SendMessage函数
      (setq hico (vlax-invoke wrap 'LoadImage 0 filename 1 16 16 10));获得装载的图标句柄
      (vlax-invoke wrap 'SendMessage hwnd 80 0 hico);重设CAD程序标题窗口图标
      (vlax-release-object wrap)
    )
  )
  (princ)
)
(C:cadbt)

;;搜索下以前高飞鸟的就行了

BDYCAD

牛Ｂ

wowan1314

顶顶

jsxygshh

真的应该好好学习了