Création d'une image

[vannes]

Bonjour

 

Je voudrais écrire un lisp me permettant de créer une image en passant ma couleur d'Arrière-plan uniforme de noir vers blanc et en exécutant la commande "sauveimg".

Problème:

- je ne sais pas comment passer de noir en blanc!

- je ne connais pas la commande qui permet de sauvegarder sans que la boite de dialogue s'ouvre!

(je m'inspire de ceci:(command "_.mslide" (vl-filename-base (getvar '"dwgname"))))

 

Merci

[djn06]

:)

Salut,

Pour la couleur tu va dans outils / Options / Onglet Affichage / Couleur / et tu choisis ta couleur pour ton espace (t'as le choix de l'espace aussi)

Mais après, je laisse aux pros du lisp

 

:D

[Maxence DELANNOY]

Changer la couleur du fond sans passer par la boite de dialogue Options, ce n'est pas aussi facile que ça en a l'air. Je ne pense pas qu'il y a une variable système.

 

Comme l'information est stockée dans le profil utilisateur, tu pourrais y arriver en créant 2 profils et en basculant de l'un à l'autre, mais il n'y a pas de commande pour ça et pas de variable système non plus (il y a CPROFILE mais elle est en lecture seule).

 

Pour ne pas que la boite de dialogue s'affiche lors de SAUVEIMG, normalement il faudrait mettre FILEDIA à 0. Mais SAUVEIMG ne tient pas compte de FILEDIA. Par contre tu peux utiliser SAUVEBMP, PNGOUT ou JPGOUT qui prennent en compte FILEDIA.

[Maxence DELANNOY]

Finalement, si c'est possible. Il faut utiliser l'API ActiveX : http://adndevblog.typepad.com/autocad/2012/05/autolisp-example-set-then-model-or-paperspace-background-color.html

 

Attention, il manque un appel à (vl-load-com) au départ.

[Patrick_35]

Salut

 

Regarde ce sujet

 

@+

[vannes]

Merci à Maxence et à Patrick

 

C'est OK, mon lisp est fait.

[vannes]

Voici mon lisp:

 

(defun C:VannesImageSave (/ )

 

(vl-load-com)

 

(command "filedia" 0)

;;;(setenv "Background" "16777215")

;;;(command "tilemode" 0)

;;;(command "tilemode" 1)

(vla-put-GraphicsWinModelBackgrndColor (vla-get-display (vla-get-preferences (vlax-get-acad-object))) "16777215")

;;;(setq BMPNAME (vl-filename-base (getvar "dwgname")))

;;;(command "sauvebmp" BMPNAME "")

(command "sauvebmp" "" "")

(command "filedia" 1)

;;;(setenv "Background" "0")

;;;(command "tilemode" 0)

;;;(command "tilemode" 1)

(vla-put-GraphicsWinModelBackgrndColor (vla-get-display (vla-get-preferences (vlax-get-acad-object))) "0")

 

)

[funkkybebel]

Bonjour, je vois que la solution est trouvée.

Par contre à la base (en lisant le titre du post) je pensais que le problème était d'insérer une image depuis Paint rapidement.

Pour le moment je fais "Insertion->Objet OLE->je séléctionne dans la liste 'Image Paintbrush' -> et je clique sur OK.

 

Y-a-til un lisp qui pourrait être associé à un bouton pour éviter cette manipulation manuelle ?

Lors de l'appui sur ce bouton, j'ai Paint qui est ouvert, il me suffit de chercher une image, de fermer paint pour avoir l'image dans autocad.

 

Merci pour votre aide.

Cordialement.

[vannes]

Pour répondre,

 

Désolé, pour ma part, vu mon niveau sur autocad, je ne peux te répondre.

Existe t-il une commande plus directe? Je ne sais pas.