通过VBA及WINAPI设置AutoCAD软件窗口标题

mccad · 发表于 2002-9-18 12:31:00

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

zzz8662 · 发表于 2004-9-12 18:15:00

把这些代码放什么地方呢？

ntchjie · 发表于 2004-9-12 19:59:00

多谢，这个很有用，又学习了一招。
老大，最后一句后面多了各分号，是不是？

雪山飞狐_lzh · 发表于 2004-9-12 21:02:00

改动一下加上下面一段Lisp代码可以在Lisp中调用，：）
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, ThisDrawing.GetVariable("Users1")
End Sub
(defun tsac(newtext)
(setq oldstr (getvar "users1"))
(setvar "users1" newtext)
(vla-runmacro (vlax-get-acad-object) "SetAcadTitle")
(setvar "users1" oldstr)
)

通过VBA及WINAPI设置AutoCAD软件窗口标题

发表回复

精选推荐