如何通过Vlisp更改AutoCAD窗口的标题名称?

Hart · 发表于 2002-11-25 16:14:00

alin · 发表于 2002-11-26 10:38:00

Hart · 发表于 2002-11-30 10:52:00

ARX、VBA都能修改，VLISP就不能修改吗？！

秋枫 · 发表于 2002-11-30 11:19:00

wuxjld · 发表于 2002-11-30 15:48:00

南子 · 发表于 2002-12-4 23:22:00

秋枫 · 发表于 2002-12-5 10:37:00

Hart · 发表于 2002-12-6 08:49: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

账号		自动登录	找回密码
密码			注册

如何通过Vlisp更改AutoCAD窗口的标题名称?

Probably you can't change it.

ARX、VBA都能修改，VLISP就不能修改吗？！

的确不能。需要使用windows api函数。

请教vba如何修改autocad的窗口名称?谢谢!

该属性是只读的

windows api: SetWindowText

通过VBA更改AutoCAD窗口的标题名称