How can I get the list of points?

[Anonymous]

I have a dwg file in which there are aparanetly some points (see attachment). But when I want to get the coordinates of this points using the following lisp, the answer comes that no object is selected.

(defun c:lixt ( / i s )
    (if (setq s (ssget '((0 . "POINT"))))
        (repeat (setq i (sslength s))
            (princ
                (apply 'strcat
                    (mapcar 'strcat '("\n\tX=\t" "\tY=\t" "\tZ=\t")
                        (mapcar 'rtos (cdr (assoc 10 (entget (ssname s (setq i (1- i)))))))
                    )
                )
            )
        )
    )
    (princ)
)

I appreciate any recommandation.

[imadHabash · Accepted solution]

Hi,

as seen from below image and as i understand that you want to find coordinates ( x,y,z ) for those points ... you can easily get coordinates by EATTEXT command . just be patient and go through 8 / 8  pages data extraction and select proper settings in every dialog to get what you see below . 

Hope it's help ... 🙂

[j.palmeL29YX]

In your drawing is only ONE Point.

What you want to get are (I guess) the insertion points of block references.

cadder

[Anonymous]

Yes yo got right. According to AutoCAD definition they are not points. The plus-symbols are in reality points on the field, which has been measured.