Reptiles de M.C. Escher de madera arte de movimiento (parte 1/2) (10 / 22 paso)

Paso 10: Ajuste estilo A: doloroso a juntar!

Ahora, tienes el esquema y una zona de recorte donde cortar los reptiles.  El siguiente paso es colocar el hexágono en el medio de la matriz de reptil y recortar los reptiles.  Esto recorte sus reptiles en el hexágono y crear muchas astillas que son difíciles de pieza.  Ver la foto inicial en este instructable.)

1. Aplanar el reptil símbolos seleccionando todos los reptiles, clic derecho y elija símbolo -> volver a objetos.  Esto aplana todo el mundo y vuelve a los reptiles objetos simples.
2. Con todos los reptiles aún seleccionados, haga clic derecho y del grupo.
3. Mover el hexágono en la matriz y centro muy bien.  Cambiar el tamaño del grupo como mejor parezca para que tenga el número correcto de reptiles dentro de su hexágono.
4. Subir el anclaje que forma: Window -> Dockers -> que forma
5. Elija 'Recorte'. tipo de formación.
6. Seleccione el hexágono.
7. Seleccione la opción 'Dejar los objetos de la fuente Original'.
8. Haga clic en, "Recortar".  El 'objeto de origen' es el hexágono ya seleccionado
9. Haga clic en el grupo de reptiles.
10. Esperar un tiempo mientras su grupo de reptiles se recorta.
11. Limpiar todas las astillas que no desea reconstruir, así como las piezas fuera del hexágono
12. Usted notará que cuando quiere eliminar una pieza de reptil que tenía un reptil de origen es ambos insid y fuera del perímetro, no se puede eliminar la parte exterior sin eliminar la parte interior.  La manera de solucionarlo es clic derecho sobre la pieza, y elegir 'Curva separar'.  A continuación, puede eliminar sólo la parte fuera del perímetro.  La siguiente secuencia de comandos romperá las curvas múltiples, muy útil:

Sub breakIt()

Dim s como forma de
Dim sr como ShapeRange

Conjunto sr = ActiveSelectionRange

Para cada s en sr
Si s.Type = cdrGroupShape entonces
s.UngroupAll
ActiveSelection.BreakApart
Otra cosa
s.BreakApart
End If
S siguiente

End Sub