[编程交流] 带提示帮助的Lisp

(defun c:test ()
 (initget 1 "11x17 PDF 22x34")
 (setq psize (getkword (strcat "\nSelect Plot [11x17/PDF/22x34]:"))))

  ;; List Select Dialog (Temp DCL list box selection, based on provided list)
 ;; title - list box title
 ;; label - label for list box
 ;; height - height of box
 ;; width - width of box
 ;; multi - selection method ["true": multiple, "false": single]
 ;; lst - list of strings to place in list box
 ;; Alan J. Thompson, 09.23.08 / 05.17.10 (rewrite)
(defun AT:ListSelect (title label height width multi lst / fn fo d item f)
 (setq fo (open (setq fn (vl-filename-mktemp "" "" ".dcl")) "w"))
 (foreach x (list (strcat "list_select : dialog { label = "" title ""; spacer;")
                  (strcat ": list_box { label = "" label "";" "key = "lst";")
                  (strcat "allow_accept = true; height = " (vl-princ-to-string height) ";")
                  (strcat "width = " (vl-princ-to-string width) ";")
                  (strcat "multiple_select = " multi "; } spacer; ok_cancel; }")
            )
   (write-line x fo)
 )
 (close fo)
 (new_dialog "list_select" (setq d (load_dialog fn)))
 (start_list "lst")
 (mapcar (function add_list) lst)
 (end_list)
 (setq item (set_tile "lst" "0"))
 (action_tile "lst" "(setq item $value)")
 (setq f (start_dialog))
 (unload_dialog d)
 (vl-file-delete fn)
 (if (= f 1)
   ((lambda (s / i s l)
      (while (setq i (vl-string-search " " s))
        (setq l (cons (nth (atoi (substr s 1 i)) lst) l))
        (setq s (substr s (+ 2 i)))
      )
      (reverse (cons (nth (atoi s) lst) l))
    )
     item
   )
 )
)

(defun PDF(/)
(if (setq filename (getfiled "Specify Save Location" "" "pdf" 1))
(progn
(command "tilemode" "0")
(command "-plot" "y" "" "Dwg To PDF.pc3" "ANSI expand D (34.00 x 22.00 Inches)" "I"
"L" "N" "E" "1:1" "C" "Y" "CMS_d_black.ctb" "Y" "N" "N" "N" filename "N" "Y")
)
 )
(princ)
 )

(if psize
(cond
((= psize "11x17)
(defun PDF ()
blah 
blah 
blah

(cond
 ((= psize "11x17") (plot11x17))
 ((= psize "PDF")(plotPdF))
 ((= psize "22x34")(plot22x34))
 (t (princ "\nPlot cancelled"))
)

(defun c:test ()
 (initget 1 "11x17 PDF 22x34"); [1 = no enter allowed]
 (setq psize (getkword (strcat "\nSelect Plot [11x17/PDF/22x34]:"))))
(cond
 ((= psize "11x17") (11x17))
 ((= psize "PDF")(PDF))
 ((= psize "22x34")(22x34))
 (t (princ "\nPlot cancelled"))
 )

(defun PDF(/)
(if (setq filename (getfiled "Specify Save Location" "" "pdf" 1))
(progn
(command "tilemode" "0")
(command "-plot" "y" "" "Dwg To PDF.pc3" "ANSI expand D (34.00 x 22.00 Inches)" "I"
"L" "N" "E" "1:1" "C" "Y" "CMS_d_black.ctb" "Y" "N" "N" "N" filename "N" "Y")
)
 )
(princ)
 )

(defun c:test ( / psize )
   (initget "11x17 PDF 22x34")
   (setq psize (getkword "\nSelect Plot [11x17/PDF/22x34] <PDF>: "))
   (cond
       (   (= psize "11x17") (11x17))
       (   (= psize "22x34") (22x34))
       (   (pdf)   )
   )
   (princ)
)
(defun pdf ( / fnm )
   (if (setq fnm (getfiled "Specify Save Location" "" "pdf" 1))
       (progn
           (setvar 'tilemode 0)
           (command "-plot" "y" "" "Dwg To PDF.pc3" "ANSI expand D (34.00 x 22.00 Inches)" "I" "L" "N" "E" "1:1" "C" "Y" "CMS_d_black.ctb" "Y" "N" "N" "N" fnm "N" "Y")
       )
   )
)