Spur Gear 50T M2 with Hub

> Solicitud de Script AutoLISP para AutoCAD (Engrane Recto) > Hola, necesito que generes un código en AutoLISP (.lsp) para AutoCAD que dibuje automáticamente un engrane recto en 2D en el origen 0,0, listo para extruir o unir. > El script debe utilizar los siguientes parámetros geométricos exactos: > * Número de dientes (N): 50 > * Módulo (M): 2.0 mm > * Diámetro Exterior (D_e): 104.0 mm (Radio: 52.0 mm) > * Diámetro Primitivo (D_p): 100.0 mm (Radio: 50.0 mm) > * Diámetro de Raíz / Fondo (D_i): 95.33 mm (Radio: 47.665 mm) > * Diámetro de la Maza / Cubo central: 40.0 mm (Radio: 20.0 mm) > * Diámetro del Agujero para Eje: 8.0 mm (Radio: 4.0 mm) > Requisitos del código AutoLISP: > * Crear el comando llamado ENGRANE50. > * Dibujar el perfil completo de un diente uniendo el punto del círculo de raíz (95.33), el círculo primitivo (100.0) y la cresta (104.0) con un ángulo paso de 7.2^\circ por diente. > * Aplicar una matriz polar automática (arraypolar) para replicar el perfil a los 50 dientes alrededor del centro 0,0. > * Recortar los arcos internos sobrantes entre diente y diente para dejar un contorno exterior continuo. > * Dibujar los círculos concentricos del cubo (\varnothing 40) y del agujero del eje (\varnothing 8). > * Ejecutar un JOIN (UNIR) al contorno del engrane para que quede como una polilínea cerrada lista para EXTRUDE. > * Por favor, entrega únicamente el código AutoLISP listo para guardar como .lsp.

Parameters

Every value above is a live dimension. Open a model like this in the editor and each one becomes a slider you can drag before exporting.