Image sur calque correspondant

[fabcad]

Bonsoir,

 

Ayant eu besoin de cette routine pour un travail quasi hebdomadaire, j'ai réalisé cette routine en ayant parcouru les forums de cadxp et ainsi adapté une routine de notre génialissime Gile.

 

Voici le code :

(defun c:image2layer (/)
(vl-load-com)
(setq
	acdoc (vla-get-ActiveDocument (vlax-get-acad-object))
	layers (vla-get-Layers acdoc)
);fin setq
(if (ssget '((0 . "IMAGE")))
	(vlax-for obj (vla-get-ActiveSelectionSet acdoc)
	; parcourir le jeu de sélection
	(setq ImageFile (vla-get-ImageFile obj))	;nom de l'image en cours
		(if ImageFile
			(progn
				;; si le calque de l'image en cours n'existe pas...
				(if
					(vl-catch-all-error-p
						(vl-catch-all-apply
							'vla-item
							(list layers
								(setq lay (vl-filename-base ImageFile)) ; à adapter
							)
						);fin vl-catch-all-apply
					);fin vl-catch-all-error-p
					;; ... le créer
					(vla-add (vla-get-Layers acdoc) lay)
				);fin if vl-catch-all-error-p
				(vla-put-Layer obj lay) ; mettre l'objet sur le calque
			);fin progn
		);fin if
	);fin vlax-for
);fin if ssget
(princ)
);fin defun image2layer