文章段落1
**文章段落2**
Sub OnClick()
'选择地物
SSProcess.ClearSelection
SSProcess.ClearSelectCondition
SSProcess.SelectFilter
'将选择集对象拷贝到粘贴板
SSProcess.SelectionObjToClipBoard
'粘帖板对象添加到地图
SSProcess.AddClipBoardObjToMap 100, 100
End Sub
文章段落1
**文章段落2**
Sub OnClick()
'选择地物
SSProcess.ClearSelection
SSProcess.ClearSelectCondition
SSProcess.SelectFilter
'将选择集对象拷贝到粘贴板
SSProcess.SelectionObjToClipBoard
'粘帖板对象添加到地图
SSProcess.AddClipBoardObjToMap 100, 100
End Sub