AutoLISP Program - Auto Gear Blank Drawing Generation