My Photo

May 2009

Sun Mon Tue Wed Thu Fri Sat
          1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31            

BLOGMap


« Dynamic Block Production Drawing Sample | Main | Dynamic Block Hatch's »

April 05, 2005

AutoCAD Instant Messaging

Well not exactly what you may be use to in MSN or AOL instant messenger. But from AutoCAD's command line it works great and very fast. All you need to do is tweak some settings on your computer and the person's computer which you are sending them to. (You can send a message only to a name that is active on the network. If you send the message to a user name, that user must be logged on and running the Messenger service to receive the message.) The Messaging is accessing the Net Send feature from windows to send messages instantly to a users screen. For more information on messaging take a look at the Microsoft web site.

To check if your messaging service is running go to your "Control Panel>>Administrative Tools>>Services>> then under the name category there is a messenger category. Double click on this setting and under "Startup Type" select "Automatic". Then simply hit the "Start Service button on the top left (Play button). Then close down the services. And that's it. Do the same for anyone else you want to instant message.

Now you need to get a list of computer names and which user is associated with this computer name. Then simply input it, into the Lisp code attached and your ready to go.

Messenger

Here is the code or download the Lisp file. Download instant_message.LSP

(defun c:IM (/ draftername messagetest name)
(setq draftername (strcase (getstring "\nWho do you want to Instant Message? Mark/John/Steve/Brandon:")))
(setq messagetest (strcase (getstring T "\nType in your message")))
;;;;;;;First Letter in name...Workstation Computer Name
(if (= draftername "M") (setq name "Markscomputername"))
(if (= draftername "J") (setq name "Johnscomputername"))
(if (= draftername "S") (setq name "Stevescomputername"))
(if (= draftername "B") (setq name "Brandonscomputername"))
(command "start" (strcat "NET SEND " name " "(getvar "loginname") " Says: " messagetest " "))
(princ))

Comments

This is very useful.

I loaded this lisp routine, but I do not know how to launch this from the command line in AutoCad???

how can i configure the network...pls help me.

Verify your Comment

Previewing your Comment

This is only a preview. Your comment has not yet been posted.

Working...
Your comment could not be posted. Error type:
Your comment has been saved. Comments are moderated and will not appear until approved by the author. Post another comment

The letters and numbers you entered did not match the image. Please try again.

As a final step before posting your comment, enter the letters and numbers you see in the image below. This prevents automated programs from posting comments.

Having trouble reading this image? View an alternate.

Working...

Post a comment

Comments are moderated, and will not appear until the author has approved them.