如何更改标题栏

革天明

图片是我PS的，请问有没有设置这个位置的系统变量？

革天明

xiaoyingzi 发表于 2012-6-18 20:18
(setq filename "mykey.ico")这句是用来为下面做准备
  (vlax-invoke wrap 'Register "USER32" "LoadImag ...

我现在使用您的arx版本的那个改图标和标题文字的，很好用，若不想让用户更改这些配置只能将这ico文件打包进VLX了，实现不行就准备打包进VLX，整个论坛就你对这个问题的研究最深，佩服！另外想问一下，你会修改CAD的启动画面吗？如http://bbs.mjtd.com/thread-70699-2-1.html？我照此方法做了06的，启动不了，直接使用链接上的dll，会弹出画面，然后就提示出错了，所以06的用不了

革天明

窗体左下角的我已设置好了，就差标题栏了，请高手指教！

snddd2000

参考http://www.theswamp.org/index.php?topic=12127.0
不过不是系统变量，是用的VBA+API

Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal HWND As Long, ByVal lpString As String) As Long

Sub SetText(Title As String)
Dim RetVal As Long
  RetVal = SetWindowText(Application.HWND, Title)
End Sub

调用
Call SetText("new TITLE")

革天明

snddd2000 发表于 2011-8-30 10:51
参考http://www.theswamp.org/index.php?topic=12127.0
不过不是系统变量，是用的VBA+API

能做出一个文件吗？能保证自动加载吗？永久改变吗？

snddd2000

革天明 发表于 2011-8-30 18:49
能做出一个文件吗？能保证自动加载吗？永久改变吗？

可以，工程文件放在启动组里

革天明

snddd2000 发表于 2011-8-30 18:56
可以，工程文件放在启动组里

现在可以正常使用，不过还有一点不太好的地方，那就是每次加载时都会问一下是否要加载宏，这个有点麻烦，如何设置不让弹出这个警告呢，最好能在LISP中设置。

革天明

xiaoyingzi

2. (defun c:setmycadtitle (/ app acadver wrap hwnd filename str hico)
   
3.   (vl-load-com)
   
4.   (setq app (vlax-get-acad-object))                                               ;CAD程序对象
   
5.   (setq acadver (atof (getvar "acadver")))                                     ;获取当前cad版本
   
6.   (setq wrap (vlax-create-object "DynamicWrapperX"))                 ;创建DynamicWrapperX对象
   
7.   (setq hwnd (vla-get-hwnd app))                                                  ;当前文档句柄
   
8.   (cond
   
9.     ((= acadver 16.0)(setq str "xxxx For AutoCAD 2004"))
   
10.     ((= acadver 16.1)(setq str "xxxx For AutoCAD 2005"))
    
11.     ((= acadver 16.2)(setq str "xxxx For AutoCAD 2006"))
    
12.     ((= acadver 17.0)(setq str "xxxxFor AutoCAD 2007"))
    
13.     ((= acadver 17.1)(setq str "xxxx For AutoCAD 2008"))
    
14.     ((= acadver 17.2)(setq str "xxxx For AutoCAD 2009"))
    
15.     ((= acadver 18.0)(setq str "xxxx For AutoCAD 2010"))
    
16.   )
    
17.   (setq filename "mykey.ico")
    
18.   (vlax-invoke wrap 'Register "USER32" "SetWindowText" "i=ls" "r=l") ;注册SetWindowText函数
    
19.   (vlax-invoke wrap 'SetWindowText hwnd str)                           ;重设CAD程序标题窗口文字内容
    
20.   (vlax-release-object wrap)
    
21.   (princ)
    
22. )

(defun c:setmycadtitle (/ app acadver wrap hwnd filename str hico)<br />   (vl-load-com)<br />   (setq app (vlax-get-acad-object))                                               ;CAD程序对象<br />   (setq acadver (atof (getvar "acadver")))                                     ;获取当前cad版本<br />   (setq wrap (vlax-create-object "DynamicWrapperX"))                 ;创建DynamicWrapperX对象<br />   (setq hwnd (vla-get-hwnd app))                                                  ;当前文档句柄<br />   (cond<br />     ((= acadver 16.0)(setq str "xxxx For AutoCAD 2004"))<br />     ((= acadver 16.1)(setq str "xxxx For AutoCAD 2005"))<br />     ((= acadver 16.2)(setq str "xxxx For AutoCAD 2006"))<br />     ((= acadver 17.0)(setq str "xxxxFor AutoCAD 2007"))<br />     ((= acadver 17.1)(setq str "xxxx For AutoCAD 2008"))<br />     ((= acadver 17.2)(setq str "xxxx For AutoCAD 2009"))<br />     ((= acadver 18.0)(setq str "xxxx For AutoCAD 2010"))<br />   )<br />   (setq filename "mykey.ico")<br />   (vlax-invoke wrap 'Register "USER32" "SetWindowText" "i=ls" "r=l") ;注册SetWindowText函数<br />   (vlax-invoke wrap 'SetWindowText hwnd str)                           ;重设CAD程序标题窗口文字内容<br />   (vlax-release-object wrap)<br />   (princ)<br /> )

使用前需注册下http://bbs.mjtd.com/forum.php?mod=viewthread&tid=85724&highlight=api里的DynWrapX.dll 文件

zxjing

请问前辈们，那个图标怎么修改，图标的格式有要求吗？

革天明

DynWrapX.dll 注册后在LSP可以修改标题，但ICO图片不知道怎么设置，资料太少，目前还不会。
(vl-load-com)
(setq DWX (vlax-create-object "DynamicWrapperX"))
(vlax-invoke DWX 'Register "USER32" "SetWindowTextW" "i=lw" "r=l")
(vlax-invoke DWX 'SetWindowTextW (vla-get-hwnd (vlax-get-acad-object)) "守望月亮的树")
(vlax-release-object DWX)
使用之前要注册DynWrapX.dll ，这个你可以自己搜索下载