TheSwamp

CAD Forums => Vertically Challenged => Architecturally Speaking => Topic started by: Guest on October 16, 2007, 10:37:15 AM

Title: Purging AEC Styles (the lazy man's way)
Post by: Guest on October 16, 2007, 10:37:15 AM

Is it possible to purge all of the AEC styles without having to enter the Style Manager dialog box?  I know you do it manually from the command line: I.E. -wallstyle <enter> Purge <enter>  but I want to be able to clean EVERYTHING with the push of a button because I'm lazy and I believe the computer should work WITH/FOR me not AGAINST ME!

Title: Re: Purging AEC Styles (the lazy man's way)
Post by: jbuzbee on October 17, 2007, 07:46:07 AM

Code: [Select]

(defun C:AECPURGEALL  (/ ITEM)
 (foreach ITEM  '("-MaskDefine"
                  "-ProfileDefine"
                  "-NameDef"
                  "-GroupTemplate"
                  "-CalculationModifierStyle"
                  "-AreaGroupStyle"
                  "-MemberStyle"
                  "-AecPolygonStyle"
                  "-AecDimStyle"
                  "-WallStyle"
                  "-DoorStyle"
                  "-WindowStyle"
                  "-StairStyle"
                  "-RailingStyle"
                  "-SpaceStyle"
                  "-AecMvBlockDefine")
  (progn (if (vl-cmdf ITEM "p" "*" "n")
          (vl-cmdf))
         (vl-cmdf)))
 (princ "\nAll Styles have been purged!")
 (princ))

Title: Re: Purging AEC Styles (the lazy man's way)
Post by: Guest on October 17, 2007, 08:33:06 AM

Thanks, but...

That doesn't purge EVERYTHING... I.E. Property Set Defs, Property Data Formats or Section/Elevation Styles as well as some others.

Any ideas?