; Changes selected objects to Layer Crease
(defun c:CreaseV2 (/ CNT DXDT DXFDNEW DXFNEW DXFOLD ENT SSET )
(command "_.Layer" "_Make" "Crease" "_Color" "3" "" "_LType" "Continuous" "" "")
(setq sset (ssget))
(setq cnt 0)
(repeat (sslength sset)
(setq ent (ssname sset cnt))
(setq dxdt (entget ent))
(setq dxfold (assoc 8 dxdt))
(setq dxfnew '(8 . "Crease"))
(setq dxfdnew (subst dxfnew dxfold dxdt))
(entmod dxfdnew)
(setq cnt (1+ cnt))
)
(command "CHPROP" sset "" "COLOR" "BYLAYER" "LTYPE" "BYLAYER" "LW" "BYLAYER" "")
(princ)
)
(setq sset (ssget))
To this :(setq sset (ssget "_:L-I"))
@Tharwat, thanks for the routine, it worked with a preselection, but didn't turn the lineweight to bylayer.Sorry, I forgot about that.