topic Re: Help Modifing Mac Lee's PolyInfo to select multiple objects and export to cs in Visual LISP, AutoLISP and General Customization Forum

Help Modifing Mac Lee's PolyInfo to select multiple objects and export to csv.

Anonymous — Fri, 10 Apr 2020 11:58:42 GMT

Hello to the forum,

I am trying to use exported coordinates of selected polygons (mostly triangles) and parse them into python for calculations. This is a result of my zero knowledge for lisp, thus I am using python for a long time, but I haven't managed to select and extract coordinates of multiple objects via a python package.

polyinfo.lsp prompts a txt with data of one and only selected polyline, and the exported format is what i need.

Can someone help me and modify that lisp for multiple selection of polylines? Then save data to a csv or a txt automatically.

Any help is really apreciated,

Re: Help Modifing Mac Lee's PolyInfo to select multiple objects and export to cs

hak_vz — Fri, 10 Apr 2020 14:07:41 GMT

What kind of polylines you are dealing with, only lwpolylines or a old polyline i.e. 3dpolyline, or maybe even a spline. Extraction and export to txt file is easy to do. If we talk lwpolylines that are placed in a horizontal plane and eventually have set elevation each point in defined as (x y) but can also be exported in a form (x y z). When you have closed polygon, do you need last point to be equal to first one.

(defun c:mpolyout ( / *error* mappend mklist flatten ss k i j ent pp pts points_all f file1 lst str decimals) ; exports multiple lwpolylines vertexes to txt file ; hak_vz (https://forums.autodesk.com/t5/user/viewprofilepage/user-id/5530556) ; 10.04.2020. (defun *error* (msg) (if (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*EXIT*")) (progn (princ (strcat "\nOops an Error : ( " msg " ) occurred.")) ) ) (princ) ) (defun mappend (fn lst)(apply 'append (mapcar fn lst))) (defun mklist (x) (if (listp x) x (list x))) (defun flatten (e)(mappend 'mklist e)) (princ "\nSelect polylines to export") (setq ss (ssget '((0 . "lwpolyline")))) (cond ((and ss) (setq k 0) (while (< k (sslength ss)) (setq ent (entget (ssname ss k)) pts nil i 0) (repeat (length ent) (setq pp (nth i ent))(if (= (car pp) 10) (setq pts (cons (cdr pp) pts))) (setq i (+ i 1))) (setq pts (reverse pts)) (setq points_all (cons pts points_all)) (setq k (+ k 1) i 0) ) ) ) (setq f (getfiled "Exit file to write polyline points:" (getvar "dwgprefix") "txt" 3)) (setq file1 (open f "w")) (setq decimals (getint "\nNumber of decimal places >") i 0) (while (< i (length points_all)) (setq lst (flatten (nth i points_all)) j 0 delimiter "," str "") (while (< j (- (length lst) 1))(setq str (strcat str (rtos (nth j lst) 2 decimals) delimiter))(setq j (+ j 1))) (setq str (strcat str (rtos (last lst) 2 decimals))) (write-line str file1) (setq i (+ i 1)) ) (princ "Done!") (close file1) (princ) ) (princ "\n command MPOLYOUT exports polygon points to file") (princ)

Re: Help Modifing Mac Lee's PolyInfo to select multiple objects and export to cs

Anonymous — Fri, 10 Apr 2020 14:29:34 GMT

Thanks for the fast reply hac_vz!

I am dealing with polylines or lwpolylines (closed or not) in a XY Plane.

That works fine but is it possible to have e.g for a triangle 3 coordinates delimeted by (;), for a rectangle 4 cordinates, for a polygon n coordinates and ommit the closing coordinate that is the same?

Re: Help Modifing Mac Lee's PolyInfo to select multiple objects and export to cs

hak_vz — Fri, 10 Apr 2020 14:36:45 GMT

Working on it

Re: Help Modifing Mac Lee's PolyInfo to select multiple objects and export to cs

Anonymous — Fri, 10 Apr 2020 14:43:29 GMT

Thats the export of a triangle! 4 coordinates!

Thank for your fast replies!

I'm sorry but I have edited the post before you replied 😄

Re: Help Modifing Mac Lee's PolyInfo to select multiple objects and export to cs

hak_vz — Fri, 10 Apr 2020 14:53:48 GMT

Can't you test this in python. Number of points depends about how you create object in acad. You can also change delimiter in a script or python. Same thing apply for point delimiter. I don't have time to work on it now, you were lucky that I had this script in my arsenal and were replying to other post. Sorry have to go out for a shopping.

Re: Help Modifing Mac Lee's PolyInfo to select multiple objects and export to cs

Anonymous — Fri, 10 Apr 2020 14:58:46 GMT

You are right! Thank you for your time!

Re: Help Modifing Mac Lee's PolyInfo to select multiple objects and export to cs

hak_vz — Fri, 10 Apr 2020 15:11:07 GMT

Just before I go. When you create your polygons use option "close" instead of picking a last point at position of first point. That way for a triangle you'll receive only tree points.

Re: Help Modifing Mac Lee's PolyInfo to select multiple objects and export to cs

edwar_emqs — Thu, 20 Jul 2023 21:02:11 GMT

Hello your lisp works very well. I'm having trouble exporting the length of the polylines instead of the vertices. How could I modify your script to do this task? I tried to use your lisp and calculate the linear distance between the vertices. However, I have noticed that in my .dwg file I have some polylines that are made up of arcs and it is no longer correct to obtain the distances in this way.

Could you tell me how to directly obtain the length of the polylines instead of the vertices. Thank you very much in advance.