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

jinyongjun

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

ntchjie

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, “你好！！”

jinyongjun

十分感谢,已成功运行!