This has got me stumped...maybe it is something in here:
I have a lot to go through.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;; Builtin Redefined commands ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun ARCH:COPY ()
(cond ((and (>= (distof (substr (getvar "acadver") 1 4)) 15.0)
(< (distof (substr (getvar "acadver") 1 4)) 16.0))
(command ".undefine" "copy")
(defun c:copy () (command ".copy" (ssget) "" "m")))
((>= (distof (substr (getvar "acadver") 1 4)) 16.0)
(command ".undefine" "copy")
(defun c:copy () (command ".copy")))))
;;;
(defun ARCH:PURGE-BLKS (/ SSX)
(setq ssx (ssget "x" '((2 . "LAY-SHT,LAY-DTL,LAY-PLN"))))
(if ssx
(progn
(command ".erase" ssx "")
(command "-purge" "B" "*_ARCHTICK*,*LAY-SHT*,*LAY-DTL*,*LAY-PLN*" "n")
)
)
;;(ARCH:DeleteNestedBlock "LAY-SHT")
;;(ARCH:DeleteNestedBlock "LAY-DTL")
;;(ARCH:DeleteNestedBlock "LAY-PLN")
;;(ARCH:DeleteNestedBlock "_ARCHTICK")
(ARCH:DeleteNestedBlock "ADCADD_ZZ")
(princ)
)
;;;
(defun SAVEASIT (/ dnam)
;;(command ".saveas" "" "~")
(setq dnam (getstring "\n* Enter New Drawing File Name :"))
(command ".saveas" "" (strcat ARCH#DPRE dnam)))
(defun SAVEAS-IT ()
(cond ((= (getvar "DWGTITLED") 0)
(cond ((or (= ARCH#DPRE nil) (= ARCH#DPRE ""))
(progn (command ".saveas" "" "~")))
((or (/= ARCH#DPRE nil) (/= ARCH#DPRE ""))
(progn (setq fnam (getstring "\n* Enter New Drawing File Name :"))
(command ".saveas" "" (strcat ARCH#DPRE fnam))))))
((= (getvar "DWGTITLED") 1) (command ".saveas" "" "~")))
(princ))
;;;
(defun C:QSAVE ()
(cond
((and (= (getvar "cvport") 1) (= (getvar "tilemode") 0)) (QSAVEIT))
((and (= (getvar "cvport") 2) (= (getvar "tilemode") 1)) (QSAVEIT))
((and (= (getvar "cvport") 2) (= (getvar "tilemode") 0))
(ARCH:ALERT-I
"MsgBox \"
Please Remember...
--------------------------------------------------------------------------------------------
Do not Save with Vport Active\"")))
(princ))
(defun QSAVEIT ()
(gc)
(ARCH:SETXDATAINFO) ;copyright xdata attached
(C:XREFPROP) ;records drawing properties and xref list
(if (not PLOTIDX)
(princ (load (strcat ARCH#CUSF "FILE\\" "ARCH_PLOTID.lsp")
"\n*** ------- ARCH_PLOTID Not Loaded. ------ ***")))
(PLOTIDX)
(C:PROJECT)
(ARCH:PURGE-BLKS)
(command ".QSAVE")
(ARCH:LOAD (strcat ARCH#SUPF "FILE/" "ARCH_AutoSaveFile.lsp"))
(if (/= ARCH#PROJ nil)(Arch:AutoSaveFile))
(princ "\n* \"Redefined\" Qsave of Drawing completed.... *")
;; redefine qsave to add plot id, records drawing properties, xref list and copyright xdata
(princ))
;;;
(defun C:XS () (SUPER-QSAVE-IT) (gc) (princ))
(defun SUPER-QSAVE-IT (/ ss SSET ssx)
(cond ((>= (atoi (substr (getvar "acadver") 1 2)) 15) (command "dimregen")))
;;to fix bug in 2002 w/ assoc dims
(cond ((>= (atoi (substr (getvar "acadver") 1 2)) 15)
(progn (ARCH:PURGE_GROUPS)
(ARCH:PURGEALL)
(ARCH:FIX_SEQEND)
(ARCH:FIX_POLY))))
(setq ss (ssget "x" '((0 . "*text") (1 . ""))))
(if ss
(command ".erase" ss ""))
(princ "\n* Deleting all blank Text in drawing........ *")
(setq SSET (ssget "x" (list (cons 0 "LINE"))))
(if (/= SSET nil)
(ARCH:ZEROLEN))
;;(C:XLAY) ;;xref insertion layer fix
;;(C:XNAM) ;;xref naming fix
(C:MTLS)
;;fix mtext line spacing
(C:00)
(ARCH:PURGE-BLKS)
(C:PG2)
(C:ZE)
;;;
(ARCH:SETXDATAINFO) ;copyright xdata attached
(C:XREFPROP) ;records drawing properties and xref list
(if (not PLOTIDX)
(princ (load (strcat ARCH#CUSF "FILE\\" "ARCH_PLOTID.lsp")
"\n*** ------- ARCH_PLOTID Not Loaded. ------ ***")))
(PLOTIDX)
(C:PROJECT)
(if (not C:RemoveAppids)
(princ (load (strcat ARCH#UTIF "ARCH_RemoveAppids.lsp")
"\n*** ------ RemoveAppids Not Loaded. ------ ***")))
(command "regenall")
(ARCH:LOAD (strcat ARCH#SUPF "FILE/" "ARCH_AutoSaveFile.lsp"))
(if (/= ARCH#PROJ nil)(Arch:AutoSaveFile))
(command ".QSAVE")
(princ "\n* \"Redefined\" Qsave of Drawing completed.... *")
;; redefine qsave to add plot id, records drawing properties, xref list and copyright xdata
(princ))
Salvaged database from drawing.
; error: Automation Error. No document
AcDbLine(783B) Invalid linetype eNullObjectId changed to ByLayer
AcDbLine(783C) Invalid linetype eNullObjectId changed to ByLayer
AcDbPoint(7C99) Invalid linetype eNullObjectId changed to ByLayer
AcDbPolyline(7D0A) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbPolyline(7D0B) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FC4) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FC5) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FC6) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FC7) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FC8) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FC9) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FCA) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FCB) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FCC) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FCD) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FCE) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FCF) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FD0) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FD1) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbArc(7FD5) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbArc(7FD6) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbArc(7FD7) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbArc(7FD8) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FD9) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FDA) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FF0) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
AcDbLine(7FF1) Invalid layer eNullObjectId $AUDIT-BAD-LAYER
Opening an AutoCAD 2004 format file.
115 Blocks audited
Pass 1 955 objects audited
Pass 2 955 objects audited
Pass 3 5700 objects audited
Total errors found 27 fixed 27
Regenerating model.
Gary
