Select Polyline based on global width

[Borgster]

I would like to be able to select polylines based on a given global width. Alternate I would like to be able to select polylines that are NOT of a given width. Is this even possible?

[BlackBox]

(defun c:SsPlineByWidth+ (/ ss)
  (and
    (setq ss
	   (ssget ":S:E" '((0 . "LWPOLYLINE") (-4 . "<>") (43 . 0)))
    )
    (sssetfirst
      nil
      (ssget "_x"
	     (list '(0 . "LWPOLYLINE")
		   (assoc 43 (entget (ssname ss 0)))
	     )
      )
    )
  )
  (princ)
)

(defun c:SsPlineByWidth- (/ ss)
  (and
    (setq ss (ssget ":S:E" '((0 . "LWPOLYLINE"))))
    (sssetfirst
      nil
      (ssget "_x"
	     (list '(0 . "LWPOLYLINE")
		   '(-4 . "<>") 
		   (assoc 43 (entget (ssname ss 0)))
	     )
      )
    )
  )
  (princ)
)

[pbejse]

...l
    (setq ss
	   (ssget ":S:E" '((0 . "LWPOLYLINE") (-4 . "<>") (43 . 0)))
    )...

Nice. (thumbsup)

[BlackBox]

Nice. (thumbsup)

Cheers, pbejse

[Borgster]

Thank you all!

[BlackBox]

Thank you all!

You're welcome