Patrick_35

Salut Bonus C'est bien la première fois que je vois un Autocad chinois @+

Ouf, je ne suis pas le seul ;) @+

Salut Le plus simple est d'écrire ton fichier avec un retout à la ligne pour chaque paramètre Maintenant, à toi de savoir combien tu as besoin de paramètres par bloc afin de bien structurer ton fichier @+

Idem pour moi. la solution est de faire un aperçu, puis de faire précedent pour que ça fonctionne correctement @+

Salut Si tu as des attributs qui on un angle autre que zéro et que le lisp vient d'être chargé, c'est normal. Le lisp n'intervient que quand une action est effecté et uniquement sur le/les bloc(s) selectionné(s) (sauf pour un changement de scu) avec par exemple les commandes copier, déplacer, rotation, miroir, etc... @+

Salut Tu as regardé ce lisp @+

Merci zebulon_ J'avais bien testé avec le vlax-import-type-library, mais ça m'a laissé perplexe. D'autant pour que ça fonctionne, il faut faire auparavant un vlax-creat-objetc de l'API (je prends comme exemple Excel) Mais tes liens sont à regarder de plus près @+

J'ai trouvé comment charger l'API (startapp "regsvr32.exe" "/s \"Comdlg32.ocx\"") Reste plus qu'à trouver comment l'activer et y accéder @+

Bonjour J'aimerai trouver la traduction de cette ligne vba en vlisp Public Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long Merci d'avance @+

Salut C'est dans le répertoire d'installation d'autocad. Les express tools sont fournit avec le CD d'installation mais tu peux quand même les télécharger ici @+

Salut Avec ce post et celui-ci @+

Et qui offre le champagne ??? (vlax-invoke outlk 'AddAttachment "Mon_Texte.txt") @+

Salut Pour décomposer un bloc en l'inserant, tu fais un (command "_.insert "*MonBloc" ...) @+

Salut BTO Là, tu te sert de Outlook (vlax-Create-Object "CDO.Message") Là, je me sert des scripts @+

Salut Utilise LATT avec des attributs @+

Ah, ça c'est terrible :( Ce qui m'horripile le plus avec leurs radars, c'est le plus souvent sur les grands axes, là ou on peux rouler et sans de grands risques. Par contre, sur des départementales avec des traversés de village, RAS, pas un radar :o C’est à se demander à quand les autoroutes sans limitations de vitesses, comme en Allemagne Ca a le mérite de permettre de rouler, et quand c’est limité, c’est pour une bonne raison et du coup, on est respectueux des limitations :P @+

C'est une solution, mais si c'est un CD, j'ai peur qu'il n'arrive pas forcement à bon port (et c'est sans compter sur les chasseurs) @+

Et avec un (vlax-make-variant ...) pour le string ? @+

Salut c'est ici -->(vlax-put-property outlk 'AddAttachment "c:/rep1/rep2/My_Attach.txt") mais c'est peut-être un problème de chemin. Un (vlax-put-property outlk 'AddAttachment "c:\\rep1\\rep2\\My_Attach.txt") peut fonctionner Sinon, je ne pourrai pas re-tester avant Lundi soir @+

En faisant une recherche par exemple avec google sur le mot CDO.Message tu vas trouver ces liens http://www.faqoe.com/rep/cs.php3 http://www.eleves.ens.fr/wintuteurs/advanced/scripting.html http://www.asp-php.net/ressources/codes/VBScript-Envoi+de+MAIL+via+CDO.aspx et d'autres encore (ps : le premier donne la procèdure à suivre pour une pièce jointe) Sinon j'avais aussi trouvé ces sites http://www.paulsadowski.com/WSH/cdo.htm http://www.atoutfox.org/articles.asp?ACTION=FCONSULTER&ID=0000000040 http://www.w3schools.com/asp/asp_send_email.asp @+

Salut, je ne pense pas que cela soit possible en vbs mais je te donne le chemin à suivre en vlisp Il ne restera plus qu'a le traduire en vb (setq pref (vla-get-preferences (vlax-get-acad-object))) (setq files (vla-get-files pref)) (vla-get-supportpath files) @+

Salut J'ai testé chez moi et je me suis envoyé deux messages et ça a fonctionné à merveille Tu remarqueras que tes courriels peuvent être anonymes ou avec une adresse bidon @+

Salut En vlisp un exemple (setq Outlk (vlax-Create-Object "CDO.Message")) (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) (vlax-Put-Property Outlk 'From "My_email@server.com") (vlax-Put-Property Outlk 'To "Recipient@server.com") (vlax-Put-Property Outlk 'Subject "Subject") (vlax-Put-Property Outlk 'TextBody "My Message") (vlax-put-property outlk 'AddAttachment "c:/rep1/rep2/My_Attach.txt") (vlax-put-property outlk 'HTMLBody "< b r> < img src='image.jpg' > < br >") (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 en ce moment, je fait mumuse avec les activex et je perds des cheveux, mais c'est passionnant Un petit cadeau, c'est la boite de dialogue pour le choix d'un répertoire (defun DirBox(Titre Chemin / rep shobj) (setq shobj (vla-getinterfaceobject (vlax-get-acad-object) "Shell.Application")) (if (setq rep (vlax-invoke shobj 'browseforfolder 0 Titre 512 chemin)) (setq rep (vlax-get-property (vlax-get-property rep 'self) 'path)) (setq rep nil) ) (vlax-release-object shobj) rep ) Et en ce moment, je cherche pour une sélection multiple des fichiers. J'ai bien trouvé, mais ça fonctionne sous 16 bits. J'ai trouvé aussi pour le 32 bits, mais la sélection ne fonctionne que pour un fichier, mais je vais y arriver @+

Fait des PLT ou des PDF Pas à ma connaissance @+

Salut Utilise les filtres @+