'<START SCRIPT>
'This script removes the attributes and operations for every class in the model 
'It is intended to help create a framework by reducing an existing model to its classes 
'BACKUP, BACKUP, BACKUP! 

Sub Main 
 Dim nestedClasses As ClassCollection
 Dim allClasses As ClassCollection 
 Dim nestedClass As Class
 Dim aClass As Class 
 Dim att As Attribute 
 Dim op As Operation 

 Set allClasses = RoseApp.CurrentModel.GetAllClasses() 

 For i% = 1 To allClasses.Count 
  Set aClass = allClasses.GetAt(i%) 

  	'<<NESTED CLASSES>>
  	Set nestedClasses = aClass.GetAllNestedClasses() 
 	For j% = 1 To nestedClasses.Count 
    Set nestedClass = nestedClasses.GetAt(j%)
	
  	While nestedClass.Attributes.Count > 0 
   	Set att = nestedClass.Attributes.GetAt(1) 
   	x = nestedClass.DeleteAttribute (att) 
  	Wend
	 
  	While nestedClass.Operations.Count > 0 
   	Set op = nestedClass.Operations.GetAt(1) 
   	x = nestedClass.DeleteOperation (op) 
  	Wend 
 	Next j% 
	'<<END NESTED SECTION>>


  While aClass.Attributes.Count > 0 
   Set att = aClass.Attributes.GetAt(1) 
   x = aClass.DeleteAttribute (att) 
  Wend 
  While aClass.Operations.Count > 0 
   Set op = aClass.Operations.GetAt(1) 
   x = aClass.DeleteOperation (op) 
  Wend 
 Next i% 
 MsgBox "Done" 

End Sub 
'<END SCRIPT>