0 Members and 1 Guest are viewing this topic.
(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))