[编程交流] 添加“FOREACH”选项

(defun c:PS1 ()
(foreach tab (cons "Model" (layoutlist)) ;;For Model Space too use this!!
;(foreach tab (layoutlist)                    ;;For Paper Space only
    (setvar 'CTAB tab)
(Command "-plot" "y" "" "\\\\sc1fs1\\c01886"  "11x17" "i" "L" "n" "e" "f" "center" "y" "monochrome.ctb" "y" "n" "n" "n" "n" "y" "n")
(COMMAND "Zoom" "e") )
(command "qsave")
(princ))

(defun c:ps2()
 (foreach tab (cons "Model" (layoutlist))
   (setvar "CTAB" tab)
   (command "_.zoom" "_e")
   (initget 1 "Yes No")
   (if(= "Yes"(getkword "\nDo you want to plot this!? [Yes/No]: "))
     (command "-plot" "y" "" "\\\\sc1fs1\\c01886"  "11x17" "i" "L" "n" "e" "f" "center" "y" "monochrome.ctb" "y" "n" "n" "n" "n" "y" "n")
     ); end if
   ); end foreach
 (command "_.qsave")
 (princ "\n It seems all... ")
 (princ)
 ); end of c:ps2

(defun c:PS1 ()
 (initget "A M L")
 (setq ans (getkword "\nOperate on [Model/Layouts/All] "))
 (cond
   ((eq ans "A")(setq myset (cons "Model" (layoutlist))))
   ((eq ans "L")(setq myset (layoutlist)))
   ((eq ans "M")(setq myset (list "Model")))
 )    
 (foreach tab myset
   (setvar 'CTAB tab)
   (Command "-plot" "y" "" "\\\\sc1fs1\\c01886"  "11x17" "i" "L" "n" "e" "f" "center" "y" "monochrome.ctb" "y" "n" "n" "n" "n" "y" "n")
   (COMMAND "Zoom" "e")  
 )
 (command "qsave")
 (princ)
)