dcl_settings : default_dcl_settings { audit_level = 3; } //------------------------------------------------------------------------------ // Program Name: Messenger.dcl [AutoCAD Messenger R5] // c:AM for Shortcut // Created By: Terry Miller (Email: terrycadd@yahoo.com) // (URL: https://autolisp-exchange.com) // Date Created: 1-20-04 // Function: AutoCAD Messenger uses the Windows Msg.exe program to send and // receive messages between AutoCAD users on a network or server. // Note: Messenger requires a few installation steps, such as customizing // the global variables *Shared_Folder$, *Login_Exceptions@, and // *Login_Displayname@. The purpose of the *Shared_Folder$ is to // create a list of Recipients based upon which AutoCAD users have // logged in for the day. *Login_Exceptions@ are users to exclude // from the Recipients list for various reasons. *Login_Displayname@ // is used to customize the display name for each user login name. //------------------------------------------------------------------------------ // Revision History // Rev By Date Description //------------------------------------------------------------------------------ // 1 TM 1-20-04 Initial version // 2 TM 3-20-06 Included global variables to make it easier to customize. // 3 TM 1-10-07 Revised to use the standard SHELL command and removed all // calls to the GetIcon and Dcl_Tiles functions. // 4 TM 11-30-07 Added runapp function for DOS applications. // 5 TM 4-7-11 Replaced Net Send with Msg command for Windows 10. //------------------------------------------------------------------------------ // Messsenger - AutoCAD Messenger dialog //------------------------------------------------------------------------------ Messenger : dialog { key = "Title"; label = ""; initial_focus = "List001"; : spacer { height = 0.01; } : column {//< : row { width = 28; fixed_width = true; : column { spacer; : column { : text { label = " To:"; alignment = left; } } } : popup_list { key = "List001"; width = 20; fixed_width = true; } } }//> : boxed_column { label = "Message:"; : edit_box { key = "Edit002"; edit_width = 50; fixed_width = true; } : spacer { height = 0.1; } } : row { : column { : button { key = "Send"; label = "Send"; alignment = right; width = 11; fixed_width = true; } } : column { : cancel_button { alignment = left; width = 11; } } } }//Messenger //------------------------------------------------------------------------------