Results 1 to 6 of 6

Thread: Pick and Speak

  1. #1
    I could stop if I wanted to aaronic_abacus's Avatar
    Join Date
    2006-04
    Posts
    384
    Login to Give a bone
    0

    Default Pick and Speak

    this program speaks what is picked.

    Code:
    (defun c:SayIt2 ()
     (setq nent (car (nentsel "Pick words to say: ")))
     (setq nentl (entget nent))
     (setq nentv (cdr (assoc 1 nentl)))
     (setq Phrase$ nentv)
    ; (setq Phrase$ (getstring T "Enter string: "))
     (setq Phrase$l (strlen Phrase$))
     (if (> Phrase$l 1000) (setq Phrase$ (substr Phrase$ 1 1000)))
     (vl-load-com)
     (setq sapi (vlax-create-object "Sapi.SpVoice"))
     (vlax-invoke sapi "Speak" Phrase$ 0)
     (vlax-release-object sapi)
     (princ)
    );defun c:SayIt2
    Attached Files Attached Files

    http://www.watsonlisp.com

    Artificial Intelligence for AutoCAD
    Find detail drawings by text and attribute content!
    6000 lines of code and and in development since 1997.

  2. #2
    Certifiable AUGI Addict
    Join Date
    2001-03
    Location
    Tallahassee, FL
    Posts
    3,046
    Login to Give a bone
    0

    Default Re: Pick and Speak

    Haven't played with this in years. http://forums.augi.com/showthread.ph...-AutoCAD-Speak
    Tom Beauford P.S.M. - Civil 2019 on Windows 10 Enterprise
    Design Analysis - Leon County Public Works/Engineering Wrap [CODE] tags around selected text
    2280 Miccosukee Rd. Tallahassee, FL 32308-5310
    Ph# (850)606-1516 Home Page

  3. #3
    I could stop if I wanted to
    Join Date
    2003-07
    Posts
    319
    Login to Give a bone
    0

    Default Re: Pick and Speak

    sapi is a little slow to play but interesting for (alert "you have picked incorrect object")

  4. #4
    Certifiable AUGI Addict
    Join Date
    2001-03
    Location
    Tallahassee, FL
    Posts
    3,046
    Login to Give a bone
    0

    Default Re: Pick and Speak

    If you're in a cubicle make sure you're using headphones or having alerts announcing all your mistakes could be embarrassing.
    Tom Beauford P.S.M. - Civil 2019 on Windows 10 Enterprise
    Design Analysis - Leon County Public Works/Engineering Wrap [CODE] tags around selected text
    2280 Miccosukee Rd. Tallahassee, FL 32308-5310
    Ph# (850)606-1516 Home Page

  5. #5
    I could stop if I wanted to aaronic_abacus's Avatar
    Join Date
    2006-04
    Posts
    384
    Login to Give a bone
    0

    Default Re: Pick and Speak

    3 damn lines and boom, cad is talking back! thanks terrycadd!

    now, how about voice recognition?

    http://www.watsonlisp.com

    Artificial Intelligence for AutoCAD
    Find detail drawings by text and attribute content!
    6000 lines of code and and in development since 1997.

  6. #6
    I could stop if I wanted to
    Join Date
    2003-07
    Posts
    319
    Login to Give a bone
    0

    Default Re: Pick and Speak

    I am sorry to disappoint but voice recognition has been around for like 30 years, it is known that talking to yourself is the 1st sign of madness. Yes I have played "line" Autcad responds you pick points etc. "Save" does just that.

    !@#$ is I stuffed up code word for Undo.

    You need a word for Everything it is best if you train it, how many of us have rang the telephone !@$% I just want to talk to someone. Found the solution mumble.

    You can still buy a digitiser, a proficient operator knew where every command was like a typist, would not look, their speed was amazing.

Similar Threads

  1. Roof - Pick Walls vs Lines with Pick
    By andrewg in forum Revit Architecture - General
    Replies: 2
    Last Post: 2007-12-28, 04:28 PM
  2. Speak 4 cad
    By maa in forum Software
    Replies: 9
    Last Post: 2006-06-30, 12:13 PM
  3. speak to autocad
    By jaberwok in forum Software
    Replies: 9
    Last Post: 2005-11-09, 08:12 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •