TheSwamp
CAD Forums => Vertically Challenged => Architecturally Speaking => Topic started 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!
-
(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))
-
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?