Los objetos gráficos se crean en las colecciones ModelSpace y PaperSpace, y en los objetos Block.
La colección ModelSpace la devuelve la propiedad ModelSpace, mientras que la propiedad PaperSpace devuelve la colección PaperSpace.
La referencia a estos objetos se puede realizar directamente o a través de una variable definida por el usuario. Para utilizar una referencia directa a un objeto, inclúyalo en la jerarquía de la llamada. Por ejemplo, la siguiente instrucción agrega una línea al espacio modelo:
Set lineObj = ThisDrawing.ModelSpace.AddLine(startPoint,endPoint)
Para hacer referencia a los objetos mediante una variable definida por el usuario, asigne a la variable el tipo AcadModelSpace o AcadPaperSpace y después defínala como la propiedad apropiada del documento activo. En el siguiente ejemplo se definen dos variables, que se establecen igual que los espacios modelo y papel activos, respectivamente:
Dim moSpace As AcadModelSpace
Dim paSpace As AcadPaperSpace
Set moSpace = ThisDrawing.ModelSpace
Set paSpace = ThisDrawing.PaperSpace
La siguiente instrucción agrega una línea al espacio modelo mediante la variable definida por el usuario:
Set lineObj = moSpace.AddLine(startPoint,endPoint)