Dim i As Integer For i = 0 To Map1.Layers.Count- 1 If Map1.Layer(i).LayerType = moMapLayer Then If Map1.Layer(i).shapeType = moPoint Then MsgBook "Layer number" & i & "is a map layer and contains points." ElseIf Map1.Layer(i).shapeType = moLine Then MsgBook "Layer number" & i & "

99\2.vbp
..\工程2.vbw
99

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．