Ellipses to points

[Goran_Kingkong]

Do any of you have an idea how to make points out of the center of ellipses? I did not find any lisp.

Ive tried to grab the center coordinates to an excel document but dont know how to. There are too many ellipses to manually create points

[Pointdump]

Hi Göran,
More details please on what you're trying to do. Pictures would help.
Dave

[Goran_Kingkong]

I received a drawing with a lot of ellipses. I need to create a point in center of each ellipse. I’ve got a lisp to do this for circles, but not for ellipses

[AllenJessup]

One option is to use DATAEXTRACTION to export the coordinates to a CSV that can be brought in as a point file or opened in Excel.

Are you looking for Cogo Points or AutoCAD Points? Do the Ellipses have elevations that need to be maintained? What's the final product you're aiming for? If it's a Surface there are other options.

[Goran_Kingkong · Accepted solution]

Mamma mia! i asked AI to make me a lisp and it worked straight out the box!

 (defun c:EllipseCenterPoints ()
(setq ss (ssget "X" '((0 . "ELLIPSE")))) ; Select all ellipses in the drawing
(if ss
(progn
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq elist (entget ent))
(setq center (cdr (assoc 10 elist))) ; Get the center coordinates
(command "POINT" center) ; Create a point at the center
(setq i (1+ i))
)
)
(princ "\nNo ellipses found in the drawing.")
)
(princ)
)

[Pointdump]

Göran,
As @AllenJessup says, Data Extraction works. I tried it myself just now.
Dave

[AllenJessup]

So it was AutoCAD Points.

[nkiakas]

Hi @Goran_Kingkong

For Dynamo this is very simple.

I created a long time a graph in Dynamo to do the same for the center of circles.

I could edit it little bit (change object type from circles to elipses) and share with you.

Regards