home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p065 / 4.img / CHH.LSP < prev    next >
Encoding:
Text File  |  1992-01-30  |  896 b   |  36 lines
  1. (defun chherr(s)
  2.   (if (/= s "Function cancelled")
  3.       (princ (strcat "\nError:" s))
  4.   )
  5.   (setvar "cmdecho" 1)
  6.   (setq *error* oer)
  7.   (princ)
  8. )
  9.  
  10. (setq h 1800)
  11. (defun c:chh(/ oer x ss ssl sn en z z1 nen)
  12.    (setvar "cmdecho" 0)
  13.    (setq oer *error* *error* chherr)
  14.    (princ "\nHeight <")
  15.    (princ h)
  16.    (setq x (getint ">: "))
  17.    (if (/= x nil) (setq h x))
  18.    (setq ss (ssget))
  19.    (if ss (progn
  20.    (setq ssl (sslength ss) n 0)
  21.    (repeat ssl
  22.     (setq sn (ssname ss n) en (entget sn))
  23.     (setq z (cdr (assoc 43 en)))
  24.     (setq z1 (/ h 100.0))
  25.     (if (/= z z1) (progn
  26.         (setq nen (subst (cons 43 z1) (assoc 43 en) en))
  27.         (entmod nen)
  28.     ))
  29.     (setq n (1+ n))
  30.     )
  31.     ))
  32.     (setq *error* oer)
  33.     (setvar "cmdecho" 1)
  34.     (princ)
  35. )
  36.