Sauvegarde automatique jpg

[Invité ingoenius]

menjour, me voilà avec une nouvelle idee de routine

 

le but est de faire automatiquement des capture jpg (mais on peut aussi decider pour le png)

de toute les presentations du dessin courant dans un dossier preetabli, ou dans le meme dossier du dessin

 

j'ai dejà fait le debout de la chose, il me manque seulemant les commandes pour repeter la manip pour toutes les presentation du dessin

 

merci de votre aide

 

ici mon code

 

 
(defun c:Jpg ()

(setq nome (getvar "dwgname"));name and extension file
(setq lung (strlen (getvar "dwgname")))
(setq nome (substr (getvar "dwgname") 1 (- lung 4)));name file  
(setq Cdossier (getvar "dwgprefix"));current folder file

(setq Sdossier "H:\\Hotels & Convention Centers\\BS Base Audiovisuel\\PLANS_EVENTS_JPG\\");perso
(setq Scompleto (strcat Sdossier nome));string name file jpg

(setq Ccompleto (strcat Cdossier nome))  

(command "_zoom" "ET" "")

;(command "jpgout" Scompleto "");dans mon dossier "PLANS"
(command "jpgout" Ccompleto "");dans le meme dossier du dessin  

)

 

 

 

PS

selon vout serait possible d'envoyer diirectement ces captures JPG attachees par courriel a partir du lisp??

 

 

 

 

[Edité le 4/5/2007 par ingoenius]

[Invité ingoenius]

je voudrait rajouter aux code dessus, un controle pour voir si le fichier jpg existe dajà dans le repertoire cible de facon a generer s'il existe une suite numerique

du type "nomdefichier" "_" "1" ".jpg" etc pour sauver des differentes versions du jpg

 

mais et chercheant de coupler ces fontions j'optiens des erreurs pouvez vous m'aider??

merci ancore

 

 

 
(defun GetFile ()
(setq f "Bodyshop_NP_041007_0307_14.jpg")
(setq p  "F:\\CAD\\PLANS_Cad\\B\\")
  
(cond
((vl-directory-files p f)
(mapcar (function (lambda (x) (strcat p "\\" x))) (vl-directory-files p f))
)
((apply (function append)
(mapcar (function (lambda (x) (GetFile f (strcat p "\\" x))))
(vl-remove ".." (vl-remove "." (vl-directory-files p nil -1)))
) ;_ mapcar
) ;_ apply
)
(t nil)
) ;_ cond
) ;_ defun

 

[Edité le 4/5/2007 par ingoenius]

[Patrick_35]

Salut

 

selon vout serait possible d'envoyer diirectement ces captures JPG attachees par courriel a partir du lisp??

Oui, et même en les zippant

Voir ce sujet et celui-ci

 

un controle pour voir si le fichier jpg existe dajà

Utilise la fonction findfile

 

@+

[Invité ingoenius]

salut merci pour ta reponse, mail j'ai chercher de faire marcher les script indiquees dans tes link sans aucun resultat

 

quelle est la version finale qui permet d'envoier le ou les fichier attaches par courriel

 

ex

mail to michele.ingenuo@disney.com

subject test

text " envoi de file"

fichier attachéée "F:\\CAD\\PLANS_Cad\\B\\test.jpg"

 

 

PS je cherche aussi de comprendre la fonction find file pour testes l'existence du fichier "F:\\CAD\\PLANS_Cad\\B\\test.jpg" par exemple

 

 

merci de l'aide che cherche partout un livre ou une doc en francais pour visullisp a acheter mais rien a l'orizont

 

 

 

[Patrick_35]

Voici un code pour envoyer un message avec pièce attachée depuis un serveur internet type Yahoo.fr/Voila.fr et d'autres

 

; Création de l'activex pour envoyer un message
(setq Outlk (vlax-Create-Object "CDO.Message"))

