Subject: Re: Q 4 LISP GURUs: EED retreival
Date: Fri, 31 Jan 1997 00:00:00 GMT
From: Morten Warankov <mortenw@abacus.no>
Organization: ABACUS
To: Vladimir Nesterovsky <vnestr@netvision.net.il>
Newsgroups: comp.cad.autocad

Hi Vladimir,

You asked for an easy solution, well, I never give up in trying to give
you the solution you want. :)
What do you think of this 4 lines function ? Still not what you want?
________________________________________________
(defun cl ( a / a1)
    (setq a1 "")
    (foreach i a (setq a1 (strcat a1 (chb i))))
    (setq a (eval (read a1))))

;; a little helping function
;; add more cond's if you need
(defun chb (l / )
   (cond ((= l "{")          (setq l "(list "))
         ((= l "}")          (setq l ") "))
         ((= (type l) 'INT)  (setq l (strcat (itoa l) " ")))
         ((= (type l) 'REAL) (setq l (strcat (rtos l) " ")))
         ((= (type l) 'STR)  (setq l (strcat l " ")))
         (T (alert (strcat "Unknown type of data: " l)))
   )
   l
)

Hope this helps,

Mortenw

--
********************************************************************
* The ultimate DIMUTILITY for R13 from ABACUS                      *
* DIMUTILITY allows you to do dimensioning in modelspace           *
* and puts your dimensions in paperspace.                          *
*                                                                  *
* Available from <mailto:mortenw@abacus.no> or mail for more info. *
********************************************************************