Mettre une image Active/Inactive

[bonuscad]

Bonjour

 

Un utilisateur a posé une question sur le forum d'AutoDesk pour savoir comment inactiver ou activer une image rapidement en lisp pour éviter de passer la boite de propriété ou autre menu en cascade.

 

Ayant trouvé l'idée interessante, en réponse je lui ai joint cette routine qu'on peut associer à un bouton si l'on en fait un usage fréquent.

NB: C'est une commande à bascule

(defun c:imag_on-off ( / ent dxf_ent flag_display new_flag)
(while (not (setq ent (entsel "\nSélectionner une image: "))))
(setq dxf_ent (entget (car ent)))
(cond
	((eq (cdr (assoc 0 dxf_ent)) "IMAGE")
		(setq flag_display (cdr (assoc 70 dxf_ent)))
		(if (zerop (boole 1 flag_display 1))
			(setq new_flag (1+ flag_display))
			(setq new_flag (1- flag_display))
		)
		(entmod (subst (cons 70 new_flag) (assoc 70 dxf_ent) dxf_ent))
	)
	(T
		(princ "\nN'est pas une image!")
	)
)
(prin1)
)

[Christo06]

Bonjour

aussi est il possible de faire la mm chose avec Cadre Actif/Inactif des images dans le dessin ?