find golden ratios drawing in autocad (vba script)