topic Re: Get and Sort Polyline Start and End Coordinates in Visual LISP, AutoLISP and General Customization Forum

Get and Sort Polyline Start and End Coordinates

codyhornyak — Sun, 28 Aug 2022 18:07:18 GMT

I am working on a LISP to get and sort polyline start and end coordinates. This is what I have so far. Line 7 is giving me issues. How should I change this?

(defun C:PLINESELSET (/ ssMessenger i vlaObject points alldata_plines) (setq ssMessenger (ssget "x" '(0 . "LINE,*LWPOLYLINE"))) (repeat (setq i (sslength ssMessenger)) ; repeat for each line found (setq vlaObject (vlax-ename->vla-object (ssname ssMessenger (setq i (1 - i))))) (setq points (vlax-get-property vlaObject 'coordinates)) ; get coordinates (setq alldata_plines (cons (list points))) ) ; repeat (print alldata_plines) ) ; defun PLINESELSET

One I get the start and end coordinates of a single polyline, they should be sorted from west to east. Then, once there is a list of all the polyline coordinates in the drawing, they should be sorted from north to south. For example:

PLINE 1 from (0,0) to (1,0) PLINE 2 from (1,1) to (-1,1) First, sort each coordinate pair from west to east: PLINE 1: (0,0) to (1,0) PLINE 2: (-1,1) to (1,1) Then, sort each coordinate pair from north to south(can just use y-coordinate of the first coordinate in the pair: PLINE 2: (-1,1) to (1,1) PLINE 1: (0,0) to (1,0)

Hopefully this question makes sense. Thanks.

Re: Get and Sort Polyline Start and End Coordinates

ВeekeeCZ — Sun, 28 Aug 2022 19:06:53 GMT

Here you are. Note that

* got start and end points

* made a list of these two

* sorted lst of them by X

* added a sorted lst to the overall lst

* sorted the overall lst by Y.

(defun c:Plinesort ( / s i e l)

  (if (setq s (ssget '((0 . "LWPOLYLINE,LINE"))))
    (repeat (setq i (sslength s))
      (setq e (ssname s (setq i (1- i)))
	    l (cons (vl-sort (list (vlax-curve-getstartpoint e) (vlax-curve-getendpoint e))
			     '(lambda (e1 e2) (< (car e1) (car e2))))
		    l))))
  
  (vl-sort l '(lambda (e1 e2) (> (cadar e1) (cadar e2))))
  (print l)
  (princ)
  )

*LWPOLYLINE does not make sense. it should be *POLYLINE

To build a list, use (setq l (cons item l)). In this case, it should be (setq l (cons (list startpt endpt) l).

I think I already linked this to you... Need to be familiar with THIS group of CURVE functions.

Re: Get and Sort Polyline Start and End Coordinates

codyhornyak — Sun, 28 Aug 2022 23:28:05 GMT

Thanks a bunch @ВeekeeCZ . I am learning, its just taking time. I have this LISP wrapped up for now, moving onto the next one shortly.

Re: Get and Sort Polyline Start and End Coordinates

JBerns — Mon, 29 Aug 2022 01:52:58 GMT

@codyhornyak,

Congrats on your efforts and success.

Re: Get and Sort Polyline Start and End Coordinates

calderg1000 — Mon, 29 Aug 2022 03:34:54 GMT

Regards @codyhornyak

Try this code

Sort the coordinates of lines or polylines, from East to West and from North to South.

(defun C:Plset (/ ssMessenger i vlaObject points) (setq ssMessenger (ssget "_+.:E:S" '((0 . "LINE,LWPOLYLINE"))) vlaObject (vlax-ename->vla-object (ssname ssMessenger 0)) ) (if (not (= (vla-get-Objectname vlaObject) "AcDbLine")) (progn (setq points (vlax-get vlaObject 'coordinates) ; get coordinates lf (pts2 points) ) ) (progn (setq lf (list (vlax-get vlaObject 'startpoint) (vlax-get vlaObject 'endpoint) ) ) ) ) (print (setq lf_e (vl-sort lf '(lambda (e1 e2) (< (car e1) (car e2)))))) ;Points, sorted by Easting-West coordinate (print (setq lf_n (vl-sort lf '(lambda (e1 e2) (> (cadr e1) (cadr e2)))))) ;Points, sorted by Norting-Sur coordinate (princ) ) ; defun PLINESELSET (defun pts2 (lp) (if lp (cons (setq lpt (list (nth 0 lp) (nth 1 lp))) (pts2 (cddr lp)) ) ) )