I've tested it on my netbook A2009 and it works... Please, if you can't get result with my - Lee's modified code on other AutoCAD versions with some other configurations, inform me... Here it seems to work OK... Note that your block must be with base point on lower left corner of its bounding box...
Please, respond...