(defun c:basevars ()
  (setq acbvarlst nil)
  (setq ito (open "H:\\Util\\Lsp\\acadvars.lst" "r"))
  (while (setq itl (read-line ito))
      (setq acbvarlst (append acbvarlst (list itl (getvar itl))))
  )
  (close ito)
  (princ)
)