(setq freespace(rtos

(setq freespace (rtos (caddr (dos_chkdsk "d:\\")) 2 0))
(setq dwg (getvar "dwgname")file_size1 (vl-file-size (strcat (getvar "dwgprefix") dwg))
(setq size (vl-princ-to-string file_size1))

I need to compare these two, and if the dwg size is larger than than the free disk space, pause to change disks. Is it possible and if so how do I achieve it? I may not be using the best approach for this. Any suggestions are appreciated. TIA

 

Coach,
Try this:
;; Check for disk space..
(vl-load-com)

(defun check_disk ( disk / dwg file_size1)
(setq freespace (rtos (caddr (dos_chkdsk (strcat disk "\\"))) 2 0))
(setq dwg (getvar "dwgname"))
(setq file_size1 (vl-file-size (strcat (getvar "dwgprefix") dwg)))
(setq size (vl-princ-to-string file_size1))
;; change 'freespace' and 'size' to numbers..
(setq freespace (atoi freespace))
(setq size (atoi size))
(princ)
); function

(defun C:CD ()
(check_disk "A:")
;; Debug
(prompt (strcat "\nDisk Free Space = " (rtos freespace)))
(prompt (strcat "\nDrawing Size = " (rtos size)))
;; Check if drawing size (size) > freespace
(if (> freespace size)
(progn
(prompt "\nDiskspace is larger than Drawing Size, OK to save..")
(princ)
); progn
(progn
(prompt "\nDrawing will not fit on Disk")
(princ)
); progn
); if
;;
(while (> size freespace)
(alert "Drawing will not fit on Disk, Please change the Disk")
(check_disk "A:")
); while
(princ)
); function

Bob

 

Bob, you're the man! I've been struggling with this off and on in my spare time for a couple of months now. I was missing the (atoi) trying to do it with (rtos). Thanks a bunch!

 

Yes,
Strings are strings..numbers are numbers..a little tricky.
But, I still have a few tricks up my sleeve.

Cheers

Bob