用vba怎么改变auotcad的标题？记得以前有人写过，找不到了！

y1982_0

谢谢！知道得给个回信！

雪山飞狐_lzh

在源代码共享版找找

y1982_0

找到，这是mccad的大作！很好用！

Option Explicit

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

Sub SetAcadTitle()
  Dim hw&
  hw = GetParent(GetParent(ThisDrawing.hwnd))
  SetWindowText hw, "自动标注课题    CAD教研室   "
End Sub