[求助]如何把AUTOCAD界面左上角"AUTOCAD 2002"换为自己想要写上去的文

jinyongjun · 发表于 2005-2-6 10:51:00

[求助]如何把界面左上角"AUTOCAD 2002"换为自己想要写上去的文字,用VBA编程[br]如何把AUTOCAD界面左上角"AUTOCAD 2002"换为自己想要写上去的文字,用VBA编程

ntchjie · 发表于 2005-2-6 14:31:00

VB代码
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Dim hw
Dim acadobj As Object
Set acadobj = GetObject(, "AutoCAD.Application.16")
If err Then Exit Function
Set acaddoc = acadobj.ActiveDocument
hw = GetParent(GetParent(acaddoc.hwnd))
SetWindowText hw, “你好！！”