Echelle x y image

[yubari]

Bonjour à tous,

 

Je souhaiterais mettre une image dans un cartouche, seulement, il faudrait une échelle différente en x et en y, ou pouvoir lui donner les valeurs de hauteur et largeur que je veux (ne correspondant pas à une échelle horizontale et verticale identique)

 

Il me semble avoir lu quelque part sur ce forum que c'était possible mais plus moyen de retrouver le post, si quelqu'un l'a sous la main

 

Merci d'avance

[lecrabe]

Hello

 

En effet lors de l'Insertion d'une Image avec AutoCAD 20xx, le rapport X/Y (Largeur/Hauteur) est toujours conserve !

 

Donc on va ruser :

- dans un nouveau dessin "Image_a_Deformer.dwg", tu inseres ton image en 0,0 avec une echelle = 1

- dans le "vrai" DWG concerne, tu inseres une XREF DWG "Image_a_Deformer.dwg" et LA tu peux "jouer" avec X/Y !!

 

SVP ne pas oublier de faire attention aux UNITES !

 

Vois tu ce que je veux dire !?

 

Bye, lecrabe

[La Lozère]

Salut,

Autre solution qui revient un peu au même que la solution du crabe, c'est de passez par un bloc.

Tu inserts ton image. Tu fais un Ctrl+C avec ton image. Puis un Ctrl+Maj+C. Du coup tu te retrouves avec un bloc de ton image que tu peux faire varier en x et en y dans les propriétés.

 

A plus.

[lili2006]

Bonjour à toutes et tous,

 

Pareil pour moi, en bloc mais insertion de l'image en objet OLE,...

 

 

 

[yubari]

Trois solutions pour le prix d'une ;) Merci à vous!

 

J'ai testé la solution du crabe, nickel

 

Je teste les autres par curiosité, histoire de définir ma préférée ^^

 

Bonne soirée

[Olivier Eckmann]

Bonjour,

 

sinon j'ai ce Lisp dont je ne connais pas l'auteur

 

(defun c:RasterResize (/ *error* orthomode autosnap snapang ent img origin height width)
 (vl-load-com)

 (defun *error* (msg)
   (or	(= msg "Fonction annulée")
(princ (strcat "\nErreur: " msg))
   )
   (setvar 'snapang snapang)
   (setvar 'orthomode orthomode)
   (setvar 'autosnap autosnap)
   (princ)
 )
   
 (setq	orthomode  (getvar 'orthomode)
autosnap (getvar 'autosnap)
snapang (getvar 'snapang)
 )
 (if
   (and
     (setq ent (car (entsel "\nSélectionnez l'image: ")))
     (setq img (vlax-ename->vla-object ent))
     (= (vla-get-ObjectName img) "AcDbRasterImage")
   )
	(progn
  	(setvar 'snapang (vla-get-Rotation img))
  	(setvar 'orthomode 1)
  	(setq origin (vlax-get img 'Origin)
        height (vla-get-ImageHeight img)
        width (vla-get-ImageWidth img)
  	)
  	(vla-put-ImageHeight
    img
    (cond
      ((getdist origin
         (strcat "\nNouvelle hauteur <" (rtos height) ">: ")
   	)
      )
      (T height)
    )
  	)
  	(vla-put-ImageWidth
    img
    (cond
      ((getdist origin
         (strcat "\nNouvelle largeur <" (rtos width) ">: ")
   	)
      )
      (T width)
    )
  	)
	)
 )
   (setvar 'snapang snapang)
   (setvar 'orthomode orthomode)
   (setvar 'autosnap autosnap)
   (princ)
)

(alert "Taper   RASTERRESIZE   pour lancer la commande")

 

 

Olivier