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

<P>找到，这是mccad的大作！很好用！</P>
<P>Option Explicit</P>
<P>Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long<BR>Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long</P>
<P>Sub SetAcadTitle()<BR>&nbsp; Dim hw&amp;<BR>&nbsp; hw = GetParent(GetParent(ThisDrawing.hwnd))<BR>&nbsp; SetWindowText hw, "自动标注课题&nbsp;&nbsp;&nbsp; CAD教研室&nbsp;&nbsp;&nbsp;"<BR>End Sub</P>
页: [1]
查看完整版本: 用vba怎么改变auotcad的标题？记得以前有人写过，找不到了！