home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR506.ZIP / ACAD2.EXE / SM.DOC < prev    next >
Text File  |  1989-01-28  |  2KB  |  54 lines
  1. ; *****************************************************************
  2. ;
  3. ;           SM.LSP
  4. ;
  5. ;       Author: Paul Nance
  6. ;         Home: (919)-226-3648
  7. ;   Compuserve: [73627,1733]
  8. ;
  9. ;  Function Description
  10. ;  -------------------------------------------------------------
  11. ;     C:SM  This routine will convert standard or metric
  12. ;           numerical text to its counterpart.
  13. ;           The routine will prompt for converting from
  14. ;           Standard to Metric (Yes or No), then prompt
  15. ;           for number of decimals to the right of tne decimal
  16. ;           point.
  17. ;           The standard AutoCAD functions Window, Crossing,
  18. ;           or Selection can be used.
  19. ;
  20. ;         Note: Allowance is not made for lines, circles, or
  21. ;               poly-lines.
  22. ;
  23. ; Variable set-up
  24. (defun c:SM ()
  25.   (setvar "CMDECHO" 0)
  26.   (setq lun (getvar "LUNITS"))
  27.   (setq lup (getvar "LUPREC"))
  28.   (setq dd "DONE")
  29. ; Input Requirements
  30.   (setq cf
  31.   (getstring "\n Converting Standard to Metric ? < Y or N > : "))
  32.   (setq cf (strcase cf))
  33.   (if (or (= cf "Y") (= cf "N"))
  34.   (setq dp
  35.   (getint (strcat "\n Decimal Points ? < "(itoa lup)" > : ")))
  36.   (c:sm))
  37. ; Function call to convert standard to metric
  38.        (setq a (ssget))
  39.        (setq n (sslength a))
  40.        (setq index 0)
  41.        (repeat n
  42.             (setq b1 (entget (ssname a index)))
  43.             (setq index (1+ index))
  44.             (setq c (assoc 1 b1))
  45.             (if (= cf "Y")
  46.             (setq d (cons (car c) (* (atof(cdr c)) 25.4)))
  47.             (setq d (cons (car c) (/ (atof(cdr c)) 25.4))))
  48.             (setq d1 (cons (car d) (rtos(cdr d)2 dp)))
  49.             (setq b2 (subst d1 c b1))
  50.             (entmod b2)
  51.             )
  52. (eval dd)
  53. )
  54.