[求助]怎样才能改变CAD的标题？

hongmei

怎样才能改变CAD的标题？

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, "明经通道 http://www.mjtd.com"
End Sub

把代码放在哪运行？是标准模块吗？

wyj7485

插入一个模块,放到里面即可