---

Hallo,
gibt es in Autolisp einen Befehl, der mir einen Beep ausgibt?

Gruß Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

nicht schön, aber vielleicht ausbaubar:

(command "shell" (strcat "echo" (chr 7)))

wies etwas eleganter in VBA geht findest du hier
------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 02. Nov. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke Thomas,

wenn auch nicht so elegant, es reicht mir aus. Ist nur vorübergehend zur Kontrolle.

Gruß Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nur der Vollständigkeit halber:
Wer die Express Tools installiert hat kann auch
(acet-sys-beep)
nutzen.

Ich zitiere:
"Make a noise. sound can be one of:
  -1:  Standard beep using computer speaker
  0:  SystemDefault
  16:  SystemHand
  32:  SystemQuestion
  48:  SystemExclamation
  64:  SystemAsterisk"

Gruß
CADchup

------------------
www.cadditions.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

 

Zitat:

---

Original erstellt von CADchup:
Nur der Vollständigkeit halber:
Wer die Express Tools installiert hat kann auch
(acet-sys-beep)
nutzen.

Ich zitiere:
"Make a noise. sound can be one of:
  -1:  Standard beep using computer speaker
   0:  SystemDefault
  16:  SystemHand
  32:  SystemQuestion
  48:  SystemExclamation
  64:  SystemAsterisk"

Gruß
CADchup

---

mußte aber Soundkarte installiert haben , nur mit dem PC-Speaker gehts leider nicht... Option -1 liefert bei mir auch nur was über Soundkarte .. EDIT: je nachdem.. wenn keine Installiert -> dann doch über Speaker (genauso wie (vlr-beep-reaction) )

------------------
    - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 02. Nov. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

auch lisp jedenfalls dem Teilnamen nach
(vlr-beep-reaction)

dann noch das:
(defun Beep (/ f)
(if (not (getenv "windir"))
    (progn (setq f (open "con" "w"))
            (write-char '7 f)
            (close f))))

und dann das von CADchup

------------------
Gruß
CADwiesel
Besucht uns im CHAT

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von CADchup:
Nur der Vollständigkeit halber:
Wer die Express Tools installiert hat kann auch
(acet-sys-beep)
nutzen.

Ich zitiere:
"Make a noise. sound can be one of:
  -1:  Standard beep using computer speaker
  0:  SystemDefault
  16:  SystemHand
  32:  SystemQuestion
  48:  SystemExclamation
  64:  SystemAsterisk"

Gruß
CADchup

---

Frage: können die deutschen ET's das auch?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich haben AutoCAD 2002 deutsch mit Expresstools 2000i englisch und
bekomme trotz Soundkarte keinen Sound. Ich verstehe auch die Syntax nicht. Habe folgendes eingegeben:

(vlr-beep-reaction)
(defun Beep (/ f)
  (if (not (getenv "windir"))
    (progn (setq f (open "con" "w"))
            (write-char '7 f)
            (close f)
    )
    )
)
(acet-sys-beep 0)

aber das ist wohl vollkommen falsch?

Gruß Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von cadking:
Ich haben AutoCAD 2002 deutsch mit Expresstools 2000i englisch und
bekomme trotz Soundkarte keinen Sound. Ich verstehe auch die Syntax nicht. Habe folgendes eingegeben:

(vlr-beep-reaction)
(defun Beep (/ f)
   (if (not (getenv "windir"))
    (progn (setq f (open "con" "w"))
            (write-char '7 f)
            (close f)
     )
    )
)
(acet-sys-beep 0)

aber das ist wohl vollkommen falsch?

---

jo, völlig..
wenn du DOS als Betriebssystem hast kannst du
(defun Beep (/ f)
  (if (not (getenv "windir"))
    (progn (setq f (open "con" "w"))
            (write-char '7 f)
            (close f)
    )
    )
)
verwenden und danach den Ton mit Aufruf von (beep) erzeugen.
das macht das gleiche wie (command "shell" (strcat "echo" (chr 7))) , welches zuerst bloß das DOS-Fenster (shell) öffnet.

mit und ohne Soundkarte reicht
(vlr-beep-reaction)
für die Tonerzeugung, allerdings sollstes du bei installiertem Sound, Boxendran haben und die Lautstärke unter Windows nicht auf null haben.

analog liefert dir aus den (dt. oder Engl. - > das ist egal)Expresstools
(acet-sys-beep 0)
en Standart-Windows-Ton

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

[Diese Nachricht wurde von CADmium am 05. Nov. 2004 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ich habe eine Soundkarte drin und die Boxen an auf volle Lautstärke.
Musikfiles (MP3) kann ich auch hören.

aber weder (vlr-beep-reaction) noch (acet-sys-beep 0) erzeugt irgend einen Ton ???

Gruss Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Haben wir denn in der Systemsteuerung, "Sounds und Audiogeräte", Register "Sounds" dem "Standardton Warnsignal" auch einen Sound zugeordnet?

Fragt
CADchup

------------------
www.cadditions.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Im Register "Sounds" finde ich keinen "Standardton Warnsignal" ?

Gruß Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

@Heinz    : top .. vergaß ich zu erwähnen 
@CAD-King : das ist gemeint:

und wenn du da kein Lautsprechersymbol drin hast, hast du auch keinen Sound zugeordnet und dem zufolge kann dann auch keiner abgespielt werden!

------------------
- Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sounds.jpg

Ich wuusste schon was Du meintest, aber ich habe diese Option leider nicht gefunden. WIN2000 Prof. SP6

Ich kann hier leider des Screenshot meiner Systemsteuerung einfügen. Ich habe den Screenshot als Anhang beigefügt.

Wie füge ich hier ein Bild ein? (Zwischenablage geht nicht)

Gruß Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

EXPLODE.wav.txt

Ist ja eigentlich egal, welchen Sound man nun nimmt, um das Prinzip zu zeigen...

Mal ein anderer Vorschlag - ein bisschen VBA, das aus Lisp heraus aufgerufen wird, und man kann sich z.B. den EXPLODE-Befehl mit einem passenden Geräusch hinterlegen:

Code:

---

Public Declare Function PlaySoundA Lib "winmm.dll" _
  (ByVal lpszName As String, _
  ByVal hModule As Long, ByVal dwFlags As Long) _
  As Long
Public Const SND_RESOURCE = &H40004
Public Const SND_ASYNC = &H1
Public Const SND_MEMORY = &H4
Public Const SND_NODEFAULT = &H2

Sub PlaySound(ByVal Path As String)
  PlaySoundA Path, SND_ASYNC, 0
End Sub

Public Sub bums()
  PlaySound "D:\autolisp\explode.wav"
End Sub

---

In Lisp reicht dann ein (vl-vbarun"bums"), und schon scheppert's.

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Axel,

dieser Vorschlag war für mich Gold wert. Ist ja wie VBA in Excel. Meine Lisproutine ist jetzt dauernd am Quatschen. So weiss ich immer, was gerade ausgeführt wird.

Vielen Dank Stefan

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

> Meine Lisproutine ist jetzt dauernd am Quatschen

Schreckliche Vorstellung! Lisproutine mit eingebauter Schwiegermutter;-) Bau dir lieber sicherheitshalber noch eine globale Variable *verbose* ein...

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ein typisches Wochenendthema mal zum Aufwärmen:

- gibts die expresstools noch unter 2010?
- gibts (acet-sys-beep nn) noch? fünf (acet-*) Funktionen sind in der Lisp-Befehlsreferenz aufgelistet: acet-sys-beep ist nicht dabei.
  Lisps mit diesem Aufruf haken gerade bei mir.
- falls es (acet-sys-beep) nicht mehr gibt, wurde es durch irgendwas ersetzt?
  (vlr-beep-reaction [args]) als einziges Ergebnis der Suche ist nicht gerade üppig erklärt in der Befehlsreferenz

allen ein schönes Wochenende!

------------------
Gruß
SebZ

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
grade getestet: speaker einschalten > (acet-sys-beep 0) ausführen gibt ein schönes Windows-*plönk*
Die ET müssen auch in 2010 extra angehakt werden bei der Installation, nachträglich geht aber auch, der user FAQ Thema Expresstools weiß da mehr drüber

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Excel -Suche | RuA-Suche | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
kann mir jemand sagen wie ich Axels Vorschlag in ein Lisp-Prog einbinden kann.
Kenne mich überhaupt nicht mit VBA aus, ausprobieren möchte ich Axels Vorschlag aber mal gerne. Danke im voraus.
Grüße
Niggemann

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

(vl-vbaload "MAKRO.dvb" )(vl-vbarun "Modulname.Prozedurname" )

oder (command "_vbaload" .. )(command "_vbarun" ..)

aber guck dir auch mal das zu dem Thema an ...

------------------
  - Thomas -
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

fehler.jpg.txt

Hallo Lisp-Gemeinde :-))

Habe eine Frage zum Code von Mapcar (R.I.P.)

Wenn ich ihn im VBA-Editor abspielen möchte kommt die hier
angehängte Fehlermeldung.
Laut meiner VB-Leute hier müsste er eigentlich rennen. 

lg
Martin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Martin,

dann mach halt aus dem Public Function ein Private Function und nimm die Public vor den Const weg, wenn ACAD sie nun mal nicht mag ;-)
Getestet in C3D2010 -> läuft.
Warum ACAD die Publics nicht mag, weiß ich aber leider nicht 
Und warum in aller Welt machst Du aus nem jpg ein jpg.txt   

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

System-Info | Dateianhänge | FAQ-ACAD | CAD.de-Hilfe | Sei eine Antilope

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

keine ahnung......hatte irgendwie in erinnerung, daß man jpgs nicht direkt laden kann.
kann aber auch ein anderes forum gewesen sein 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Speech Application Programming Interface http://forums.augi.com/showthread.php?t=53823&page=5&highlight=speakcfg 

Code:

---

(defun C:SpeakCfg(/ Sapi ~voice ~volume ~rate Voice VoiceMary VoiceMike
                    VoiceSam VoiceLst NumVoices @SendKeysN @PlayWav
                    @NoPath @VoiceList @member+ @Voice&TextInput)

;**********************SubPrograms************************************************
(defun @SendKeysN (Keys n / Wscript)
  (if (setq Wscript (vlax-create-object "WScript.Shell"))
    (progn (repeat n
       (vlax-invoke-method Wscript 'SendKeys Keys))
       (vlax-release-object Wscript)
    )
  ) 
(princ)
)
(defun @PlayWav (Sapi WavFile / WavPath @@FindFile ObjFile)
(defun @@FindFile(WavFile / WinDir Path i DirLst)
(setq WinDir (getenv "Windir"))
(setq Path nil i 0 DirLst
(list "" "c:\\" (strcat WinDir "\\")
(strcat WinDir "\\media\\")
(strcat WinDir "\\System\\")
(strcat WinDir "\\System32\\")
(strcat WinDir "\\System64\\")
(strcat WinDir "\\System32\\drivers\\")))
(while (and (< i (length DirLst))
(= (setq Path (findfile (strcat (nth i DirLst) WavFile))) nil))
(setq i (1+ i)))
Path
)
(setq WavPath (@@FindFile WavFile))
(if (and WavPath Sapi)
(progn
(setq ObjFile (vlax-create-object "SAPI.SpFileStream.1"))
(vlax-invoke ObjFile "Open" WavPath)
(vlax-invoke Sapi "Speakstream" ObjFile 0)
(vlax-release-object ObjFile)
))
)
(defun @NoPath(s / cnt ct name)
(setq name (strcase s T))
(if (= (substr name 2 1) ":")
(setq name (substr name 3)))
(setq cnt 1 ct 0)
(repeat (strlen name)
(if (= (substr name cnt 1) "\\")
(setq ct cnt)
)
(setq cnt (1+ cnt))
)
(setq name (substr name (+ 1 ct) cnt))
)
(defun @VoiceList(Sapi / i VoiceLst Voices)
(setq Voices (vlax-invoke Sapi 'GetVoices))
(setq i 0 VoiceLst '())
(repeat (vla-get-count Voices)
(setq VoiceLst (append VoiceLst
(list (vlax-invoke (vla-item Voices i) 'GetDescription))))
(setq i (1+ i))
)
VoiceLst
)
(defun @member+ (x lst /)
(if (vl-member-if '(lambda (y) (wcmatch x y)) lst) x)
)
(defun @Voice&TextInput(voice text / SpeekContent)
(setq SpeekContent (strcat "<VOICE REQUIRED='NAME=" voice "'>" text "</VOICE>"))
)

;**********************Main Program***********************************************
(vl-load-com)
(setq Sapi (vlax-create-object "Sapi.SpVoice"))
(if (not Sapi)(progn
(load "AI_UTILS")(princ "\nWarning: For sound, first install Microsoft Speech SDK 5.1")
(ai_abort "Sapi.SpVoice" (strcat "Warning: No Speech Application Programming Interface"
" with Microsoft Speech" "\n or with the speech module in MS Office."
"\n Suggestion: Install Microsoft Speech SDK 5.1 from http://www.microsoft.com/downloads/"))
))
(setq ~voice (@NoPath (vlax-get-property (vlax-get-property Sapi 'voice) 'Id)))
(cond
((= ~voice "msmary") (setq Voice "Microsoft Mary"))
((= ~voice "msmike") (setq Voice "Microsoft Mike"))
((= ~voice "mssam") (setq Voice "Microsoft Sam"))
(t (setq Voice ~voice))
)
;The voice is normally in Microsoft Speech "Microsoft Mary",
;but in the speech module in MS Office it is "Microsoft Sam".
(@SendKeysN (chr 175) 50);Maximize Volume
(setq ~volume (vlax-get-property Sapi 'Volume))
(vlax-put-property Sapi 'Volume 100)
(@playwav Sapi "notify.wav")
(vlax-invoke Sapi "Speak" (strcat "This is " Voice " speaking in AutoCAD with Sapi.     "
"Sapi is short for Speech Application Programming Interface.     "
"You can also use Sapi for playing Wave soundfiles in AutoCAD.") 0)
(@playwav Sapi "Ringin.wav")
(vlax-put-property Sapi 'Volume 10)
(vlax-invoke Sapi "Speak" "Do you want AutoCAD to speak with a soft volume?" 0)
(vlax-put-property Sapi 'Volume 50)
(vlax-invoke Sapi "Speak" "Do you want AutoCAD to speak with a medium volume?" 0)
(vlax-put-property Sapi 'Volume 100)
(vlax-invoke Sapi "Speak" "Do you want AutoCAD to speak with a loud volume?" 0)
;(vlax-put-property Sapi 'Volume ~volume)
(setq ~rate (vlax-get-property Sapi 'Rate))
(vlax-put-property Sapi 'Rate -8)
(vlax-invoke Sapi "Speak" "Do you want AutoCAD to speak with a slow rate?" 0)
(vlax-put-property Sapi 'Rate 5)
(vlax-invoke Sapi "Speak" "Do you want AutoCAD to speak with a fast rate?" 0)
(vlax-put-property Sapi 'Rate 0)
(vlax-invoke Sapi "Speak" "Do you want AutoCAD to speak with a normal rate?" 0)
;(vlax-put-property Sapi 'Rate ~rate)
(vlax-invoke Sapi "Speak" "Question,         Can I also change the voice?" 0)
(setq VoiceLst (@VoiceList Sapi))
;Gives normally with Microsoft Speech:("Microsoft Mary" "Microsoft Mike" "Microsoft Sam" "Sample TTS Voice")
;The voice "Sample TTS Voice" is not usable in a Sapi object, it is for use in TTSapp.exe and TTSappVB.exe
;Gives normally with Microsoft Office speech module:("Microsoft Sam")
(setq NumVoices(length VoiceLst))
(if (@member+ "Sample TTS Voice" VoiceLst) (setq NumVoices (1- NumVoices)))
(if (> NumVoices 1)
(vlax-invoke Sapi "Speak" (strcat "Yes. We can do this, because there are "
(itoa NumVoices) " usable voices on this system.") 0)
(progn
(vlax-invoke Sapi "Speak" (strcat "No. We can't do this, because there is only one voice on this system.  "
"  Probably, only the speech module of Microsoft Office is installed.") 0)
(princ (strcat "\nWarning: For more voices, first install Microsoft Speech SDK 5.1"
"\nfrom http://www.microsoft.com/downloads/"))))
(if (@member+ "Microsoft Mary" VoiceLst) (setq VoiceMary "Microsoft Mary"))
(if (@member+ "Microsoft Mike" VoiceLst) (setq VoiceMike "Microsoft Mike"))
(if (@member+ "Microsoft Sam" VoiceLst) (setq VoiceSam "Microsoft Sam"))
(if (and VoiceMary VoiceMike VoiceSam)
(progn
(vlax-invoke Sapi "Speak" (@Voice&TextInput VoiceMike
"My name is Microsoft Mike, and I have a question for Sam.") 0)
(vlax-invoke Sapi "Speak" (@Voice&TextInput VoiceMike
"Sam, could you say something about Mary?") 0)
(vlax-invoke Sapi "Speak" (@Voice&TextInput VoiceSam
"My name is Microsoft Sam, and I can say that Mary has a little lamb.") 0)
(vlax-invoke Sapi "Speak" (@Voice&TextInput VoiceMary
"Hi, this is Microsoft Mary and I think that Sam is joking like Mister Thomas Edison.") 0)
(vlax-invoke Sapi "Speak" (@Voice&TextInput VoiceMike
"This information is very interesting, and I would like to thank you all.") 0)
)
(progn
(vlax-invoke Sapi "Speak" "Warning      " 0)
(if (not VoiceMary) (vlax-invoke Sapi "Speak" "There is no Microsoft Mary." 0))
(if (not VoiceMike) (vlax-invoke Sapi "Speak" "There is no Microsoft Mike." 0))
(if (not VoiceSam) (vlax-invoke Sapi "Speak" "There is no Microsoft Sam." 0))
))
(@playwav Sapi "tada.wav")
(vlax-release-object sapi)
(princ)
)
(princ "SpeakCfg.lsp Loaded. \nRun with SPEAKCFG.")

---

Für SpeakCfg.dvb sehen Sie http://forums.augi.com/showthread.php?p=1021811
Das Programm SpeakCfg benutzt die Speech Application Programming Interface
von der Microsoft Speech SDK 5.1 ( http://www.microsoft.com/downloads/  ) oder
Redemodul vom Microsoft Office (Microsoft Word 2002 oder von Microsoft Excel 2002?).

Gruß
HofCAD CSI

Beispiele http://forums.augi.com/showthread.php?t=55713&page=4

[Diese Nachricht wurde von HofCAD am 20. Apr. 2010 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP