Dis bonjour au Monsieur

[Patrick_35]

Bonjour

 

J'ai indiqué à un collègue qu'on pouvait être identifié par autocad si on le souhaitait.

Après quelques recherches, j'ai trouvé comment faire et j'ai trouvé amusant d'ajouter la voix et qu'Autocad dise bonjour au monsieur (à placer dans la valise au démarrage d'_appload).

 

(defun c:qui(/ meth1 meth2 ok sapi wmi)
 (or (vl-bb-ref 'Patrick_35_Hello)
   (progn
     (setq WMI   (vlax-create-object "WbemScripting.SWbemLocator")
    meth1 (vlax-invoke WMI 'ConnectServer nil nil nil nil nil nil nil nil)
    meth2 (vlax-invoke meth1 'ExecQuery "Select * from Win32_ComputerSystem")
    sapi  (vlax-create-object "Sapi.SpVoice")
     )
     (and (setq ok (vlax-get (vlax-invoke meth2 'itemindex 0) 'username))
(vlax-invoke sapi "Speak" (strcat "Bonjour " (vl-string-subst " " "." (substr ok (+ (vl-string-search "\\" ok) 2)))) 0)
     )
     (mapcar 'vlax-release-object (list meth2 meth1 WMI sapi))
     (vl-bb-set 'Patrick_35_Hello T)
   )
 )
 (princ)
)

(c:qui)

 

Pour la voix en français

 

@+

Modifié le 15 avril 2016 par Patrick_35

[Steven]

Salut Patrick_35,

 

C'est marrant lorsqu'on lance AutoCAD :P

mais ça le devient moins lorsque l'ordi parle à chaque fois qu'on ouvre un dessin ou lorsqu'on créé un nouveau dessin

[Patrick_35]

mais ça le devient moins lorsque l'ordi parle à chaque fois qu'on ouvre un dessin ou lorsqu'on créé un nouveau dessin

Salut

 

Ah oui, tu as raison. J'ai modifié le lisp en conséquence.

 

@+

[Steven]

Ah, c'est mieux :)

 

Ça peut-être très marrant pour faire des blagues :P

[Alain]

Bonjour,

Patrick n'en est pas à son coup d'essai, allez voir ce post:

Mettez les hauts parleurs à fond :D

Là pour un gag...