home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / TY / ESOLID.LSP < prev    next >
Encoding:
Text File  |  1991-07-29  |  685 b   |  26 lines
  1. ;******TY\ESOLID.LSP******   7-29-91 BJ
  2. (if (null tb) (setq tb 1.0))
  3. ;----------
  4. (defun C:ESOLID ( )
  5.   (setq se (getvar "elevation"))
  6.   (setq st (getvar "thickness"))
  7.   (setq en (car (entsel "\n Select solid:")))
  8.   (if (= (cdr (assoc 0 (setq el (entget en)))) "SOLID") 
  9.     (progn 
  10.       (setq p1 (cdr (assoc 10 el))
  11.         p2 (cdr (assoc 11 el))
  12.         p3 (cdr (assoc 12 el))
  13.         p4 (cdr (assoc 13 el))
  14.       )
  15.       (setvar "elevation" 0)
  16.       (setvar "thickness" 0)
  17.       (command "line" p1 p2 p4 p3 "c")
  18.       (setvar "elevation" se)
  19.       (setvar "thickness" st)
  20.       (entdel en)
  21.     )
  22.     (prompt "\n Not solid.")
  23.   )
  24. )
  25. ; (setvar "highlight" 1)
  26.