[编程交流] 绘图：设置副本数

(defun C:AP3 (/ CURRENTTAB noc dcl_id)
[color="red"][color="red"](setq dcl_id (load_dialog "AP3.dcl"))
    (if (not (new_dialog "AP3" dcl_id))
 (exit)
    );if
(set_tile "noc" "1")
(mode_tile "noc" 2)
(action_tile "noc" "(setq noc (atof $value))")
(start_dialog)
(unload_dialog dcl_id)
[/color][/color]
(setq CURRENTTAB (getvar "ctab"))
(PlotReactorOFF)
(command "_.-layer" "_LW" "0.13" "CCC_LAYOUT_Dimensions" "")
 (if (findfile "T:/Drawing Tools/Templates/CCC2009.dwt")
   (progn
     (command "_.psetupin" (findfile "T:/Drawing Tools/Templates/CCC2009.dwt") "A3")
     (while (wcmatch (getvar "cmdnames") "*PSETUPIN*")
       (command "_yes")
     ) ;_ while
     T
   ) ;_ progn
 ) ;_ if
(command "_-purge" "a" "*" "N")
(setq CCC_Sheet "A3")
(foreach LAYOUT (layoutlist)
(setvar "ctab" LAYOUT)
;;;;;;;;;;;;;;;;;;;;;;;;;;;
(command "-plot" "n" "" "A3" "" "n" "y" "n")
(command "_zoom" "e")
(command "updatefield" "all" "")
(command "regenall")
(vlax-put-property (vla-get-Plot (vla-get-ActiveDocument
(vlax-get-acad-object))) "NumberOfCopies" noc)
(command "-plot" "n" "" "A3" "" "n" "y" "y")
;;;;;;;;;;;;;;;;;;;;;;;;;;
(setvar "ctab" CURRENTTAB)
(PlotReactorON)
(princ)
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun PlotReactorON nil
 (vl-load-com)
 ;; © Lee Mac 2010
 (  (lambda ( data foo / react )
      (if (setq react
            (vl-some
              (function
                (lambda ( reactor )
                  (if (eq data (vlr-data reactor)) reactor)
                )
              )
              (cdar
                (vlr-reactors :vlr-command-reactor)
              )
            )
          )
        (if (not (vlr-added-p react))
          (vlr-add react)
        )
        (setq react
          (vlr-command-reactor data
            (list
              (cons :vlr-commandwillstart foo)
            )
          )
        )
      )
      (if (vlr-added-p react)
        (princ "\n** Reactor Activated **")
        (princ "\n** Reactor Failed to Activate **")
      )
      react
    )
   "Plot-Reactor"
   'Plot-Callback
 )
 (princ)
)
(defun PlotReactorOFF nil
 (vl-load-com)
 ;; © Lee Mac 2010
 (  (lambda ( data foo / react )
      (if (setq react
            (vl-some
              (function
                (lambda ( reactor )
                  (if (eq data (vlr-data reactor)) reactor)
                )
              )
              (cdar
                (vlr-reactors :vlr-command-reactor)
              )
            )
          )
        (if (vlr-added-p react)
          (vlr-remove react)
        )
      )
      (if (or (not react) (not (vlr-added-p react)))
        (princ "\n** Reactor Deactivated **")
        (princ "\n** Reactor Failed to Deactivate **")
      )
      react
    )
   "Plot-Reactor"
   'Plot-Callback
 )
 
 (princ)
)
(defun Plot-Callback ( reactor arguments )
 (vl-load-com)
 (if (eq (strcase (car arguments)) "PLOT")
   (LM:Popup "Warning" 64 "Gotcha!!!   Please use the NNRDO Plot tools when plotting standard layouts!!")
 )
 (princ)
)
(defun LM:Popup ( title flags msg / WSHShell result )
 ;; © Lee Mac 2010
 (setq WSHShell (vlax-create-object "WScript.Shell"))
 (setq result   (vlax-invoke WSHShell 'Popup msg 0 title flags))
 (vlax-release-object WSHShell)
 
 result
)