对于Autocad界面的一点想法

zshuling · 发表于 2003-11-6 10:28:00

是否可以将刚打开时那张带“AUTOCAD...”字样的界面换成其它的图？
不知道这是由软件是哪个部分控制的，我如果想改应该从什么地方着手呢？
还有进入绘图界面后标题栏上的“autocad...”字样应该也是可以改的吧？
有没有人改过这些？能教教我么？多谢了

王咣生 · 发表于 2003-11-6 10:50:00

; by 龙龙仔
(vl-load-com)
(defun C:XDE (/ XDB APP)
  (setq APP (vlax-get-acad-object))
  (if (/= (substr (vla-get-caption APP) 1 12) "龙龙仔工作室")
(progn
   (arxload "acadx.arx" NIL)
   (setq XDE (vla-getinterfaceobject APP "AcadX.Drawingeditor"))
   (vlax-put-property
XDE
'CAPTION
"龙龙仔工作室"
   )
   (vlax-release-object APP)
   (arxunload "acadx.arx")
)
  )
  (princ)
)
(C:XDE)
(princ)
;|
通过VBA更改AutoCAD窗口的标题名称  返回目录
来源：  乐筑天下　作(译)者：  郑立楷　
上传者：  mccad 　上传时间：2002年9月17日
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
|;