topic Re: Export polyline data in Visual LISP, AutoLISP and General Customization Forum

Export polyline data

subasio21 — Mon, 29 Mar 2021 10:26:06 GMT

Hi, everyone!

I am searching for a lisp that can find all closed polylines in a drawing and export to excel their following information:

area, layer ,thickness , color, x-cordinate of area , y-cordinate of area , z-cordinate of area

ı added a sample dwg

if anyone can help me I would be gratfull

Re: Export polyline data

ВeekeeCZ — Mon, 29 Mar 2021 10:45:24 GMT

post a csv file with an example of 1 exported polyline to take a look at its structure.

Re: Export polyline data

Kent1Cooper — Mon, 29 Mar 2021 10:55:20 GMT

And please define what you would mean by the X, Y and Z coordinates of an area. Those of its centroid? Of the middle of its bounding box? For one with non-zero thickness, if you want the centroid, do you want the centroid of its drawing plane, or halfway up its thickness, or the top of its thickness? Etc., etc.

Re: Export polyline data

Sea-Haven — Tue, 30 Mar 2021 05:34:10 GMT

Is the area the face area baselength*thickness ? Add end areas ?

Re: Export polyline data

subasio21 — Thu, 01 Apr 2021 14:05:09 GMT

sorry but ı dont know how to export polyline to csv

Re: Export polyline data

subasio21 — Thu, 01 Apr 2021 14:10:20 GMT

yes they are the center of its area , to calculate the weight center of all , I want the centroid of its halfway up its thickness,

Re: Export polyline data

subasio21 — Thu, 01 Apr 2021 14:12:26 GMT

only face plane area

thanks all

Re: Export polyline data

ronjonp — Thu, 01 Apr 2021 16:13:37 GMT

Here's a quickie;

(defun c:foo (/ _f _c c f fn o s x) ;; RJP » 2021-04-01 (defun _f (s) (strcat (cond ((= 'real (type s)) (vl-string-right-trim "0" (rtos s 2 15))) ((= 'int (type s)) (itoa s)) ((vl-princ-to-string s)) ) "," ) ) (defun _c (o / a b) (if o (progn (vla-getboundingbox o 'a 'b) (mapcar 'set '(a b) (mapcar 'vlax-safearray->list (list a b))) (mapcar '/ (mapcar '+ a b) '(2 2 2)) ) ) ) (cond ((and (setq s (ssget '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1)))) (setq f (open (setq fn (strcat (getvar 'dwgprefix) "Results.csv")) "w")) ) (write-line "AREA,LAYER,THICKNESS,COLOR,X,Y,Z" f) (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex s))) (setq c (_c (setq o (vlax-ename->vla-object e)))) (write-line (apply 'strcat (append (mapcar '(lambda (x) (_f (vlax-get o x))) '(area layer thickness color)) (mapcar '_f c) ) ) f ) ) (close f) (alert fn) ) ) (princ) )

Re: Export polyline data

subasio21 — Fri, 02 Apr 2021 13:25:36 GMT

thanks a lots

that's great !