home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / EXPORT.LSP < prev    next >
Lisp/Scheme  |  1989-01-03  |  1KB  |  45 lines
  1. ; EXPORT.LSP
  2. ; Writes selected text entities to file
  3. ; Part of the Text Utility Kit Version 1.0
  4. ; Copyright 1989 Alacrity
  5.  
  6. ; Alacrity
  7. ; 12405 SE 25th St
  8. ; Bellevue WA 98005
  9. ; Voice: (206)746-0680
  10. ; BBS: (206)643-5477
  11. ; CompuServe: 73417,1756
  12.  
  13. ; Shareware software, If you use -- please don't abuse!
  14.  
  15. (princ "\nEXPORT.LSP - (c)1989 Alacrity\n")
  16.  
  17. ;-----------------------
  18. ; Filter Selection Sets
  19. ;-----------------------
  20. (defun ssfilter (ss lst kill / len i group data match ename elist)
  21.   (princ "\nFiltering selection set...")
  22.   (setq i 0 group (car lst) data (cdr lst))
  23.   (while (ssname ss i)
  24.     (setq ename (ssname ss i) elist (entget ename)
  25.           match (== data (cdr (assoc group elist))))
  26.     (if (= kill match)
  27.       (ssdel ename ss)
  28.       (setq i (1+ i))
  29.     )
  30.   )
  31.   (if (ssname ss 0) ss nil)
  32. )
  33.  
  34. ;-------------
  35. ; Fuzzy Equal
  36. ;-------------
  37. (defun == (a b)
  38.   (if (member (type a) '(INT REAL)) (> 1.0E-6 (abs (- a b))) (= a b))
  39. )
  40.  
  41. (defun C:EXPORT (/ ss ename elist fspec msg key inc i err)
  42.   ;--------------------------
  43.   ; Standard *ERROR* Handler
  44.   ;--------------------------
  45.   (setq err *error