[编程交流] DCL功能取代警报

(defun Alertme (strings / *error* d file str dc go lst go)
 (defun *error* (x)
   (if (and d (setq d (findfile d)))
     (vl-file-delete d)
   )
   (princ "\n*Cancel*")
 )
 ;;                                                            ;;
 ;;------------------------------------------------------------;;
 ;;  Author: Tharwat Al Shoufi, Copyright © 2013        ;;
 ;;------------------------------------------------------------;;
 ;;                                                            ;;
 (if (and (setq d (vl-filename-mktemp nil nil ".dcl")) (setq file (open d "w")))
   (progn
     (foreach str
              (list
                "siren : dialog { label = "AutoCAD Message"; width = 32;"
                (apply 'strcat
                       (mapcar '(lambda (x) (strcat ": text { label = "" x ""; alignment = centered; }")) strings)
                )
                ": button { label = "Okay"; key = "oki"; width = 13; fixed_width = true; height = 1.75; fixed_height = true; alignment = centered; is_default = true; }}"
              )
       (write-line str file)
     )
     (close file)
   )
   (alert "Can't load the temporary file <!>")
 )
 (if (or (not d) (not (< 0 (setq dc (load_dialog d)))) (not (new_dialog "siren" dc)))
   (progn (if (< 0 dc)
            (unload_dialog dc)
          )
          (if (and d (findfile d))
            (vl-file-delete d)
          )
   )
   (progn (start_dialog) (unload_dialog dc) (vl-file-delete d))
 )
 (princ)
)

(Alertme (list "" "Object Name: LINE" "Layer: Defpoints" "Space: Model space" "Handle = 1f2" "Length = 508.9013," ""))

(setq s
";;-------------------------=={ Popup }==----------------------;;
;;                                                            ;;
;;  Displays a pop-up message box prompting the user.         ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2012 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  title - Text to be displayed in the pop-up title bar      ;;
;;  msg   - Text content of the pop-up message box            ;;
;;  flags - Integer indicating icon & button appearance       ;;
;;          Reference: http://lee-mac.com/popup.html          ;;
;;------------------------------------------------------------;;
;;  Returns:  Integer indicating the button pressed to exit   ;;
;;------------------------------------------------------------;;
(defun LM:Popup ( title msg flags / wsh res )
   (if (setq wsh (vlax-create-object "wscript.shell"))
       (progn
           (setq res (vl-catch-all-apply 'vlax-invoke-method (list wsh 'popup msg 0 title flags)))
           (vlax-release-object wsh)
           (if (null (vl-catch-all-error-p res))
               res
           )
       )
   )
)"
)
(LM:Popup "test" s 1)

(defun pop ( l ); 
(repeat 300 (princ "\n")); clear the text screen
(textscr)
 (foreach x l
   (terpri)
   (princ x))
 (repeat 10 (princ "\n"))
(princ))