Undo / Undo Begin / Undo End in VBA
#1hi, can the undo commands be called from withing VBA without using the intellicad.runcommand option, I can't seem to find the calls in the Intellicad object
#2
ENSIGN,
There are no Undo methods in VBA.
I start a count and loop through the count deleting the last entity
Below is an example of what I use:
' Delete the New Entities
For L = 1 To (FinalCount - StartCount)
LastEnt.Delete
Next L
Public Function LastEnt() As Entity
' This provides the Last entity in the drawing ModelSpace
Set LastEnt = IntelliCAD.ActiveDocument.ModelSpace.Item(IntelliCAD.ActiveDocument.ModelSpace.Count)
End Function
There are no Undo methods in VBA.
I start a count and loop through the count deleting the last entity
Below is an example of what I use:
' Delete the New Entities
For L = 1 To (FinalCount - StartCount)
LastEnt.Delete
Next L
Public Function LastEnt() As Entity
' This provides the Last entity in the drawing ModelSpace
Set LastEnt = IntelliCAD.ActiveDocument.ModelSpace.Item(IntelliCAD.ActiveDocument.ModelSpace.Count)
End Function
