How to get default dimensions for Vendor and Customer in dynamics ax 2012

I used following code for this

 

CustTable custTable = CustTable::find(“1101”);
VendTable _VendTable= VendTable::find(‘54278’);

DimensionAttributeValueSetStorage dimStorage;
Counter i;

dimStorage = DimensionAttributeValueSetStorage::find(_VendTable.DefaultDimension );

for (i=1 ; i<= dimStorage.elements() ; i++)
{
info(strFmt(“%1 = %2”, DimensionAttribute::find(dimStorage.getAttributeByIndex(i)).Name,
dimStorage.getDisplayValueByIndex(i)));
}