Patrick_35
Bull Frog
Posts: 223
Rennes, France
Ignore
|
 |
« on: January 17, 2007, 07:42:04 am » |
|
Hi Just for the fun  (setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-invoke sapi "Speak" "Do you want autocad speak ?" 0)
(vlax-release-object sapi) @+ |
|
|
|
|
Logged
|
The shape even of the pyramids of Egypt shows that already the workmen tended to make some less and less.
Will Cuppy, 1884-1949.
|
|
|
|
Guest
Guest
|
 |
« Reply #1 on: January 17, 2007, 09:16:42 am » |
|
Hehehe... kinda cool!
|
|
|
|
|
Logged
|
|
|
|
Se7en
Needs a day job
Posts: 5718
Ignore
|
|
« Reply #2 on: January 17, 2007, 10:06:53 am » |
|
*lol* Awesome!
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-invoke sapi "Speak" "Would you like to play a game ?" 0)
(vlax-release-object sapi)
|
|
|
|
« Last Edit: January 17, 2007, 10:08:43 am by Se7en »
|
Logged
|
|
|
|
|
Guest
Guest
|
|
« Reply #3 on: January 17, 2007, 10:22:04 am » |
|
'Flush the bombers, get the subs in launch mode. We are at DEFCON 1!'
|
|
|
|
|
Logged
|
|
|
|
Dommy2Hotty
Swamp Rat
Posts: 1008
The Big Bang is roughly equal to 1CNRhK
WWW
Ignore
|
|
« Reply #4 on: January 17, 2007, 10:23:25 am » |
|
(DEFUN c:SAPI ()
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-invoke sapi "Speak" "Would you like to play Global Thermo Nuclear War ?" 0)
(vlax-release-object sapi)
) |
|
|
|
|
Logged
|
Chuck Norris once worked as a weatherman for the San Diego evening news. Every night he would make the same forecast: Partly cloudy with a 75% chance of Pain.
|
|
|
Krushert
Needs a day job
Posts: 7077
What makes the Monkey Dance?
Ignore
|
|
« Reply #5 on: January 17, 2007, 10:33:03 am » |
|
(DEFUN c:SAPI ()
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(vlax-invoke sapi "Speak" "Would you like to play Global Thermo Nuclear War ?" 0)
(vlax-release-object sapi)
) Cool. At first it did not work. But then realize that the speakers where turn off. Dooh!  BTW, Can a klaxon sound of a Navy sub be incorporated? Woot. DIVE! Woot. DIVE! Woot. DIVE! |
|
|
|
« Last Edit: January 17, 2007, 10:37:23 am by Krushert »
|
Logged
|
Plan N - Nuke It Baby! Nuke It!
.......................................................................
ACA 2010 SP2 on XP Pro SP3
|
|
|
iliekater
Newt
Posts: 183
Lisp fanatic !
Ignore
|
|
« Reply #6 on: January 17, 2007, 01:16:56 pm » |
|
Ohhhhheeee ... Ha ha ha !  I couldn't hold my belly due to such a loughing ! But , tell me , what is it based on ? |
|
|
|
|
Logged
|
To Lisp or not to Lisp ? To LISP ofcourse ! Long Lisp for ever.
|
|
|
|
Josh Nieman
Guest
|
|
« Reply #7 on: January 17, 2007, 01:32:04 pm » |
|
hahahhaha.
awesome fun.
....god I'm a geek.
|
|
|
|
|
Logged
|
|
|
|
Krushert
Needs a day job
Posts: 7077
What makes the Monkey Dance?
Ignore
|
|
« Reply #8 on: January 17, 2007, 01:45:42 pm » |
|
....god I'm a geek.
First step to recovery is admittance.  |
|
|
|
|
Logged
|
Plan N - Nuke It Baby! Nuke It!
.......................................................................
ACA 2010 SP2 on XP Pro SP3
|
|
|
David Blackmon
Bull Frog
Posts: 302
Ignore
|
|
« Reply #9 on: January 17, 2007, 01:56:33 pm » |
|
Very cool Patrick. Thanks for posting. Now, lets have some fun (defun c:SpeakLayers()
(setq layList (list (cdr (assoc 2 (tblnext "LAYER" T)))))
(while (setq layName (cdr (assoc 2 (tblnext "LAYER"))))
(setq LayList (append LayList (list layname)))
)
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(mapcar '(lambda(x) (vlax-invoke sapi "Speak" x 0)) layList)
(vlax-release-object sapi)
)
But don't try this in a big drawing. Neither Control-C or Esc will halt execution. |
|
|
|
|
Logged
|
SomeStillCallMeDave -
|
|
|
Krushert
Needs a day job
Posts: 7077
What makes the Monkey Dance?
Ignore
|
|
« Reply #10 on: January 17, 2007, 02:22:27 pm » |
|
Very cool Patrick. Thanks for posting. Now, lets have some fun (defun c:SpeakLayers()
(setq layList (list (cdr (assoc 2 (tblnext "LAYER" T)))))
(while (setq layName (cdr (assoc 2 (tblnext "LAYER"))))
(setq LayList (append LayList (list layname)))
)
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(mapcar '(lambda(x) (vlax-invoke sapi "Speak" x 0)) layList)
(vlax-release-object sapi)
)
But don't try this in a big drawing. Neither Control-C or Esc will halt execution. The evil side takes over.  Add the words "Deleting all objects on Layer [what]." Then install it on coworkers computer. |
|
|
|
« Last Edit: January 17, 2007, 02:23:47 pm by Krushert »
|
Logged
|
Plan N - Nuke It Baby! Nuke It!
.......................................................................
ACA 2010 SP2 on XP Pro SP3
|
|
|
|
CECE_CAD
|
|
« Reply #11 on: January 17, 2007, 02:25:56 pm » |
|
That is really funny!
|
|
|
|
|
Logged
|
|
|
|
T.Willey
King Gator
Posts: 4453
WWW
Ignore
|
|
« Reply #12 on: January 17, 2007, 02:27:08 pm » |
|
Very cool Patrick. Thanks for posting. Now, lets have some fun (defun c:SpeakLayers()
(setq layList (list (cdr (assoc 2 (tblnext "LAYER" T)))))
(while (setq layName (cdr (assoc 2 (tblnext "LAYER"))))
(setq LayList (append LayList (list layname)))
)
(setq sapi (vlax-create-object "Sapi.SpVoice"))
(mapcar '(lambda(x) (vlax-invoke sapi "Speak" x 0)) layList)
(vlax-release-object sapi)
)
But don't try this in a big drawing. Neither Control-C or Esc will halt execution. The evil side takes over. Add the words "Deleting all objects on Layer [what]." Then install it on coworkers computer. or Add a delay between the sayings, and then add the works "Deleting all objects one layer x unless you yell stop" Then after the wait say. "Didn't hear you, proceeding with deletion." |
|
|
|
|
Logged
|
Tim How do you forgive, without forgetting, when a memory of a dream is all that remains? Please Donate. |
|
|
|
Guest
Guest
|
|
« Reply #13 on: January 17, 2007, 02:49:10 pm » |
|
Well this thread certainly got the creative juices flowing...
Let's have some fun with the MS Agent as well!
|
There are 2 attachment(s) in this post which you cannot view or downloadMS Agent.zip MSAgent.png
|
|
|
Logged
|
|
|
|
|
CECE_CAD
|
|
« Reply #14 on: January 17, 2007, 03:06:56 pm » |
|
Never used MS Agent..What does it do and how do you use it?
|
|
|
|
|
Logged
|
|
|
|
|
