|
|
static void test()
{
acedGetAcadFrame()->SetWindowText (
_T("My AutoCAD"));
}
There is no AutoLISP or AutoCAD ActiveX API that will set this because the AutoCAD ActiveX Application Object's Caption Property is read-only. However, you can use the Win32 API functions, GetActiveWindow and SetWindowText. Following is a code demo of VB.NET.
' declare the global functions of Windows
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
Public Declare Function _
FindWindow Lib "user32" Alias _
"FindWindowA" ( _
ByVallpClassName As String, _
ByVal lpWindowName As String) As Long
Sub test()
Const progID As String =
"AutoCAD.Application.18"
Dim acType As Type = _
Type.GetTypeFromProgID(progID)
Dim AcadApp As AcadApplication = Nothing
AcadApp =
CType(Activator.CreateInstance(acType, True),
AcadApplication)
System.Threading.Thread.Sleep(2000)
AcadApp.Visible = True
Dim acadhnd As Long
Dim titletxt As String
Dim curtxt As String
titletxt = "This is my version of AutoCAD"
curtxt = Space(256)
'Obtains the handle of AutoCAD window.
'acadhnd = GetActiveWindow
' use the AutoCAD caption to get the handle
acadhnd = FindWindow(vbNullString,
AcadApp.Caption)
'Obtain the current text in the titlebar.
GetWindowText(acadhnd, curtxt, 125)
MsgBox(curtxt)
'Set the desired text for the titlebar.
SetWindowText(acadhnd, titletxt)
End Sub |
|
发表于 2024-6-22 09:46:18
