Rotación de objetos
Modificación de objetos
Aplicar una escala a los objetos
Los objetos individuales se suprimen con el método Delete.
NotaLos objetos Collection de ActiveX Automation tienen un método Delete debido al modo en que estos objetos están definidos en la biblioteca de tipos. No obstante, los objetos Collection como colecciones ModelSpace, Layers y Dictionaries no deben suprimirse nunca. Si se intenta suprimir una colección, se produce un error.
Creación y supresión de una polilínea
Este ejemplo crea una polilínea optimizada y después la borra.
Sub Ch4_DeletePolyline()
' Create the polyline
Dim lwpolyObj As AcadLWPolyline
Dim vertices(0 To 5) As Double
vertices(0) = 2: vertices(1) = 4
vertices(2) = 4: vertices(3) = 2
vertices(4) = 6: vertices(5) = 4
Set lwpolyObj = ThisDrawing.ModelSpace. _
AddLightWeightPolyline(vertices)
ZoomAll
' Erase the polyline
lwpolyObj.Delete
ThisDrawing.Regen acActiveViewport
End Sub