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).
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
Add image file

Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here. All logos and trade names are the property of their respective owners.