El término operación, que en este entorno de modelado paramétrico 3D utilizamos como traducción del original inglés feature, se refiere a cada uno de los procesos matemáticos empleados para construir el modelo. De aquí el que hagamos referencia a este proceso como modelado basado en operaciones. El modelo es el resultado de aplicar una secuencia de operaciones y otras modificaciones. La operación de extrusión es con frecuencia la primera de las operaciones empleadas en la construcción del modelo. Existen muchas otros tipos de operaciones, algunas de las cuales generan nuevos sólidos a partir de bocetos y otras que modifican sólidos existentes. Parte de la jerarquía de objetos correspondiente a las operaciones se muestra en la Figura 1.

Crear el Sólido: Extrusión por distancia.

El código para realizar la extrusión por distancia se incluirá en el procedimiento de respuesta al método Click del botón cmdExtDist.

Private Sub cmdExtDist_Click()
  …
  …
End Sub

Para realizar una operación de extrusión u otra, será necesario tener un perfil. La finalidad del boceto 2D es precisamente contener la geometría necesaria para definir un objeto perfil (Profile). Un perfil es una secuencia de entidades lineales que para definir un sólido deben estar completamente cerradas. Es decir todos los inicios y finales de líneas, arcos, etc., deben ser coincidentes.

Esto, que al dibujar manualmente puede no ser en todos los casos así, cuando se crea el boceto mediante un programa correctamente elaborado, es algo que estará siempre garantizado. El perfil se añade a la colección Profiles del boceto mediante el método AddForSolid. Este método analiza toda la geometría del boceto y crea a partir de los trayectos cerrados el objeto Profile. Este método admite como argumento opcional una colección de objetos del boceto y en ese caso sólo tiene estos elementos en cuenta para crear el Profile.

Para obtenerlo declaramos la variable oPerfil del tipo Profile. A continuación lo creamos mediante el método AddForSolid.

Dim oPerfil As Profile
Set oPerfil = oBoceto.Profiles.AddForSolid

Una vez creado el perfil, ya podemos hacer la extrusión. La extrusión se incluirá en la colección ExtrudeFeatures que forma parte de la colección Features del objeto ComponentDefinition del documento de parte (ver Figura 1).

La extrusión por distancia, la más sencilla de todas, se crea mediante el método AddByDistanceExtent de la colección ExtrudeFeatures. Este método requiere los siguientes argumentos:

• El objeto perfil representado por la variable oPerfil.
• La distancia, un valor que puede ser un número o una cadena de caracteres representando un número que puede incluir la representación del tipo de unidades. Si el valor es un número se supone siempre que se trata de centímetros.
• La dirección de la extrusión como una constante de enumeración que puede adoptar alguno de los siguientes valores:

• El tipo de operación a realizar, como una constante de enumeración que puede adoptar alguno de los siguientes valores:

• Un último argumento opcional que define el ángulo de conicidad (inclinación de las caras laterales). Si no se suministra el ángulo será cero. Puede ser un número o una cadena de caracteres. En caso de ser un número el valor será interpretado como radianes.

Si quisiéramos hacer algo con el sólido resultante de la extrusión podemos declarar una variable del tipo ExtrudeFeature para guardar una referencia a este objeto. Como no es ese el caso en este ejercicio, simplemente crearemos la extrusión llamando al método y suministrándole los argumentos necesarios.

Call oDoc.ComponentDefinition.Features.ExtrudeFeatures. _
AddByDistanceExtent(oPerfil, 2.5, kSymmetricExtentDirection, _
kJoinOperation)

Con esto concluye el código para la primera extrusión. Ahora, como siempre desactivamos el botón y activamos el siguiente.

cmdExtDist.Enabled = False
cmdIso.Enabled = True