Need a lisp code to select all liens, polylines, Circles , ...etc to be thickness zero

[hanywillim]

Hi everyone.,
i am looking for a lisp function to put it in my main lisp code to select all the item in the draiwngs and make the thickness with zero in case they are not zero thickness.
thanks for any help in advance. ❤️

for your reference a drawing with some lines has no zero thickness is attached already. 

[Moshe-A]

@hanywillim hi,

You do not need any lisp for that, just invoke CHPROP (or the old and good CHANGE) command select all choose Thickness option enter 0, magic appears 😀

Moshe

[Kent1Cooper]

Just be in model space, and:

(defun C:T0 ()
  (command "_.chprop" "_all" "" "_thickness" 0 "")
  (prin1)
)

unless it should account for the possibility of locked and/or off and/or frozen Layers....