Ok ... this is a VBA app so ....
In a new module paste the following code
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal HWND As Long, ByVal lpString As String) As Long
Sub SetText()
Dim RetVal As Long
RetVal = SetWindowText(Application.HWND, Interaction.InputBox("Please enter new name for AutoCAD application"))
End Sub
When you run the code it will request a new name which you can type in, then it will change the name to what you entered.
If you want to make it set to a preset value, simply remove this portion
Interaction.InputBox("Please enter new name for AutoCAD application")
and replace it with a string enclosed in quotes.. like so...
Sub SetText()
Dim RetVal As Long
RetVal = SetWindowText(Application.HWND, "Dommy2HottyCAD"))
End Sub
What do I need to change to get this to work on ACAD 2002? Thanks.
--ImaJayhawk