在程序里找了几段程序，大家看看吧，撤消和恢复编辑操作的实现，
大家仔细看后面那几个主要的操作函数啦，应该有点帮助！
Private Sub MO_MENU_UNDO_Click()
Mod_IF.EditUnDo
End Sub

'//////撤消/////
Public Function EditUnDo()
CalculateSetSel -1, -1, -1
If clsMapT.CanUndo Then
    clsMapT.Undo frmMain.Map1, 1
End If
frmMain.Map1.Refresh
End Function
注意程序是截取下来的，所以模块的划分大家可以不理会，主要看看思路了。
Function CanUndo() As Boolean
CanUndo = False
CanUndo = undoNow - undoTimesBegin
End Function



Private Function UUAddLine(map As MapObjects2.map) 'undo
On Error GoTo exit1
Dim typea, layerNum As Long
 typea = popType
 layerNum = popInt
 popObject
 
Dim recs As MapObjects2.Recordset
 Set recs = map.Layers(layerNum).Records
 'recs.Edit
 
 recs.MoveFirst
 
 GetRecsCount recs
 
 recs.Edit
 
 Dim aae As Long
 For aae = 1 To recs.count - 1
 recs.MoveNext
 Next
 'recs.Edit
 recs.Delete

 'recs.Update
 recs.StopEditing
 Refresh map
exit1:
End Function

Private Function UUAddPoint(map As MapObjects2.map) 'undo
On Error GoTo exit1
Dim typea, layerNum As Long
 typea = popType
 layerNum = popInt
 popObject
 
Dim recs As MapObjects2.Recordset
 Set recs = map.Layers(layerNum).Records
 
 
 GetRecsCount recs
 
 recs.MoveFirst
 recs.Edit
 
 Dim aae As Long
 For aae = 1 To recs.count - 1
 recs.MoveNext
 Next
 recs.Delete
 'recs.Edit

' recs.Update
 recs.StopEditing
 
 Refresh map
exit1:
End Function


Private Function UUAddShape(map As MapObjects2.map) 'undo
On Error GoTo exit1
Dim typea, layerNum As Long
 typea = popType
 layerNum = popInt
 popObject
 
 Dim recs As MapObjects2.Recordset
 Set recs = map.Layers(layerNum).Records
 
 
 GetRecsCount recs
 
 recs.MoveFirst
 recs.Edit
 
 Dim aae As Long
 For aae = 1 To recs.count - 1
 recs.MoveNext
 Next
 
 recs.Delete
' recs.Edit

' recs.Update
 recs.StopEditing
 
 Refresh map
exit1:
End Function

mo没有这方面的功能，只能靠自己编了，很复杂。希望你早日实现并给我们共享一下！