[LISP函数]：Lisp如何改变AutoCAD标题栏

xdsea

使用Lisp编程如何实现改变AutoCAD标题栏

舟自横

lisp 做不到，需要用 vb或arx (c++)

TLHMQH

用vb怎样实现改变AutoCAD标题栏？

舟自横

好久以前寫過一個，要找找看，網上好象有類似的文章你們也可以自己找找。

Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal _
hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal _
hwnd As Long, ByVal lpString As String) As Long

Sub ch_titlebar()
Dim acadhnd As Long
Dim titletxt As String
Dim curtxt As String
titletxt = "制造業-*****有限公司 CAD/CAM系統"
curtxt = Space(256)
'Obtains the handle of AutoCAD window.
acadhnd = GetActiveWindow
'Obtain the current text in the titlebar.
'GetWindowText acadhnd, curtxt, 125
'Set the desired text for the titlebar.
SetWindowText acadhnd, titletxt
End Sub

由於我的VB被卸載，可以將AutoCad的標題欄"AutoCAD2002"改為你想要的文字
如：tletxt = "制造業-*****有限公司 CAD/CAM系統"
這是在VBA裡面寫的適用cad2002   2004沒有測試過

2004測試也通過----看圖

TLHMQH

先谢过5楼！
因太忙，有时间一定试试。

kohi

与2楼商权：怎么能说LISP做不到呢？请搜索参考本论坛。

舟自横

最初由 kohi 发布
[B]与2楼商权：怎么能说LISP做不到呢？请搜索参考本论坛。 [/B]

在哪裡？
願聞其詳..

yybu

6楼的兄弟,指明是在哪里有这样的东东呀!

happyhxj

为什么要该标题栏啊

曹杰

在哪里加载呀

haibinpro

为什么我
工具>>宏>>VBA管理器>>新建 进入VB编辑器后,把代码加入保存
并加载保存文件test.dvb到启动组，但cad标题栏没反应的？关闭后重新打开也是如此。

舟自横

最初由 haibinpro 发布
[B]为什么我
工具>>宏>>VBA管理器>>新建 进入VB编辑器后,把代码加入保存
并加载保存文件test.dvb到启动组，但cad标题栏没反应的？关闭后重新打开也是如此。 [/B]

運行ch-tiltlebar

haibinpro

VB编辑器环境下运行提示编译错误。
常数、固定长度字符串、数组、自定义类型与 Declare 语句不能是对象模块中的 Public 成员

舟自横

最初由 haibinpro 发布
[B]VB编辑器环境下运行提示编译错误。
常数、固定长度字符串、数组、自定义类型与 Declare 语句不能是对象模块中的 Public 成员 [/B]

Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal _
hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal _
hwnd As Long, ByVal lpString As String) As Long
定義於modules中

haibinpro

Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal _
hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal _
hwnd As Long, ByVal lpString As String) As Long

这部分已经属于声明了。