HI,
For a non-lisp solution use the ATTEXT command.
It's designed for this very purpose and adds a range of other features as
well.
--
Laurie Comerford
CADApps
www.cadapps.com.au
"John Uhden" wrote in message
news:5D806172E09A9DCD73447162D7E80C38@in.WebX.maYIadrTaRb...
> Presuming E is the entity name of the block insertion...
> (setq P (cdr (assoc 10 (entget E)))) ; in WCS
> (setq P (trans (cdr (assoc 10 (entget E))) 0 1)) ; in current UCS
>
> P will be a list of three REALs.
> To convert it to a list of strings with a specific precision...
>
> (setq Prec 4) ; precision
> (setq P$ (mapcar (function (lambda (x)(rtos x 2 prec))) P))
>
> --
> John Uhden, Cadlantic/formerly CADvantage
> [ mailto:juhden@cadlantic.com ]
> [ http://www.cadlantic.com ]
> 2 Village Road
> Sea Girt, NJ 08750
> Tel. 732-974-1711
>
> "taisoft" wrote in message
> news:f0d2c82.-1@WebX.maYIadrTaRb...
> > I am trying to get the coordinates of the insertion point from a block.
My
> results are to 1 decimal place. I need at least 3 dec places. I am using
> LISP routines (ENTGET, CAR, CDR, etc).
> > Thanks in advance,
> >
> > Ricardo
> >
>
>