Topic: Play winamp with Autolisp

[Adesu]

Hi Alls,
I'm not sure to play winamp with autolisp,because my ability not yet enough for it,is it possible to play winamp from autolisp?.
I would imagine if I 'm working cad and sometime bore it,then type "play" at command prompt,my Favourites song heard in my earphone.

[daron]

If keith can do it in vba, I'm sure you can create it in lisp.

[JohnK]

Use Mplayer(or Mark might be able to point out Mpg321), it would be easier.

[Adesu]

Hi daron,
it's nice and good code,thanks for your share.

If keith can do it in vba, I'm sure you can create it in lisp.

[daron]

Don't thank me. Keith coded it. It's all him.

[Adesu]

Oops,sorry ,thanks for your code Keith.

[Kerry]

hmmm .. I thought Mike Malone wrote CADAmp .... oh, well, old memories may not be precise.

[Keith™]

hmmm .. I thought Mike Malone wrote CADAmp .... oh, well, old memories may not be precise.

I wrote the entire code from scratch. If you do a search around the swamp you will see that I also did an example of how you can utilize sounds in your lisp programs. The main problem with playing music with lisp is that while the lisp is active, the drawing cannot be worked on. In VBA you can subclass and execute the commands needed while you are working on the drawing.

[daron]

Good point. Adesu, I'd stick with what Keith has written and if possible improve upon it. That is the idea of having the source, isn't it?

[Adesu]

Hi Keith™ ,
It's good info,many thanks for your sharing.

[Adesu]

Hi Keith™ ,
Aha....I got with lisp,here that code

Code: [Select]

; pwva is stand for Play Winamp Via Autolisp
;        Design by  : Adesu <Ade Suharna>
;        Email      : mteybid@yuasabattery.co.id
;        Homepage   : http://www.yuasa-battery.co.id
;        Create     : 07 February 2007
;        Program no.: 0527/02/2007
;        Edit by    :

(defun c:pwva (/ file path fn winamp)
  (setq file "D:/YBI/General/Music/Dangdut")
  (if
    (setq path (getfiled "Select a Song File Name " file "mp3" 0))
    (progn
      (setq fn (vl-string-translate "\\" "/" path))
      (setq winamp "C:/Program Files/Winamp/winamp.exe")
      (startapp winamp fn)
      )                    ; progn
    (alert "\nInvalid,there is not selected file")
    )                      ; if
  (princ)
  )  


The main problem with playing music with lisp is that while the lisp is active, the drawing cannot be worked on.

[Adesu]

Hi Alls,
Sorry last time only contained one file,here more file

Code: [Select]

; pwva is stand for Play Winamp Via Autolisp
;        Design by  : Adesu <Ade Suharna>
;        Email      : mteybid@yuasabattery.co.id
;        Homepage   : http://www.yuasa-battery.co.id
;        Create     : 07 February 2007
;        Program no.: 0527/02/2007
;        Edit by    :

(defun c:pwva (/ file all_file_name file_name fn winamp)
  (setq file "D:/YBI/General/Music/Dangdut/")
  (if
    (setq all_file_name (cddr (vl-directory-files file)))
    (progn
      (foreach x all_file_name
(setq file_name (strcat file x))
(setq fn (append fn (list file_name)))
)
      (setq fn (vl-string-trim "()" (vl-princ-to-string fn)))
      (setq winamp "C:/Program Files/Winamp/winamp.exe")
      (startapp winamp fn)
      )                    ; progn
    (alert "\nInvalid,there is not selected file")
    )                      ; if
  (princ)
  )


[Keith™]

I see .. basically you wanted to start an application, namely WinAmp, with lisp ... if I had understood that, I would have been able to provide it for you ... but I am glad you got it working

[Crank]

If the MP3 extension points to winamp, you can use the routine I posted here to. (change PDF to MP3 )

[Adesu]

Hi Keith™,
Thanks for your support.

I see .. basically you wanted to start an application, namely WinAmp, with lisp ... if I had understood that, I would have been able to provide it for you ... but I am glad you got it working