Search for and delete polylines based on length.

[Borgster]

I downloaded the following code from The Swamp. It searches for and deletes lines whose lengths fall between 1.25" and 3.0". It was submitted as a solution to someone else's problem by Tharwat. It works as advertised. However, my situation is slightly different. Changing the length parameters are easy enough. I need to search for LWPolylines of a specific length. How could I modify this code to do that? I'm wondering if it is even possible.

(defun c:Test (/ ss i sn l)
  (if (setq ss (ssget "_:L" '((0 . "LINE"))))
    (repeat (setq i (sslength ss))
      (setq sn (ssname ss (setq i (1- i))))
      (setq l (distance (cdr (assoc 10 (entget sn))) (cdr (assoc 11 (entget sn)))))
      (if (or (eq l 1.25) (eq l 3.0) (and (> l 1.25) (< l 3.0)))
        (entdel sn)
        )
      )
    )
  (princ)
  )

[pbejse]

I need to search for LWPolylines of a specific length. How could I modify this code to do that? I'm wondering if it is even possible.

Not possible with direct SSGET filtering as there are no DXF equivalent for Length, Similar to tharwats code you need to iterate thru the selection set to retrieve the distance like so:

(defun c:Test (/ dist ss i sn l)
  (if (and (setq dist (getdist "\nEnter Polyline Length: "))
	   (setq ss (ssget "_:L" '((0 . "LWPOLYLINE"))))
      )
    (repeat (setq i (sslength ss))
      (setq sn (ssname ss (setq i (1- i))))
      (setq l
	     (vlax-curve-getdistatpoint
	       sn
	       (vlax-curve-getEndPoint sn)
	     )
      )
      (if (equal l dist 1e-4)
	(entdel sn)
      )
    )
  )
  (princ)
)

HTH

[Tharwat]

pbejse , you need to recheck the way you retrieved the length of the selected LWpolylines in your modified codes

[pbejse]

pbejse , you need to recheck the way you retrieved the length of the selected LWpolylines in your modified codes

You are right!!! Good catch my friend. Post updated [It is a Lwpolyline after all] serves me right not trying out the code before posting.