[求助]如何把AUTOCAD界面左上角"AUTOCAD 2002"换为自己想要写上去的文
[求助]如何把界面左上角"AUTOCAD 2002"换为自己想要写上去的文字,用VBA编程如何把AUTOCAD界面左上角"AUTOCAD 2002"换为自己想要写上去的文字,用VBA编程 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, “你好！！”
十分感谢,已成功运行!
页:
[1]