Curtis Kostecki
Usenet Archive
- Joined
- Jul 14, 2003
- Messages
- 6
- Reaction score
- 0
I am looking to perform a series of cleanup utilities during a "save all" drawings to Autocad 2004. I started with the express tools saveall.lsp calling a sub function (of utilities lisp routines) -> Shown as a line from 0,0 to 1,1 in the attached code However, it is only performed in the current open drawing? While all other saves are performed as "transparent" saves not actually accessing the actual drawing. I end up with a line in one drawing written over itself the same number of times as the quantity of open drawings.
Can anyone suggest how this saveall lisp could be adjusted to invoke a subroutine on all open drawings before opening them? It could even close them one by one if necessary..
Can anyone help or does anyone have a similar routine?
Thanks in advance
Curtis
;*********************Save all lisp from AutoCad ****************** ;************************ Utility codes added ******************** (defun C:SALL (/ dwg saveDwg) ;; save drawing (defun saveDwg (dwg / titled writeable name) (setq titled (= 1 (vlax-variant-value (vla-getvariable dwg "DWGTITLED"))) ;writable is whether or not the drawing is read only writeable (= 1 (vlax-variant-value (vla-getvariable dwg "WRITESTAT"))) ; Name is the drawing path name name (if titled (vlax-get dwg "fullname") (vlax-variant-value (vla-getvariable dwg "DWGNAME")) ) ) (cond ;; REFEDIT active Subroutine ((/= "" (vlax-variant-value (vla-getvariable dwg "REFEDITNAME"))) (acet-ui-message (acet-str-format "%1\nCannot Save while REFEDIT active." name) "AutoCAD - SAVEALL"
Acet:ICONSTOP )
)
;; simple save if titled and writeable
((and titled writeable)
(Prompt "Saved1/Name =")(Princ Name)(prompt " ")
(command "line" "0,0,0" "1,1,0" "")
(vla-save dwg)
)
;; otherwise ask for name first if drawing is read only.. (T (if (setq name (ACET-FILE-WRITEDIALOG "Save Drawing As" name "dwg"
1))
(progn (vla-saveas dwg (vlax-make-variant name))
(command "line" "0,0,0" "1,1,0" ""))
)
)
)
)
) ;; quietly
(acet-error-init '(("CMDECHO" 0)))
;; for each drawing
(vlax-for dwg (vla-get-documents (vlax-get-acad-object)) ;; save if modified (if (/= 0 (vlax-variant-value (vla-getvariable dwg "DBMOD"))) (progn (saveDwg dwg)(command "line" "0,0,0" "1,1,0" "")) ) ) (acet-error-restore) (princ)
)
Can anyone suggest how this saveall lisp could be adjusted to invoke a subroutine on all open drawings before opening them? It could even close them one by one if necessary..
Can anyone help or does anyone have a similar routine?
Thanks in advance
Curtis
;*********************Save all lisp from AutoCad ****************** ;************************ Utility codes added ******************** (defun C:SALL (/ dwg saveDwg) ;; save drawing (defun saveDwg (dwg / titled writeable name) (setq titled (= 1 (vlax-variant-value (vla-getvariable dwg "DWGTITLED"))) ;writable is whether or not the drawing is read only writeable (= 1 (vlax-variant-value (vla-getvariable dwg "WRITESTAT"))) ; Name is the drawing path name name (if titled (vlax-get dwg "fullname") (vlax-variant-value (vla-getvariable dwg "DWGNAME")) ) ) (cond ;; REFEDIT active Subroutine ((/= "" (vlax-variant-value (vla-getvariable dwg "REFEDITNAME"))) (acet-ui-message (acet-str-format "%1\nCannot Save while REFEDIT active." name) "AutoCAD - SAVEALL"
Acet:ICONSTOP )
)
;; simple save if titled and writeable
((and titled writeable)
(Prompt "Saved1/Name =")(Princ Name)(prompt " ")
(command "line" "0,0,0" "1,1,0" "")
(vla-save dwg)
)
;; otherwise ask for name first if drawing is read only.. (T (if (setq name (ACET-FILE-WRITEDIALOG "Save Drawing As" name "dwg"
1))
(progn (vla-saveas dwg (vlax-make-variant name))
(command "line" "0,0,0" "1,1,0" ""))
)
)
)
)
) ;; quietly
(acet-error-init '(("CMDECHO" 0)))
;; for each drawing
(vlax-for dwg (vla-get-documents (vlax-get-acad-object)) ;; save if modified (if (/= 0 (vlax-variant-value (vla-getvariable dwg "DBMOD"))) (progn (saveDwg dwg)(command "line" "0,0,0" "1,1,0" "")) ) ) (acet-error-restore) (princ)
)
