如何更改标题栏

simonqian

革天明 发表于 2011-10-22 08:55
DynWrapX.dll 注册后在LSP可以修改标题，但ICO图片不知道怎么设置，资料太少，目前还不会。
(vl-load-com) ...

谢谢，革天明
标题修改成功，您再研究下图标怎么修改，非常感谢您的LSP

革天明

xiaoyingzi 发表于 2011-8-31 23:06
使用前需注册下http://bbs.mjtd.com/forum.php?mod=viewthread&tid=85724&highlight=api里的DynWrapX.dll 文 ...

setq filename "mykey.ico")
大侠，这句没有用到啊?!如何更改图标呢，我用你的那个arx可以更改标题栏内的文字和图标，ARX的和这个有什么不同吗？如何才能使文字居中？我看见有的CAD中“在标题栏中显示完整路径”这部分文字内容可以居中显示，如何的控制靠左，居中、还是靠右？谢谢！

xiaoyingzi

(defun c:setmycadtitle (/ app acadver wrap hwnd filename str hico)
  (if (or (= (getvar "CPROFILE") "MyKey")
           (= (getvar "CPROFILE") "MyKeyE")
           (= (getvar "CPROFILE") "<<未命名配置>>")
      )
  (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 "MyKey For AutoCAD 2004"))
    ((= acadver 16.1)(setq str "MyKey For AutoCAD 2005"))
    ((= acadver 16.2)(setq str "MyKey For AutoCAD 2006"))
    ((= acadver 17.0)(setq str "MyKey For AutoCAD 2007"))
    ((= acadver 17.1)(setq str "MyKey For AutoCAD 2008"))
    ((= acadver 17.2)(setq str "MyKey For AutoCAD 2009"))
    ((= acadver 18.0)(setq str "MyKey For AutoCAD 2010"))
  )
  (setq filename "mykey.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)
)

xiaoyingzi

