The following code can create a credit memo for an order.

$invoices = array();
foreach ($this->getInvoiceCollection() as $invoice) {
    $invoices[] = $invoice;
}
        
$service = Mage::getModel('sales/service_order', $this);
foreach ($invoices as $invoice) {
    $creditmemo = $service->prepareInvoiceCreditmemo($invoice);
    $creditmemo->register();
    $creditmemo->save();
}