Question on Lisp, trying to create a Warning Box.

[Dr._House]

My firm has asked that I create a warning when AutoCAD 2010 is opening saying something like "You are about to open AutoCAD 2010, are you sure you want to do this?" then have a Yes and No option with the Yes Option allowing it to open and the No option closing the program. Can anyone tell me IF this can be done, and if it can be done can you point me in the right direction? I have some basic lisp knowledge and can make an alert window pop up but not with the right buttons or actions. Help

[fletch97]

You can create a lisp with DCL code to start up the moment CAD finishes loading, and then just have it close CAD if they say no and stay open if they say yes (lisp to just close dialog and do nothing).

Not sure if you can do it prior to opening with lisp. You may need to look into a script and/or batch routine to do that. Your IT guy should be able to help with this method.

[alanjt]

This 'should' work.
Put this code in your startup file, followed by (OpenCheck2010). You will need to replace the line in red with your "acadver". I'm in 2009, so I don't know the one for 2010.

(defun OpenCheck2010 ( / MyYesNo)
;----------------------------------------------------------------------------------------------------------
; Courtesy of http://web2.airmail.net/terrycad/Tutorials/MyDialogs.htm
; MyYesNo - Question dialog with one question line
; Arguments: 2
;   Title$ = Dialog Title
;   Question$ = Question line
; Syntax: (MyYesNo " My Yes No" "Do you like creating programs in AutoLISP?")
;----------------------------------------------------------------------------------------------------------
(defun MyYesNo (Title$ Question$ / Answer$ Dcl_Id% Return#)
  ; Load Dialog
  (setq Dcl_Id% (load_dialog "MyDialogs.dcl"))
  (new_dialog "MyYesNo" Dcl_Id%)
  ; Set Dialog Initial Settings
  (set_tile "Title" Title$)
  (set_tile "Text1" Question$)
  ; Dialog Actions
  (action_tile "Yes" "(done_dialog 1)")
  (action_tile "No" "(done_dialog 0)")
  (setq Return# (start_dialog))
  ; Unload Dialog
  (unload_dialog Dcl_Id%)
  (if (= Return# 1)
    (setq Answer$ "Yes")
    (setq Answer$ "No")
  );if
  Answer$
);defun MyYesNo
  
  (and (findfile "MyDialogs.dcl")
       (eq "your (getvar "acadver") here" (getvar "acadver"))
       (eq "No" (MyYesNo "AutoCAD v2010 Check" "You are about to open AutoCAD 2010, are you sure you want to do this?"))
       (if (zerop (getvar "dbmod"))
         (command "_.close")
         (command "_.close" "_yes")
         )
       )
  (princ)
  )

This .dcl file must be in a supportpath also.


This will, if matches version, prompt user for verification. If "Yes", drawing stays open, if "No" drawing is closed. I make no guarantees, very limited testing.

[Dr._House]

So by putting that in my "Startup" do you mean my ACADDOC.lsp file or whichever it was?

[Dr._House]

Is this my ACADVER?

ACADVER = "18.0s (LMS Tech)

I don't mean to sound do ignorant.. but when it comes to programming I kinda am.. LOL

[alanjt]

No problem.
To your questions: yes and yes.

[Dr._House]

(eq "18.0s" (getvar "acadver"))

Is that line right then?

[alanjt]

(eq "18.0s" (getvar "acadver"))

Is that line right then?

Replace the entire line with:

(eq 18.0 (atof (getvar "acadver")))

[Dr._House]

Okay cool! Here goes a test!!

[alanjt]

Okay cool! Here goes a test!!

<fingers crossed>