Opvragen van een insertionpunt van een block in de tekening

[MPCA]

Beste,

Ooit heb ik eens wat gestoeid met LISP en heb eens een LISP routine gemaakt die een specifiek block plaatst in een tekening met als insertionpoint punt 0,0,0. 

Nu zou ik graag dit block niet meer willen plaatsen op het punt 0,0,0  , maar op een insertionpoint van een ander (naam is bekend) block welke al aanwezig is in de tekening maar wat overal kan staan (insertionpoint van dit bestaande block is dus elke keer willekeurig)  Voordeel is dat dit block maar één keer voorkomt in een tekening.

Wie kan mij helpen aan een stukje LISP-code voor het opvragen van dit insertionpoint???

Alvast bedankt,

[Petperm]

Wel ik heb het op deze manier gedaan:

(setq eAtt (entget idBlockAtt)) ;idBlock is de block waarvan u het insertiepunt van zoekt
(setq iBlock (cdr (assoc 10 eAtt))) ; insertiepunt is (x,y,z)
(setq ixBlock (car iBlock)) ; en op deze manier krijgt u apart
(setq iyBlock (cadr iBlock))
(setq izBlock (caddr iBlock))

Groeten