0 Members and 1 Guest are viewing this topic.
; 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))
(setq sset (ssget "_:L-I"))
@Tharwat, thanks for the routine, it worked with a preselection, but didn't turn the lineweight to bylayer.