;;;-------------------filesize.lsp----------
;;; Purpose: Returns size of current file
;;;
;;;-----------------------------------------

(defun C:filesize ( )
  (vl-load-com)
  (princ (strcat "\nCurrent drawing file is "
          (itoa (vl-file-size
                  (vla-get-fullname
                    (vla-get-activedocument
                     (vlax-get-acad-object)))))
          " bytes." 
         )
  )
  (princ)
)