Function SelectByID2( _ ByVal Name As System.String, _ ByVal Type As System.String, _ ByVal X As System.Double, _ ByVal Y As System.Double, _ ByVal Z As System.Double, _ ByVal Append As System.Boolean, _ ByVal Mark As System.Integer, _ ByVal Callout As Callout, _ ByVal SelectOption As System.Integer _ ) As System.Boolean
Append =False 表示不连续选择下一个
Append =true 表示连续选择下一个