(defun c:tt ()
(if (= (menucmd "M=$(edtime,$(getvar,date),DDDD)") "Friday")(progn
(command "BROWSER" "http://www.theswamp.org")
(vla-put-visible (vlax-get-or-create-object "AutoCAD.application") 1)) ;Possible error
(entmakex (list (cons 0 "TEXT") (cons 10 (getpoint))(cons 1 "Friday")(cons 40 50)))
)
(princ)
)
After opening the page and return cad drawing failure. Do not continuous,