; Configuration du serveur
(setq Serv (vlax-Get-Property (vlax-Get-Property Outlk 'Configuration) 'Fields))
(vlax-Put-Property (vlax-Get-Property Serv 'Item "http://schemas.microsoft.com/cdo/configuration/sendusing")      'Value 2)
(vlax-Put-Property (vlax-Get-Property Serv 'Item "http://schemas.microsoft.com/cdo/configuration/smtpserver")     'Value "ServerSMTP") ; ex: smpt.aol.com
(vlax-Put-Property (vlax-Get-Property Serv 'Item "http://schemas.microsoft.com/cdo/configuration/smtpserverport") 'Value 25)
(vlax-Invoke Serv 'Update)

; Contenant du message
(vlax-Put-Property Outlk 'From     "Mon_courriel@fai.com")
(vlax-Put-Property Outlk 'To       "Mon_destinataire@quelque.chose")
(vlax-Put-Property Outlk 'Subject  "Sujet")
(vlax-Put-Property Outlk 'TextBody "Mon Message")
(vlax-invoke outlk 'AddAttachment (findfile "Mon_fichier.txt"))

; Envoi
(if (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke (list outlk 'Send)))
 (princ "\nImpossible to send the message. No connection Internet")
)

(vlax-Release-Object Outlk)

 

Et un code pour envoyer un message depuis un serveur Exchange d'entreprise

 

; Création de l'activex pour envoyer un message
(setq Outlk (vlax-Create-Object "CDO.Message"))

; Configuration du serveur
(setq Serv (vlax-Get-Property (vlax-Get-Property Outlk 'Configuration) 'Fields))
(vlax-Put-Property (vlax-Get-Property Serv 'Item "http://schemas.microsoft.com/cdo/configuration/smtpserver") 'Value "IP serveur Exchange")

; Contenant du message
(vlax-Put-Property Outlk 'Sender   "Mon_nom@entreprise.fr")
(vlax-Put-Property Outlk 'To       "Mon_destinataire@quelque.chose")
(vlax-Put-Property Outlk 'Subject  "Sujet")
(vlax-Put-Property Outlk 'TextBody "Mon Message")
(vlax-invoke outlk 'AddAttachment (findfile "Mon_fichier.txt"))

; Envoi
(if (vl-catch-all-error-p (vl-catch-all-apply 'vlax-invoke (list outlk 'Send)))
 (princ "\nImpossible to send the message. No connection Internet")
)

ps : Inspiré de ce lien

 

je cherche aussi de comprendre la fonction find file

C'est une fonction autolisp, il suffit de regarder dans l'aide ou de regarder ici (ouf ! du français ;) )

 

cherche partout un livre ou une doc en francais pour visullisp

C'est une logique à comprendre. Pas vraiment besoin de livre et il me semble que des personnes comme (gile), bred et d'autres l'on bien assimilée. Il suffit de passer du temps, de suer à grosses gouttes, de ne pas hésiter à poser des questions ici et on y arrive ;)

 

@+

[Invité ingoenius]

 

 

je assaiee les 2 codes, mais dans le 2 cas j'ai un erreur

; erreur: Erreur Automation The specified module could not be found.

 

 

 

 

je sais pas exactement qoui il faut mettre dans lvalue smtp

 

ici la partie que j'ai personnalisée pour fair le test

 

; Configuration du serveur
(setq Serv (vlax-Get-Property (vlax-Get-Property Outlk 'Configuration) 'Fields))
(vlax-Put-Property (vlax-Get-Property Serv 'Item "http://schemas.microsoft.com/cdo/configuration/sendusing") 'Value 2)
(vlax-Put-Property (vlax-Get-Property Serv 'Item "http://schemas.microsoft.com/cdo/configuration/smtpserver") 'Value "SMTP.disney.com") ; ex: smpt.aol.com
(vlax-Put-Property (vlax-Get-Property Serv 'Item "http://schemas.microsoft.com/cdo/configuration/smtpserverport") 'Value 25)
(vlax-Invoke Serv 'Update)

; Contenant du message
(vlax-Put-Property Outlk 'From "michele.ingenuo@disney.com")
(vlax-Put-Property Outlk 'To "michele.ingenuo@disney.com")
(vlax-Put-Property Outlk 'Subject "Sujet")
(vlax-Put-Property Outlk 'TextBody "Mon Message")
(vlax-invoke outlk 'AddAttachment (findfile "test.txt")) 

[Patrick_35]

Salut

Inutile de tester les deux lisps. Un seul fonctionnera

Ce qu'il faut savoir c'est que si tu envois un courriel via un réseau entreprise (donc avec un serveur et adresse IP), c'est le deuxième lisp. Si c'est depuis un ordinateur branché directement à internet, donne moi le nom de ton FAI afin que je recherche ton smtp

 

@+

[Invité ingoenius]

merci patrick, donc je suis en entreprise, mais je connais pas les infos serveur et adresse IP a mettre, comme parametre, il y a un moyen de le recuperer??

 

[jalna]

Salut

 

sous Xp clique sur démarrer/ exécuter et la tape " cmd "

dans la fenêtre qui s'ouvre tapez " ipconfig " et valide.

[Maximilien]

tout dépend de l'entreprise car il y a moyen de masquer le démarrer/exécuter, ainsi que l'exécution de la console MS-DOS.

Juste pur dire quelque chose.

Car à ce niveau là, ca serait des explication avec ton administrateur réseau d'entreprise.

 

Mais j'ai connu ce cas de figure dans une entreprise où ce genre de liberté avec le courriels (mails) était impossible.

 

Actuellement dans l'entreprise où je suis l'envoi de courriel depuis les station de travail est proscrite (à la demande de la direction) il y a un poste destiné aux envois internet (SMTP). et c'est un autre poste informatique qui gère les réception (POP3).

 

 

[Edité le 9/5/2007 par Maximilien]

[Patrick_35]

Salut

Sous dos, tu peux faire nslookup si tu as le nom du serveur, mais dans ce domaine, c'est tout ce que je peux te dire de plus

 

@+

[Invité ingoenius]

j'ai ancore teste en mettant le info sorties de lslookup

 

value server j'ai mis les info du smtp trouves dans la variable Server

et dans une vairaible IP , mais je sai pas ou mettre ces infos

 

 

(setq Serv (vlax-Get-Property (vlax-Get-Property Outlk 'Configuration) 'Fields))
(vlax-Put-Property (vlax-Get-Property Serv 'Item "http://schemas.microsoft.com/cdo/configuration/sendusing") 'Value 2)
(vlax-Put-Property (vlax-Get-Property Serv 'Item "http://schemas.microsoft.com/cdo/configuration/smtpserver") 'Value Server) ; ex: smpt.aol.com
(vlax-Put-Property (vlax-Get-Property Serv 'Item "http://schemas.microsoft.com/cdo/configuration/smtpserverport") 'Value 25)
(vlax-Invoke Serv 'Update)

; Contenant du message
(vlax-Put-Property Outlk 'From "monadresse@entreprise.com")
(vlax-Put-Property Outlk 'To "monadresse@entreprise.com")
(vlax-Put-Property Outlk 'Subject "Sujet")
(vlax-Put-Property Outlk 'TextBody "Mon Message")
(vlax-invoke outlk 'AddAttachment (findfile "test.txt"))

 

 

mai il retourne un erreur

 

VLA-OBJECT nil

 

 

[Patrick_35]

Tu n'as pas pris le bon exemple. C'est de deuxième sur un serveur Exchange d'entreprise

 

@+