Topic: How to detect and fix damaged dictionaries?

[HasanCAD]

Hi All,
This file size is up-normal even when is empty.
Suppose to be a damaged dictionary.

So
How to detect and fix damaged dictionaries?

[Marc'Antonio Alessi]

With:
(dictremove (namedobjdict) "AEC_DISPLAY_PROPS_DEFAULTS")
(vl-Catch-All-Apply '(lambda () (vla-Remove  (vla-GetExtensionDictionary (vla-Get-Layers (vla-get-ActiveDocument (vlax-get-Acad-Object)))) "ACAD_LAYERSTATES")))
Purge and you go on about 900Kb

But the best result is:

Code: [Select]

(defun C:ALE_Fix_Clean ( / FilNam)
  (setq FilNam (strcat (getvar "DWGPREFIX") "Clean_" (getvar "DWGNAME")))
  (if (findfile FilNam)
    (command "_.QSAVE" "_.WBLOCK" FilNam "_Y" "*")
    (command "_.QSAVE" "_.WBLOCK" FilNam "*")
  )
)
(C:ALE_Fix_Clean)

[VovKa]

http://www.theswamp.org/index.php?topic=22528.msg271392#msg271392

[HasanCAD]

What's a magic.
Simple and effective solution.

So, This solution shall Solve damaged dictionaries?


Thanks Marc

But the best result is:

Code: [Select]

(defun C:ALE_Fix_Clean ( / FilNam)
  (setq FilNam (strcat (getvar "DWGPREFIX") "Clean_" (getvar "DWGNAME")))
  (if (findfile FilNam)
    (command "_.QSAVE" "_.WBLOCK" FilNam "_Y" "*")
    (command "_.QSAVE" "_.WBLOCK" FilNam "*")
  )
)
(C:ALE_Fix_Clean)

[HasanCAD]

Is this tool working for CAD 2021

http://www.theswamp.org/index.php?topic=22528.msg271392#msg271392

[VovKa]

Is this tool working for CAD 2021

http://www.theswamp.org/index.php?topic=22528.msg271392#msg271392

i think so
you can get it in archive http://web.archive.org/web/20220121190118/http://www.maestrogroup.com.ua/support/ExplodeProxy.zip

[HasanCAD]

Thanks
The link has all versions.

i think so
you can get it in archive http://web.archive.org/web/20220121190118/http://www.maestrogroup.com.ua/support/ExplodeProxy.zip

[Marc'Antonio Alessi]

What's a magic.
Simple and effective solution.

So, This solution shall Solve damaged dictionaries?


Thanks Marc

But the best result is:

Code: [Select]

(defun C:ALE_Fix_Clean ( / FilNam)
  (setq FilNam (strcat (getvar "DWGPREFIX") "Clean_" (getvar "DWGNAME")))
  (if (findfile FilNam)
    (command "_.QSAVE" "_.WBLOCK" FilNam "_Y" "*")
    (command "_.QSAVE" "_.WBLOCK" FilNam "*")
  )
)
(C:ALE_Fix_Clean)

I do not know, it is a normal Wblock...

[Marc'Antonio Alessi]

Try command -EXPORTTOAUTOCAD or this at your own risk (not fully tested):

Code: [Select]


(defun ALE_Fix_Dictionaries (EntDct / OutLst)
  (vlax-for VlaFor EntDct
    (if (vlax-property-available-p VlaFor 'Name)
      (setq OutLst (cons (cons (vlax-get VlaFor 'Name) VlaFor) OutLst))
    )
  )
  (reverse OutLst)
)
(defun ALE_Fix_DelDictionaries (DctNms)
  (foreach ForElm (ALE_Fix_Dictionaries (vla-get-dictionaries (vla-get-activedocument (vlax-get-acad-object))))
    (if (wcmatch (car ForElm) DctNms)
      (progn
        (vla-delete (cdr ForElm))
        (prompt (strcat "\nDict Deleted: " (car ForElm)))
      )
      (prompt (strcat "\nDict NOT Deleted: " (car ForElm)))
    )
  )
  (princ)
)


Code: [Select]

(ALE_Fix_DelDictionaries "IDAT-BASEDICTIONARY") ; this is eavy
(ALE_Fix_DelDictionaries "*AEC*")
(ALE_Fix_DelDictionaries "ASE_INDEX_DICTIONARY")
(ALE_Fix_DelDictionaries "ItDictLayerStateSet")
(ALE_Fix_DelDictionaries "Patrick_35")