Topic: Select Zero Width Polylines

[deegeecees]

I'm in need of a routine that will select all zero width polylines in modelspace, and explode them. Anyone have something like this I could look at?

[deegeecees]

N.M. Qselect works for what I needed...

[fixo]

How about this one

Code: [Select]

(defun C:xp0 (/ dxf_value ent_list en lr_list ss)
(if
(setq ss (ssget "_X"  (list (cons 0 "*POLYLINE")(cons 43 0.0))))
(progn
(while (setq en (ssname ss 0))
        (setq ent_list (entget en))

(if (= 4 (logand 4 (setq dxf_value
  (cdr (assoc 70
(setq lr_list (entget
     (tblobjname "layer" (cdr (assoc 8 ent_list))))))))))
    (progn
       
      (entmod (subst (cons 70 0)(assoc 70 lr_list) lr_list))
      (command "_.explode" en "")
      (entmod (subst (cons 70 dxf_value)(assoc 70 lr_list) lr_list))
      )
  )
(ssdel en ss)
)
)
)
  (princ)
  )
 
~'J'~

[deegeecees]

Yes, that works too. Thanks!

[fixo]

You're welcome
Always glad to help
Cheers

~'J'~