El término operación, que en este entorno de modelado paramétrico 3D utilizamos comotraducción del original inglés feature, se refiere a cada uno de los procesos matemáticosempleados para construir el modelo. De aquí el que hagamos referencia a este proceso comomodelado basado en operaciones. El modelo es el resultado de aplicar una secuencia deoperaciones y otras modificaciones. La operación de extrusión es con frecuencia la primera delas operaciones empleadas en la construcción del modelo. Existen muchas otros tipos deoperaciones, algunas de las cuales generan nuevos sólidos a partir de bocetos y otras quemodifican sólidos existentes. Parte de la jerarquía de objetos correspondiente a lasoperaciones 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 almé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 delboceto 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 debenestar completamente cerradas. Es decir todos los inicios y finales de líneas, arcos, etc., debenser 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étodoAddForSolid. Este método analiza toda la geometría del boceto y crea a partir de los trayectoscerrados 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. Acontinuació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ónExtrudeFeatures que forma parte de la colección Features del objeto ComponentDefinition deldocumento de parte (ver Figura 1).

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

• El objeto perfil representado por la variable oPerfil.
• La distancia, un valor que puede ser un número o una cadena de caracteresrepresentando un número que puede incluir la representación del tipo de unidades. Si elvalor 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 adoptaralguno de los siguientes valores:

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

• Un último argumento opcional que define el ángulo de conicidad (inclinación de lascaras laterales). Si no se suministra el ángulo será cero. Puede ser un número o unacadena de caracteres. En caso de ser un número el valor será interpretado comoradianes.

Si quisiéramos hacer algo con el sólido resultante de la extrusión podemos declarar unavariable del tipo ExtrudeFeature para guardar una referencia a este objeto. Como no es ese elcaso en este ejercicio, simplemente crearemos la extrusión llamando al método ysuministrá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 elbotón y activamos el siguiente.

cmdExtDist.Enabled = False
cmdIso.Enabled = True