;;  *******************Layer assignment for Details*******************

;Routine to assign detail linweights to section linework
(defun c:1 (/ ss)			
  (setvar "cmdecho" 0)
  (setq ss (ssget))
  (command "chprop" ss	     ""	      "la"     "A-Detl-Patt"
	   "c"	    "BYLAYER"	     "lt"     "bylayer"		"lw"
	   "BYLAYER"	    "pl"     "BYLAYER"	      ""
	  )
  (setvar "cmdecho" 1)
  (princ (strcat "\nChanged "
		 (rtos (sslength ss))
		 " objects to 'A-Detl-Patt'"
	 )
  )
  (princ)
)


;Routine to assign detail linweights to section linework
(defun c:2 (/ ss)		
  (setvar "cmdecho" 0)
  (setq ss (ssget))
  (command "chprop" ss	     ""	      "la"     "A-Detl-Thin"
	   "c"	    "BYLAYER"	     "lt"     "bylayer"		"lw"
	   "BYLAYER"	    "pl"     "BYLAYER"	      ""
	  )
  (setvar "cmdecho" 1)
  (princ (strcat "\nChanged "
		 (rtos (sslength ss))
		 " objects to 'A-Detl-Thin'"
	 )
  )
  (princ)
)

;Routine to assign detail linweights to section linework
(defun c:3 (/ ss)		
  (setvar "cmdecho" 0)
  (setq ss (ssget))
  (command "chprop" ss "" "la" "A-Detl-Medm" "c" "BYLAYER" "lt" "bylayer" "lw" "BYLAYER" "pl" "BYLAYER" ""
	  )
  (setvar "cmdecho" 1)
  (princ (strcat "\nChanged "
		 (rtos (sslength ss))
		 " objects to 'A-Detl-Medm'"
	 )
  )
  (princ)
)


;Routine to assign detail linweights to section linework
(defun c:4 (/ ss)			
  (setvar "cmdecho" 0)
  (setq ss (ssget))
  (command "chprop" ss	     ""	      "la"     "A-Detl-Wide"
	   "c"	    "BYLAYER"	     "lt"     "bylayer"		"lw"
	   "BYLAYER"	    "pl"     "BYLAYER"	      ""
	  )
  (setvar "cmdecho" 1)
  (princ (strcat "\nChanged "
		 (rtos (sslength ss))
		 " objects to 'A-Detl-Wide'"
	 )
  )
  (princ)
)


;Routine to assign detail linweights to section linework
(defun c:5 (/ ss)			
  (setvar "cmdecho" 0)
  (setq ss (ssget))
  (command "chprop" ss	     ""	      "la"     "A-Detl-Hide"
	   "c"	    "BYLAYER"	     "lt"     "bylayer"		"lw"
	   "BYLAYER"	    "pl"     "BYLAYER"	      ""
	  )
  (setvar "cmdecho" 1)
  (princ (strcat "\nChanged "
		 (rtos (sslength ss))
		 " objects to 'A-Detl-Wide'"
	 )
  )
  (princ)
)


;Routine to assign detail linweights to section linework
(defun c:6 (/ ss)			
  (setvar "cmdecho" 0)
  (setq ss (ssget))
  (command "chprop" ss	     ""	      "la"     "DEFPOINTS"
	   "c"	    "BYLAYER"	     "lt"     "bylayer"		"lw"
	   "BYLAYER"	    "pl"     "BYLAYER"	      ""
	  )
  (setvar "cmdecho" 1)
  (princ (strcat "\nChanged "
		 (rtos (sslength ss))
		 " objects to 'A-Detl-Wide'"
	 )
  )
  (princ)
)