求一段在lisp或VBA下更改AutoCAD标题的程序

scry_wxj · 发表于 2011-5-31 22:53

求一段在lisp或VBA下更改AutoCAD标题的程序,最好是LISP,谢谢扣位大侠了？

highflybird · 发表于 2011-5-31 23:47

本帖最后由 highflybird 于 2011-5-31 23:50 编辑

新建一个vba文件，插入模块，写入下面的代码：运行即可:

Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Sub test()
Dim CADhwnd As Long
CADhwnd = ThisDrawing.Application.hwnd
Call SetWindowText(CADhwnd, "窗口标题已经改变!") '改变CAD程序标题
Dim DOChwnd As Long
DOChwnd = ThisDrawing.hwnd
Call SetWindowText(DOChwnd, "图形标题已经改变!") '改变图形窗口标题
End Sub

highflybird · 发表于 2011-5-31 23:54

本帖最后由 highflybird 于 2011-5-31 23:54 编辑

回复 scry_wxj 的帖子

如果用DynamicWrapperX也很简单

(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)

yanshengjiang · 发表于 2011-6-2 20:05

回复 highflybird 的帖子

那请问怎么修改cad左上角的图标呢

highflybir · 发表于 2011-6-3 00:32

本帖最后由 highflybir 于 2011-6-3 00:45 编辑

回复 yanshengjiang 的帖子

(setq DWX (vlax-create-object "DynamicWrapperX"))
(vlax-invoke DWX 'Register "Shell32" "ExtractIconW" "i=lwl" "r=l")
(vlax-invoke DWX 'Register "USER32" "SendMessageW" "i=llll" "r=l")
(setq WM_SETICON 128)
(setq *APP (vlax-get-acad-object))
(setq hWnd (vla-get-hwnd *APP))
(setq icon (vlax-invoke DWX 'ExtractIconW 0 "C:/windows/system32/shell32.dll" 0))
(setq ret (vlax-invoke DWX 'SendMessageW hwnd WM_SETICON 0 icon))
(vlax-release-object DWX)

下面的是获取ACAD.exe的图标。

scry_wxj · 发表于 2011-6-3 13:40

回复 highflybird 的帖子

谢谢你. 它提示错误: 参数类型错误: VLA-OBJECT nil ,能否再解答一下.

yanshengjiang · 发表于 2011-6-3 15:42

鍥炲 highflybir 鐨勫笘瀛�

鏈嬪弸鎴戝緢鑿溿

yanshengjiang · 发表于 2011-6-3 15:51

鑰佹槸涔辩爜閮侀椃

yanshengjiang · 发表于 2011-6-3 15:56

luan ma銆�

scry_wxj · 发表于 2011-6-3 16:27

怎么是乱码?

账号		自动登录	找回密码
密码			注册

[函数] 求一段在lisp或VBA下更改AutoCAD标题的程序