Corresprop sans rotation

[sylarr]

Salut,

Je voudrais savoir s'il était possible de copier toutes les propriétés d'un texte SAUF la rotation ? 

 Sur ce sujet le fait d'enlever les propriétés spéciales du texte enlève presque tout (masque d'arrière plan, encadrement en ce qui me concerne). Quelqu'un a une idée ? 

sylarr

[bonuscad]

Salut,

Tu peux essayer cette procédure. Avant de l'utiliser veiller à ce que les paramètres de la commande CORRESPROP soient bien définis.

La procédure va restituer la rotation du texte après l'application de la commande CorresProp.

(defun c:MyCopyProperties ( / ss_source ss_cible rot)
	(princ "\nSélectionner l'objet texte SOURCE")
	(setq ss_source (ssget "_+.:E:S" '((0 . "*TEXT"))))
	(cond
		(ss_source
			(princ "\nSélectionner l'objet texte CIBLE")
			(while (setq ss_cible (ssget "_+.:E:S" '((0 . "*TEXT"))))
				(setq rot (assoc 50 (entget (ssname ss_cible 0))))
				(command "_.MATCHPROP" (ssname ss_source 0) (ssname ss_cible 0) "")
				(entmod (subst rot (assoc 50 (entget (ssname ss_cible 0))) (entget (ssname ss_cible 0))))
				(princ "\nSélectionner l'objet texte CIBLE")
			)
		)
	)
	(prin1)
)