CAD tip # 14006:

Question CAD
% platform category

Universal MsgBox in AutoLISP.

Using hybrid scripting, you can prepare a universal MsgBox function for AutoLISP, with optional buttons, icons and auto-dismiss feature (after N seconds). This function will work in both full AutoCAD and in AutoCAD LT (2024+).

;Universal MessageBox - see www.cadforum.cz
;(msgbox  "Message"  "Title"  Mode[0..5 + icon 16/23/48/64]  AutoDismiss[secs or 0])

(defun MsgBox (message title options time / WshShell)
  (if (not title)(setq title "AutoCAD"))
  (if (not options)(setq options 0)) ; plain msgbox, OK
  (if (not time)(setq time 0)) ; no auto-dismiss
  (if (setq WshShell (vlax-create-object "WScript.Shell")) ; full ACAD:
    (vlax-invoke WshShell 'Run
     (strcat "mshta.exe vbscript:close(CreateObject(\"WScript.Shell\").Popup(\""
             message "\"," (itoa time) ",\"" title "\"," (itoa options) "))")
    ) ; else LT:
    (startapp (strcat "mshta.exe vbscript:close(CreateObject(\"WScript.Shell\").Popup(\""
             message "\"," (itoa time) ",\"" title "\"," (itoa options) "))"))
  )
  (if WshShell (vlax-release-object WshShell))
)

Then use e.g.:

(MsgBox "Hello world! Are you ready?" nil 33 4)

ACADACLT2024

* CAD

26.1.2024 24605×

Comments Tell a friend

Prices - CAD eShop:

AutoCAD

AutoCAD LT

applies to: AutoCAD · AutoCAD LT 2024 ·

See also:
Tip 14063:	How to get week day and week number from a given date.
Tip 14027:	3D heart from the heart.
Tip 13960:	Fermat's spiral in AutoCAD.
Tip 13847:	Pringles in AutoCAD - a hyperbolic paraboloid.
Tip 13822:	Fast layer visibility toggle ON/OFF.

Selected tip: How to install a new font in AutoCAD?

Back All CAD Tips

Workaround for the missing (vlax-create-object) in AutoCAD LT (voice, clipboard, etc.) « | » 4 methods of 3D orbit in Inventor, with specified pivot.

Have we helped you? If you want to support the CAD Forum web service, consider buying one of our CAD applications, or our custom software development offerings, or donating via PayPal (see above). You may also add a link to your web - like this "fan" link:

CAD: OS: Categ:
Text:	FAQ glossary

Featuring:
Save your floating licenses (NLS) consumed by inactive users - free unused licenses with
LogOff 2006 More info

Please use these tips at your own risk.
Arkance Systems is not responsible for possible problems that may occur as a result of using any of these tips.

	CAD Forum - tips, tricks, utilities, help, how-tos and FAQ for AutoCAD, LT, Inventor, Revit, Map, Civil 3D, Fusion 360, Forma, 3ds Max and other Autodesk software (support by Arkance Systems) - see About	Arkance Systems CZ s.r.o. (CAD Studio) - Autodesk Platinum Partner & Training Center & Consulting Services Partner	CONTACT: webmaster.cz@arkance-systems.com tel. +420 910 970 111
	Copyright © 2024 \| Advertise with us \| Online privacy

CZ \| EN \| DE
Login or
registration
	Visitors: 8823