(setq filename "mykey.ico")这句是用来为下面做准备
  (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程序标题窗口图标
这段总是有问题，获得得hico总是0

革天明

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的用不了

wowan1314

启动画面在这个文件 acadres.dll　里，找这个程序　ResHacker.exe　，拿它可以修改。

以前这样试过的，完全可以实现。

至于你说直接用链接上的DLL。 那个DLL是CAD04的。不可以拿来弄CAD06

革天明

wowan1314 发表于 2012-6-24 11:57
启动画面在这个文件 acadres.dll　里，找这个程序　ResHacker.exe　，拿它可以修改。

以前这样试过的，完 ...

因为基于同样的原理，我以前也试过直接修改那个dll了，可并不有可行，因为我要修改的是06机械版的界面，那个dll中从头到尾都没有机械版的启动画面，其它dll里面没有认真找。谢谢你！

z16

2. 
   
3. (defun C:addprops1 (/ App Doc DwgProps lanme dname pname)
   
4.     (setq        App         (vlax-Get-Acad-Object)
   
5.          Doc         (vla-Get-ActiveDocument App)
   
6.          DwgProps (vla-Get-SummaryInfo Doc)
   
7.     )
   
8. 
   
9.     (setq Num (vla-NumCustomInfo DwgProps))
   
10. 
    
11.     (setq lname (getvar "loginname"))
    
12.     (IF (= lname "andrew")
    
13.       (setq lname "AM")
    
14.     )
    
15.     (setq dname (vl-filename-base (getvar "dwgname")))
    
16.     (setq        pname (vl-Filename-Base
    
17.                  (vl-Filename-Directory (getvar "Dwgprefix"))
    
18.                )
    
19.     )
    
20.     (vla-put-author dwgprops lname)
    
21.     (if (vl-catch-all-apply
    
22.          'vla-removecustombykey
    
23.          (list dwgprops "")
    
24.         )
    
25.                                          ;(vla-addcustominfo dwgprops "" "84")
    
26.       (progn
    
27.         (vl-catch-all-apply
    
28.          'vla-removecustombykey
    
29.          (list dwgprops "Job No.")
    
30.         )
    
31.         (vla-addcustominfo dwgprops "Job No." "123")
    
32.       )
    
33.     )
    
34.     (if (vl-catch-all-apply
    
35.          'vla-removecustombykey
    
36.          (list dwgprops "Job No.")
    
37.         )
    
38.       (vla-addcustominfo dwgprops "Job No." "123")
    
39.       (progn
    
40.         (vl-catch-all-apply
    
41.          'vla-removecustombykey
    
42.          (list dwgprops "Job No.")
    
43.         )
    
44.         (vla-addcustominfo dwgprops "Job No." "123")
    
45.       )
    
46.     )
    
47.     (if (vl-catch-all-apply
    
48.          'vla-removecustombykey
    
49.          (list dwgprops "DWG Name")
    
50.         )
    
51.       (vla-addcustominfo dwgprops "DWG Name" "abc")
    
52.       (progn
    
53.         (vl-catch-all-apply
    
54.          'vla-removecustombykey
    
55.          (list dwgprops "DWG Name")
    
56.         )
    
57.         (vla-addcustominfo dwgprops "DWG Name" "abc")
    
58.       )
    
59.     )
    
60.                                          ;(vla-AddCustomInfo DwgProps "Sample3" "Data3")
    
61.                                          ;(vla-SetCustomByIndex DwgProps 0 "Sample1" "data1")
    
62.                                          ;(vla-SetCustomByIndex DwgProps 1 "Sample2" "data2")
    
63.                                          ;(vla-SetCustomByIndex DwgProps 2 "Sample3" "data3")
    
64. 
    
65.     (setq xx (vla-GetCustomByIndex DwgProps 1 'id 'value))
    
66.                                          ;(vla-GetCustomByIndex DwgProps 1 'cc 'dd)
    
67.                                          ;(vla-GetCustomByIndex DwgProps 2 'ee 'ff)
    
68. 
    
69.     (vla-put-comments
    
70.       dwgprops
    
71.       (strcat "New comments1\r\n" "comments2")
    
72.     )
    
73.                                          ;(vla-put-comments dwgprops "New comments2")
    
74.     (vla-put-keywords dwgprops "New keywords")
    
75.     (vla-put-subject dwgprops "Subject")
    
76.     (vla-put-Title dwgprops "Title")

<br /> (defun C:addprops1 (/ App Doc DwgProps lanme dname pname)<br />     (setq        App         (vlax-Get-Acad-Object)<br />          Doc         (vla-Get-ActiveDocument App)<br />          DwgProps (vla-Get-SummaryInfo Doc)<br />     )<br /> <br />     (setq Num (vla-NumCustomInfo DwgProps))<br /> <br />     (setq lname (getvar "loginname"))<br />     (IF (= lname "andrew")<br />       (setq lname "AM")<br />     )<br />     (setq dname (vl-filename-base (getvar "dwgname")))<br />     (setq        pname (vl-Filename-Base<br />                  (vl-Filename-Directory (getvar "Dwgprefix"))<br />                )<br />     )<br />     (vla-put-author dwgprops lname)<br />     (if (vl-catch-all-apply<br />          'vla-removecustombykey<br />          (list dwgprops "")<br />         )<br />                                          ;(vla-addcustominfo dwgprops "" "84")<br />       (progn<br />         (vl-catch-all-apply<br />          'vla-removecustombykey<br />          (list dwgprops "Job No.")<br />         )<br />         (vla-addcustominfo dwgprops "Job No." "123")<br />       )<br />     )<br />     (if (vl-catch-all-apply<br />          'vla-removecustombykey<br />          (list dwgprops "Job No.")<br />         )<br />       (vla-addcustominfo dwgprops "Job No." "123")<br />       (progn<br />         (vl-catch-all-apply<br />          'vla-removecustombykey<br />          (list dwgprops "Job No.")<br />         )<br />         (vla-addcustominfo dwgprops "Job No." "123")<br />       )<br />     )<br />     (if (vl-catch-all-apply<br />          'vla-removecustombykey<br />          (list dwgprops "DWG Name")<br />         )<br />       (vla-addcustominfo dwgprops "DWG Name" "abc")<br />       (progn<br />         (vl-catch-all-apply<br />          'vla-removecustombykey<br />          (list dwgprops "DWG Name")<br />         )<br />         (vla-addcustominfo dwgprops "DWG Name" "abc")<br />       )<br />     )<br />                                          ;(vla-AddCustomInfo DwgProps "Sample3" "Data3")<br />                                          ;(vla-SetCustomByIndex DwgProps 0 "Sample1" "data1")<br />                                          ;(vla-SetCustomByIndex DwgProps 1 "Sample2" "data2")<br />                                          ;(vla-SetCustomByIndex DwgProps 2 "Sample3" "data3")<br /> <br />     (setq xx (vla-GetCustomByIndex DwgProps 1 'id 'value))<br />                                          ;(vla-GetCustomByIndex DwgProps 1 'cc 'dd)<br />                                          ;(vla-GetCustomByIndex DwgProps 2 'ee 'ff)<br /> <br />     (vla-put-comments<br />       dwgprops<br />       (strcat "New comments1\r\n" "comments2")<br />     )<br />                                          ;(vla-put-comments dwgprops "New comments2")<br />     (vla-put-keywords dwgprops "New keywords")<br />     (vla-put-subject dwgprops "Subject")<br />     (vla-put-Title dwgprops "Title")

革天明

z16 发表于 2013-1-17 21:22

使用之后没反应啊？

chpmould

革天明 发表于 2013-1-21 17:34
使用之后没反应啊？

试试这个贴中的方法: http://bbs.mjtd.com/thread-95111-1-1.html