Re: how to get rotation and insertion pt from a block using LISP?

[EMAIL PROTECTED] (Joe) schrieb:

>I need to find and check the insertion point and the rotation, in
>degrees, of a set of blocks in a drawing. The idea is to update the
>block with one of the same name that has a different insertion point.I
>need the block to occupy the same location as the previous one. The
>previous black has an offset insertion point and the new one is in the
>center of the block.  Any ideas?  Thanks, Joe

The insertion point is stored in DXF group 10, and the rotation in
group 50 (radians - PI equals 180 degrees). Use 
(entget (car (entsel))) 
to see what I mean.

You can use my SSMOD function for any dxf modification of any entity.
It is free and you can download it from
http://www.archdim.de/ssmod.lsp

To replace the block reference (block name) of an insert entity, you
simply use (ssmod (ssget) 2 <newblockname>), to give it an new
insertion point you use  (ssmod (ssget) 10 <newinsertionpoint>), and
to give it a new rotation angle you use (ssmod (ssget) 50
<newrotation>)

Tom Berger

-- 
ArchTools: Architektur-Werkzeuge für AutoCAD (TM)
           ArchDIM  - architekturgerechte Bemaßung und Höhenkoten
           ArchAREA - Flächenermittlung und Raumbuch nach DIN 277
Info und Demo unter http://www.archtools.de