Autolisp

toggle system variables:

(setvar 'orthomode (- 1 (getvar 'orthomode)))

;;; ---d2:Speak---
;;; (d2:Speak (strcat "Welcome " (getvar "loginname")))
(defun d2:Speak (str)
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-invoke sapi "Speak" str 0)
(vlax-release-object sapi)
) ; end defun
;;; makes CAD talk...

https://autocadtips.wordpress.com/2012/02/28/autolisp-align-viewports-horizontally/

AutoLISP: Align Viewports Horizontally Link to www.autocadtips.wordpress.com This routine is a gem. It allows you to easily align a viewport to another viewport by snapping to objects within the viewport. It works with viewports that ha...