References to .dws files associated with a drawing are stored in a dictionary named
"AcStStandard".
;; Function: delete a dictionary from the dictionary collection.
;; Argument: string - dictionary name.
;; Returns: T if successful, otherwise nil.
(defun DeleteDictionary (dictname / dicts dictobj)
(setq dicts
(vla-get-dictionaries
(vla-get-activedocument
(vlax-get-acad-object))))
(if
(not
(vl-catch-all-error-p
(setq dictobj
(vl-catch-all-apply
'vla-item (list dicts dictname)))))
(not (vla-delete dictobj))
)
) ;end
Example:
Command: (DeleteDictionary "AcStStandard")
T
How that might be used in batch mode is your choice. ObjectDBX is one option.
Joe Burke
wrote in message news:5238591@discussion.autodesk.com...
I use templates that are associated to a dws file, so the dws files are associated to
all final dwgs, is there a way to batch remove them before sending files to the
client, i tried batch standard checker but did not find an option for that.
I posted that issue in the 2005 group but to no avail.
Hope that some one have a code for doing that, or even better a direct way,
Thanks.