Creer calque ou changer sa couleur si existant

[SF.Designer]

Bonjour a tous,

Je souhaiterais rajouter une condition a cette fonction de creation de calque :

- Si le calque existe, en ne prenant en compte que les 6 premieres lettres, donc : "NONBOR*" ou "NON BO*"

- Renomer le calque existant en NONBORNABLE et definir sa couleur en 5.

- si plusieurs calques existe avec ces debut de nom citées en premier point, alors creer le calque NONBORNABLE et deplacer tous les elements des calques existant dans ce nouveau calque.

 

 

	(defun LayerNonBornableBleu ()
		(if (not (tblsearch "LAYER" "NONBORNABLE"))
			(entmake
				'(
					(0 . "LAYER")
					(100 . "AcDbSymbolTableRecord")
					(100 . "AcDbLayerTableRecord")
					(2 . "NONBORNABLE")
					(6 . "BYLAYER")
					(62 . 5) ; Couleur Bleu
					(70 . 0)
				)
			)
		)
	)

 

Merci d'avance a ceux qui pourrons me depanner !!!