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 >
Wrap
Lisp/Scheme
|
1989-01-03
|
1KB
|
45 lines
; EXPORT.LSP
; Writes selected text entities to file
; Part of the Text Utility Kit Version 1.0
; Copyright 1989 Alacrity
; Alacrity
; 12405 SE 25th St
; Bellevue WA 98005
; Voice: (206)746-0680
; BBS: (206)643-5477
; CompuServe: 73417,1756
; Shareware software, If you use -- please don't abuse!
(princ "\nEXPORT.LSP - (c)1989 Alacrity\n")
;-----------------------
; Filter Selection Sets
;-----------------------
(defun ssfilter (ss lst kill / len i group data match ename elist)
(princ "\nFiltering selection set...")
(setq i 0 group (car lst) data (cdr lst))
(while (ssname ss i)
(setq ename (ssname ss i) elist (entget ename)
match (== data (cdr (assoc group elist))))
(if (= kill match)
(ssdel ename ss)
(setq i (1+ i))
)
)
(if (ssname ss 0) ss nil)
)
;-------------
; Fuzzy Equal
;-------------
(defun == (a b)
(if (member (type a) '(INT REAL)) (> 1.0E-6 (abs (- a b))) (= a b))
)
(defun C:EXPORT (/ ss ename elist fspec msg key inc i err)
;--------------------------
; Standard *ERROR* Handler
;--------------------------
(setq err *error