AutoLISP / Visual LISP

HomeHome BlogBlog TwitterTwitter YouTubeYouTube ContactContact
   
 

JTB_TitleBar.lsp Free AutoLISP for AutoCAD - How to change the Title in AutoCAD

More Free AutoLISP and Visual LISP code snippets for AutoCAD

This freeware helps you to change the title bar of the AutoCAD application.

This one is for is for AutoCAD 2005-2009 Download JTB_TitleBar2005.dvb  here.

For a version that works with AutoCAD 2010 and AutoCAD 2011 see this blog post on How to change the Title in AutoCAD.

Is it possible to load automatically when AutoCAD starts?
Use acad.lsp for that purpose. In acad.lsp add these rows (just change the title and the path):
(vl-load-com)
(setq JTB_TitleBar "AutoCAD 2009")
(vl-vbarun "C:/Program Files/jtbworld/JTB_TitleBar2005.dvb!JTB_TitleBar")
(princ)

;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2007 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;; Tested on AutoCAD 2005 and ADT 2005 up to AutoCAD 2008
;;;
;;; Q: How can I change the title bar to say AutoCAD instead of Architectural Desktop?
;;; A: Download JTB_TitleBar 2005.dvb and you can call it like the example below.
;;;    Change the path as where JTB_TitleBar.dvb is placed.
;;;    To make it fun you might even make it AutoCAD 2003 or whatever you want.

(defun c:JTB_SetTitleBarAutoCAD2005()
  (vl-load-com)
  (setq JTB_TitleBar "AutoCAD 2005")
  (vl-vbarun "C:/Program Files/jtbworld/JTB_TitleBar2005.dvb!JTB_TitleBar")
  (princ)
)

(defun c:JTB_SetTitleBarRevitADT2005()
  (vl-load-com)
  (setq JTB_TitleBar "Revit-ADT 2005")
  (vl-vbarun "C:/Program Files/jtbworld/JTB_TitleBar2005.dvb!JTB_TitleBar")
  (princ)
)

Download JTB_TitleBar.dvb (Only up to AutoCAD 2004)
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2007 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;; Tested on AutoCAD 2002 and ADT 3.3
;;;
;;; Q: How can I change the title bar to say AutoCAD instead of Architectural Desktop?
;;; A: Download JTB_TitleBar.dvb and you can call it like the example below.
;;;    Change the path as where JTB_TitleBar.dvb is placed.
;;;    To make it fun you might even make it AutoCAD 2003 or whatever you want.

(defun c:JTB_SetTitleBarAutoCAD2002()
  (vl-load-com)
  (setq JTB_TitleBar "AutoCAD 2002")
  (vl-vbarun "C:/Program Files/jtbworld/JTB_TitleBar.dvb!JTB_TitleBar")
  (princ)
)

(defun c:JTB_SetTitleBarRevitADT2004()
  (vl-load-com)
  (setq JTB_TitleBar "Revit-ADT 2004")
  (vl-vbarun "C:/Program Files/jtbworld/JTB_TitleBar.dvb!JTB_TitleBar")
  (princ)
)
 
© 2001-2014 JTB World. All rights reserved.