[编程交流] 重复上一个命令

 
(repeat [color=red]#[/color] [color=red][color=black][[/color]command[/color][color=black]])[/color]

(defun foo nil (entmakex (list '(0 . "LINE") '(10 0. 0. 0.) '(11 1. 1. 1.))))
(repeat 5 foo)

 
(defun c:scrubdwg2 ()
;;; Delete all regapps, run an audit on the drawing file, and purge all unused items
    (setvar 'cmdecho 0)(repeat 3 (command "-purge" "r" "" "n")
    (command "audit" "y")
    (command "-purge" "a" "*" "n"))
;;; Zoom extents
    (command "zoom" "e")(setvar 'cmdecho 1)(princ))

(defun c:scrubdwg2 ()
 (setvar [color="Red"]"[/color]cmdecho[color="red"]"[/color] 0)
 [color="red"](command "._-layer" "_s" "0" "")[/color]
 (repeat 3
   (command "[color="red"]._[/color]-purge" "[color="red"]_[/color]r" "" "[color="red"]_[/color]n")
   (command "[color="red"]._[/color]audit" "[color="red"]_[/color]y")
   (command "[color="red"]._[/color]-purge" "[color="red"]_[/color]a" "*" "[color="red"]_[/color]n")
 )
 (command "[color="Red"]._[/color]zoom" "[color="red"]_[/color]e")
 (setvar [color="red"]"[/color]cmdecho[color="red"]"[/color] 1)
 (princ))

(setvar "clayer" "0")

(setq lay(getvar "clayer"))
(setvar "clayer" "0")
; your codes are running here
(setvar "clayer" lay)

 
(defun c:scrubdwg (/ *error* uFlag)
    (vl-load-com)
    (defun *error* (msg)
    (and uFlag (vla-EndUndoMark *doc))
    (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
    (princ (strcat "\n** Error: " msg " **")))
    (princ))
    (setq *doc (cond (*doc)((vla-get-ActiveDocument
    (vlax-get-acad-object)))))
;;; Set UCS to world
    (setvar "cmdecho" 0)(command "._ucsfollow" "1")
    (command "._ucs" "_w")(command "._ucsfollow" "0")
;;; Detach all xrefs
    (command "._-xref" "_D" "*")
;;; Delete all layout tabs
    (vlax-for lay  (vla-get-layouts *doc)
    (if (not (eq "MODEL" (strcase (vla-get-Name lay))))
    (vla-delete lay)))
;;; Changes all layers to thaw, on, unlock, and .25mm lineweight. Set current layer to 0.
    (command "._-layer" "_t" "*" "_on" "*" "_u" "*" "_s" "0" "_lw" "0.25" "*" "")
;;; Delete all layer filters
    (vl-catch-all-apply
    '(lambda ()
    (vla-remove
    (vla-getextensiondictionary
    (vla-get-layers
    (vla-get-activedocument (vlax-get-acad-object))
     ) ;_ end of vla-Get-Layers
     ) ;_ end of vla-GetExtensionDictionary
    "AcLyDictionary"
     ) ;_ end of vla-Remove
     ) ;_ end of lambda
     ) ;_ end of vl-Catch-All-Apply
;;; Delete all layer states
    (if (setq states (layerstate-getnames t t))
    (mapcar (function layerstate-delete) states))
;;; Delete all named views
    (command "._-view" "_s" "junk")(command "._-view" "_d" "*")
;;; Set insertion basepoint to 0,0,0
    (command "._insbase" "0,0,0")
;;; Set overall, modelspace, and paperspace linetype scales to 1
    (command "._ltscale" 1)(command "._msltscale" 1)(command "._psltscale" 1)
;;; Set annotation scale to 1/4" = 1'-0"
    (command "._cannoscale" "1/4\042 = 1'-0\042")
;;; Delete unused scales
    (command "._-scalelistedit" "_d" "*" "_e")
;;; Delete all dimensions
    (if (setq ss (ssget "_x" (list (cons 0 "*dimension"))))
        (command "_erase" ss "")
    )
;;; Set all object colors to bylayer
    (command "._setbylayermode" "1")
    (command "._setbylayer" "_all" "" "_y" "_y")
;;; Erase x data
    (command "._erase" (ssget"x") "r")(setvar 'cmdecho 1)(princ))
;---------------------------------------------------------------------------------------------------------
(defun c:scrubdwg2 ()
;;; Delete all regapps, run an audit on the drawing file, and purge all unused items
    (setvar "cmdecho" 0)
    (command "._-layer" "_s" "0" "")
    (repeat 3 
       (command "._-purge" "_r" "" "_n")
       (command "._audit" "_y")
       (command "._-purge" "_a" "*" "_n")
    )
;;; Zoom extents
    (command "._zoom" "_e")
    (setvar "cmdecho" 1)
    (princ))

(defun c:BPA (/ *error* oldBnType)
 (vl-load-com)
 (defun *error*(msg)
   (setvar "modemacro" ".")
   (setvar "bindtype" oldBnType)
   (setvar "cmdecho" 1)
   (princ "\nDetach/Audit/Bind/PurgeAll terminated  ")
   (princ)
   ); end of *error*
 
 (setq oldBnType(getvar "bindtype"))
 (setvar "modemacro" "Detach/Audit/Bind/PurgeAll processing......please wait......")
 (prompt "\n---Detach unloaded Xref, Audit, Bind, PurgeAll---")
 (prompt "\nDetaching...")
 (vlax-for block (vla-get-blocks
   (vla-get-activedocument
   (vlax-get-acad-object)))
     (if (and (= :vlax-true (vla-get-isxref block))
     (= 0 (vla-get-count block))
       )
     (vla-detach block)
     )
 )
 (setvar "cmdecho" 0)
 (prompt "...done")
 (prompt "\nAuditing...")(terpri)
 (command "_audit" "y")
 (prompt "\nBinding all Xrefs...")
 (setvar "bindtype" 1)
 (command "-xref" "b" "*")
 (prompt "...done")(terpri)
 (prompt "\nPurging #1")(terpri)
 (command "-purge" "a" "*" "N")
 (prompt "\nPurging #2")(terpri)
 (command "-purge" "a" "*" "N")
 (prompt "\nPurging #3")(terpri)
 (command "-purge" "a" "*" "N")
 (prompt "\n---Detach, Audit, Bind, PurgeAll completed!---")
 (setvar "modemacro" ".")
 (setvar "cmdecho" 1)
 (princ)
); end of c:BPA
(princ "\nBind, Purge & Audit Lisp loaded! Type BPA to start program.")