home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 1.ddi / ACAD.LSP < prev    next >
Encoding:
Text File  |  1991-09-20  |  537 b   |  21 lines
  1. ;******BJCAD\ACAD.LSP******
  2. (setq tb (* (getvar "dimscale") 0.01))
  3. (if (= (getvar "luprec") 0) (setq mmm "MM") (setq mmm "M"))
  4. (if (= mmm "MM") (setq tb0 (* tb 100)) (setq tb0 (* tb 100000.0)))
  5. (DEFUN AL (NM NN / NM NN)
  6.   (IF (= (EVAL (READ (STRCAT "C:" (EVAL NM)))) nil)
  7.      (PROGN
  8.       (SETVAR "CMDECHO" 0)
  9.        (SETQ ATOMLIST (MEMBER 'C:CLEAN ATOMLIST))
  10.        (LOAD (STRCAT "/BJCAD/" (EVAL NN)))
  11.      )
  12.   )
  13. )
  14. (DEFUN C:CLEAN ( )
  15.     (SETQ ATOMLIST (MEMBER 'C:CLEAN ATOMLIST))
  16. 'DONE
  17. )
  18. (SETVAR "MENUECHO" 5)
  19. (princ)
  20.  
  21.