How to rename for layera name and based on layer name description

[Anonymous]

Hello Dear Friends,

How to rename for layera name and based on layer name description also need to update.

kindly find the attached cad drawing and excel file for your reference. any one know plz send me. 

Thanks

Amar

[dbhunia · Accepted solution]

Try this....

(defun c:Rename_Layer ( / Lay_name)
(vl-load-com)
(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object))) 
   (setq Lay_name (vla-get-name layer))
   (if (= Lay_name "ME-DR-DRAIN-RD1-pnt")
	(progn
	   (vla-put-name layer "ME-DR-DRAIN-RD-pnt")
	   (vla-put-description layer "ROOF DRAIN")
	)
   )
   (if (= Lay_name "ME-DR-FITTING-EL1-pnt")
	(progn
	   (vla-put-name layer "ME-DR-FITTING-EL-pnt")
	   (vla-put-description layer "ELBOW")
	)
   )
   (if (= Lay_name "ME-DR-FITTING-RD1-pnt")
	(progn
	   (vla-put-name layer "ME-DR-FITTING-RD-pnt")
	   (vla-put-description layer "RISER DOWN")
	)
   )
   (if (= Lay_name "ME-DR-FITTING-RWS1-pnt")
	(progn
	   (vla-put-name layer "ME-DR-FITTING-RWS-pnt")
	   (vla-put-description layer "RAIN WATER STACK")
	)
   )
   (if (= Lay_name "ME-DR-PIPE-RWP-lin")
	(progn
	   (vla-put-name layer "ME-DR-PIPE-RWP-lin")
	   (vla-put-description layer "RAIN WATER PIPE")
	)
   )
   (if (= Lay_name "ME-DR-TEXT")
	(progn
	   (vla-put-name layer "ME-DR-TEXT")
	   (vla-put-description layer "TEXT")
	)
   )
)
)

[Anonymous]

Dear Bhunia, 

Tt is working Thanks so much.

Thanks

Amar