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

y1982_0 发表于 2005-7-18 11:08:00

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

谢谢！知道得给个回信！

雪山飞狐_lzh 发表于 2005-7-18 12:36:00

在源代码共享版找找

y1982_0 发表于 2005-7-18 15:34:00

找到，这是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

查看完整版本: 用vba怎么改变auotcad的标题？记得以前有人写过，找不到了！