I use another approach.
Create a file called ACADDOC.LSP if it doesn't exist & make sure it
is in the acad search path. It will be loaded with every drawing.
I added this to it.
(load "AlansAutoLoad.lsp")
(princ)
and then createded in the same directory AlansAutoLoad.lsp, which has this:
(AUTOLOAD "AreaPrt" '("AreaPrt")) ; Print the Area of "PLINEs" "CIRCLE" "ELLIPSE"
(AUTOLOAD "arrow line" '("arw")) ; draw a arrow line on stairs, plan view
(AUTOLOAD "BrAt" '("brat")) ; Break Line @
(AUTOLOAD "BrkDbl" '("DZ")) ; Double Break Symbol
(AUTOLOAD "BrkSym2" '("BRK")) ; Single Break Symbol
(AUTOLOAD "CopyRotate" '("CopyR")) ; Copy, Repeat paste w/rotate
(AUTOLOAD "DoorLbl" '("DoorLbl")) ; label an ArchT door
(AUTOLOAD "DoorLblLine" '("DoorLblLn")) ; label a line on the door leaf
(AUTOLOAD "DrawOffset" '("DrawO")) ; Draw a pline offset from pick points
(AUTOLOAD "DoubLeader" '("DoubLeader")) ; draw double Leader
(AUTOLOAD "ElevationLines" '("LnRay")) ; draw lines from pick points to referance line
(AUTOLOAD "Flat" '("Flat")) ; flatten all Z coordenats
(AUTOLOAD "GetDimOrTxt" '("TDS")) ; change dim or text & layer current from pick
(AUTOLOAD "HipTruss" '("HipTruss")) ; Draw Hip Trusses
(AUTOLOAD "Insul2" '("Insul")) ; Draw Wall Insulation plan view
(AUTOLOAD "LayoutLineScale" '("LayoutLineScale")) ; Set PSLTSCALE to 0 in all layouts
(AUTOLOAD "Leader Fat" '("FatL")) ; Tapered Arc Leader Routine
(AUTOLOAD "LeaderArcCAB2" '("ArcL")) ; draw a arc leader with arrow head from dim
(AUTOLOAD "LintelLable" '("Lintel"))
(AUTOLOAD "MyCogo" '("Cogo")) ; Draw lines from survey data
(AUTOLOAD "OffsetObjects" '("oos")) ; array routine, compute offsets
(AUTOLOAD "osnapsToggle" '("ostoggle" "os:off" "os:on" "OsnapDisable" "OsnapEnable"))
(AUTOLOAD "PL2Cloud" '("PL2Cloud")) ; Draw Revision Cloud from Pline
(AUTOLOAD "PlotTabs3" '("PlotTabs")) ;
(AUTOLOAD "PrePlot" '("PrePlot")) ; setup variables neede to plot
(AUTOLOAD "RmSize" '("RmSize")) ; create a label from picking points on walls
(AUTOLOAD "Rotate180" '("R180"))
(AUTOLOAD "RoofTile" '("RfTile")) ; display roof edge on barrel tile
(AUTOLOAD "rrAng" '("rrAng")) ; Repeat Rotate w/ user angle
(AUTOLOAD "rft" '("rft")) ; roof tile hatch with offset pick point
(AUTOLOAD "Shelf" '("Shelf")) ; draw shelf w/ hanger line
(AUTOLOAD "Shutter" '("Shutter"))
(AUTOLOAD "ss" '("ss")) ; Set Snaps
(AUTOLOAD "SysVarDlg" '("SysVars")) ; Search for system var names & sets them
(AUTOLOAD "TextInsertDCL" '("TIns")) ; Text Insert Routine
(AUTOLOAD "TrussOffset" '("TrussO")) ; Array Trusses Routine
(AUTOLOAD "Text 2 PS CAB" '("pstext")) ; Place text in all tabs in PS
(AUTOLOAD "Text 2 PS CAB" '("pstext-edit")) ; Edit text in all tabs in PS
(AUTOLOAD "TmmCAB" '("Tmm")); Repeat fience trim
(AUTOLOAD "TrussLabel" '("TL"))
(AUTOLOAD "TrussUCS" '("Truss")) ; Draw main Trusses
(AUTOLOAD "StepSym" '("StepSym")) ; Insert a step symbol
(AUTOLOAD "VPF CAB" '("vpf")); freeze layer in all viewports
(AUTOLOAD "vp lock-unlock" '("vpLockAll")); freeze layer in all viewports
(AUTOLOAD "vp lock-unlock" '("vpUnLockAll")); freeze layer in all viewports
(AUTOLOAD "WallHatchLintels" '("WL2")) ; Lintel Wall hatch (1&2) 2 point pick
(AUTOLOAD "WallHatchLintels" '("WL4")) ; Lintel Wall hatch (1&2) 4 point pick
(AUTOLOAD "WallHatch" '("WallH")) ; hatch from 4 pick points
(AUTOLOAD "WallHatch" '("WallH2")) ; hatch from 2 parallel lines
(AUTOLOAD "WallHatchBearing" '("WallHb")) ; harch 4 pick points with hatch origen
(AUTOLOAD "Window" '("Win"))
(AUTOLOAD "wSill" '("wSill")) ; draw a window sill, plan view
;(AUTOLOAD "OsnapsToggle" '("SetOsnaps")) ; toggle Osnaps 0=off 1=on (SetOsnaps 1)
(load "OffsetCAB.lsp")
(load "vl-SubRoutines.lsp")
(load "SlideDisplay")
(load "ACADSet_Variables") ; loads & runs
(defun C:DOB() (setq ss (ssget)) (command "DRAWORDER" ss "" "B") (princ) )
(defun C:DOF() (setq ss (ssget)) (command "DRAWORDER" ss "" "F") (princ) )
(defun C:DOA() (setq ss (ssget)) (command "DRAWORDER" ss "" "A") (princ) )
(defun C:DOU() (setq ss (ssget)) (command "DRAWORDER" ss "" "U") (princ) )
(princ)
AUTOLOAD only loads the routine when needed