Sprocket lisp

There is an Autogear.lsp for drawing various gears, but is there a similar routine for drawing chain sprocket automatically?

I have done a search, but haven't found anything other than Autogear.lsp (which works very well, by-the-way).

Brian.