Change properties

[N.A.W.]

I have asked this before. But I am at a new company and I grabbed the wrong lisp when leaving:

I have a drawing that I save out of Inventor and the taps come up with the outer diameter coming in on same layer as inner but LT is different. What I did in the lisp before was. Grab everything on Linetype: "ACAD_ISO02W100" and the change everything selected to the hidden layer. But I can not remember what that code was. Could someone help me out?

 

[rewilson]

Try this one by Mark Propst, I think. It works well for me.

(defun ltlay (/ ss obj layers)
  (setq ss
(ssget
"x"
'((6
.
"ACAD_ISO02W100"
)

)
 &nbsp
  ;;get all entities of ltype "ACAD_ISO02W100"   (if ss     (progn       (setq *acad* (vlax-get-acad-object))       (setq *doc* (vla-get-activedocument *acad*))       (setq layers (vla-get-layers *doc*))       (setq obj (vla-add layers "hidden"))       ;;will make a layer if it doesn't exist       (command ".chprop" ss "" "la" "hidden" "")       (command ".chprop" ss "" "c" "bylayer" "")       (command ".chprop" ss "" "lt" "bylayer" "")