[编程交流] Lisp询问copi的编号

;created by Lee Mac
(defun c:plot18X24 ( / acobj acdoc views view_list listbox)
(vl-load-com)
 (setq acobj (vlax-get-acad-object)
       acdoc (vla-get-activedocument acobj)
       views (vla-get-views acdoc)
       )
 (vlax-for view views
   (setq view_list (cons (vla-get-name view) view_list))
   )
 (foreach view (LM:listbox "Select views to plot" view_list 1)
   (command
     "_plot"
     "_y"
     "Model"
     "HP.pc3"
     "18X24 (landscape)"
     "Inches"
     "Landscape"
     "No"
     "View"
     view
     "Fit"
     "Center"
     "Yes"
     "baw.ctb"
     "Yes"
     "A"
     "No"
     "No"
     "Yes"
     )
   )
 (princ)
 )

(defun c:plot18x24 (/ i n vws)
 (vl-load-com)
 (vlax-for view (vla-get-views (vla-get-activedocument (vlax-get-acad-object)))
   (setq vws (cons (vla-get-name view) vws))
 )
 (setq n 0)
 (if (setq vws (lm:listbox "Select views to plot" vws 1))
   (repeat (setq i (cond ((getint "\nNumber of copies [1]:"))
                  (1)
            )
    )
     (print (strcat "Printing copy " (itoa (setq n (1+ n))) " of " (itoa i)))
     (foreach view vws
(command "_plot" "_y" "Model" "HP.pc3" "18X24 (landscape)" "Inches" "Landscape"        "No" "View"
         view "Fit" "Center" "Yes" "baw.ctb" "Yes" "A" "No" "No" "Yes"
        )
     )
   )
 )
 (princ)
)

;;Created by Lee Mac
;; bit - [int] 1=allow multiple; 2=return indexes
;; Returns: [lst] List of selected items/indexes, else nil
(defun LM:listbox ( msg lst bit / dch des tmp rtn )
   (cond
       (   (not
               (and
                   (setq tmp (vl-filename-mktemp nil nil ".dcl"))
                   (setq des (open tmp "w"))
                   (write-line
                       (strcat "listbox:dialog{label="" msg "";spacer;:list_box{key="list";multiple_select="
                           (if (= 1 (logand 1 bit)) "true" "false") ";width=50;height=15;}spacer;ok_cancel;}"
                       )
                       des
                   )
                   (not (close des))
                   (< 0 (setq dch (load_dialog tmp)))
                   (new_dialog "listbox" dch)
               )
           )
           (prompt "\nError Loading List Box Dialog.")
       )
       (   t     
           (start_list "list")
           (foreach itm lst (add_list itm))
           (end_list)
           (setq rtn (set_tile "list" "0"))
           (action_tile "list" "(setq rtn $value)")
           (setq rtn
               (if (= 1 (start_dialog))
                   (if (= 2 (logand 2 bit))
                       (read (strcat "(" rtn ")"))
                       (mapcar '(lambda ( x ) (nth x lst)) (read (strcat "(" rtn ")")))
                   )
               )
           )
       )
   )
   (if (< 0 dch)
       (unload_dialog dch)
   )
   (if (and tmp (setq tmp (findfile tmp)))
       (vl-file-delete tmp)
   )
   rtn

(cond ((getint "\nNumber of copies [1]:"))
          (1)
    )

(strcat view "_" (itoa (setq n (1- n))))

(print (strcat "Printing copy " (itoa (setq n (1+ n))) " of " (itoa i)))

(vlax-put (vla-get-Plot (vla-get-ActiveDocument (vlax-get-acad-object))) 'NumberOfCopies n)