Lisp help

Could someone put the following in a lisp routine for me? I want to add this
to the startup suite, or if it could be added to the acad.lsp file, that
would probably be even better, I'm just not sure of the proper syntax...

Thanks!

(cr_mnl)
style A40 arial (* (zz_getxd 342.0) 0.040) .85 0 _n _n
style A50 arial (* (zz_getxd 342.0) 0.0500) .85 0 _n _n
style A60 arial (* (zz_getxd 342.0) 0.0600) .85 0 _n _n
style A80 arial (* (zz_getxd 342.0) 0.0800) .85 0 _n _n
style A100 arial (* (zz_getxd 342.0) 0.1000) .85 0 _n _n
style A120 arial (* (zz_getxd 342.0) 0.1200) .85 0 _n _n
style A140 arial (* (zz_getxd 342.0) 0.1400) .85 0 _n _n
style A175 arial (* (zz_getxd 342.0) 0.1750) .85 0 _n _n
style A200 arial (* (zz_getxd 342.0) 0.2000) .85 0 _n _n
style A240 arial (* (zz_getxd 342.0) 0.2400) .85 0 _n _n
style A290 arial (* (zz_getxd 342.0) 0.2900) .85 0 _n _n
style A350 arial (* (zz_getxd 342.0) 0.3500) .85 0 _n _n
style A425 arial (* (zz_getxd 342.0) 0.4250) .85 0 _n _n
style A500 arial (* (zz_getxd 342.0) 0.5000) .85 0 _n _n
style E40 exo350db (* (zz_getxd 342.0) 0.040) .85 0 _n _n
style E50 exo350db (* (zz_getxd 342.0) 0.0500) .85 0 _n _n
style E60 exo350db (* (zz_getxd 342.0) 0.0600) .85 0 _n _n
style E80 exo350db (* (zz_getxd 342.0) 0.0800) .85 0 _n _n
style E100 exo350db (* (zz_getxd 342.0) 0.1000) .85 0 _n _n
style E120 exo350db (* (zz_getxd 342.0) 0.1200) .85 0 _n _n
style E140 exo350db (* (zz_getxd 342.0) 0.1400) .85 0 _n _n
style E175 exo350db (* (zz_getxd 342.0) 0.1750) .85 0 _n _n
style E200 exo350db (* (zz_getxd 342.0) 0.2000) .85 0 _n _n
style E240 exo350db (* (zz_getxd 342.0) 0.2400) .85 0 _n _n
style E290 exo350db (* (zz_getxd 342.0) 0.2900) .85 0 _n _n
style E350 exo350db (* (zz_getxd 342.0) 0.3500) .85 0 _n _n
style E425 exo350db (* (zz_getxd 342.0) 0.4250) .85 0 _n _n
style E500 exo350db (* (zz_getxd 342.0) 0.5000) .85 0 _n _n

 

Robert,
Something like..

;; Load Styles
(if zz_getxd
(progn
;;
(command "_style" "A40" "arial" (* (zz_getxd 342.0) 0.040) 0.85 0 "_n" "_n" "")
(command "_style" "A50" "arial" (* (zz_getxd 342.0) 0.0500) 0.85 0 "_n" "_n" "")
;; Etc
); end progn
(prompt "\nZZ_GETXD Variable Undefined ? ")
); end if
;; Save as "Load_Styles.lsp"
;; In acaddoc.lsp, add (load "load_styles")
;;

Should do it.

Bob