Para crear una región, utilice el método AddRegion Este método crea una región a partir de todos los bucles cerrados formados con la matriz de entrada de curvas. AutoCAD convierte las polilíneas 2D cerradas y las 3D planas en regiones distintas y, a continuación, convierte las polilíneas, líneas y curvas que forman bucles planos cerrados. Si más de dos curvas comparten un punto final, puede que la región resultante sea arbitraria. Por esta razón, es posible que algunas regiones en realidad se creen cuando se utilice el método AddRegion. Utilice una variante que contenga la recién creada matriz de regiones.
Puede calcular el total de objetos de región creados mediante las funciones UBound y LBound de VBA, como ilustra el siguiente ejemplo:
UBound(objRegions) - LBound(objRegions) + 1
donde objRegions es un variante que contiene el valor de retorno de AddRegion. Esta instrucción calcula el número total de regiones creadas.
El código del ejemplo siguiente crea una región a partir de un círculo.
Sub Ch4_CreateRegion()
' Define an array to hold the
' boundaries of the region.
Dim curves(0 To 0) As AcadCircle
' Create a circle to become a
' boundary for the region.
Dim center(0 To 2) As Double
Dim radius As Double
center(0) = 2
center(1) = 2
center(2) = 0
radius = 5#
Set curves(0) = ThisDrawing.ModelSpace.AddCircle _
(center, radius)
' Create the region
Dim regionObj As Variant
regionObj = ThisDrawing.ModelSpace.AddRegion(curves)
ZoomAll
End Sub