Author Topic: Purging AEC Styles (the lazy man's way)  (Read 5871 times)

0 Members and 1 Guest are viewing this topic.

Guest

  • Guest
Purging AEC Styles (the lazy man's way)
« 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!

jbuzbee

  • Swamp Rat
  • Posts: 851
Re: Purging AEC Styles (the lazy man's way)
« Reply #1 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))
James Buzbee
Windows 8

Guest

  • Guest
Re: Purging AEC Styles (the lazy man's way)
« Reply #2 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?