如何计算图形中直线的条数（VBA）

juxiang5018

我正在做一个服装款式的编程，想识别一定范围内的直线条数，借此来划分款式类别。

本人学编程不久，请各位一定要帮忙啊！！

sailorcwx

Sub GetLinesCount()
On Error Resume Next
Dim LinesCount As Integer
Dim LinesSelection As AcadSelectionSet
Dim FilterType(0) As Integer
Dim FilterData(0) As Variant
FilterType(0) = 0
FilterData(0) = "LINE"
Set LinesSelection = ThisDrawing.SelectionSets.Item("YH_tools")
If Err <> 0 Then
Set LinesSelection = ThisDrawing.SelectionSets.Add("YH_tools")
End If
LinesSelection.Clear
LinesSelection.Select acSelectionSetAll, , , FilterType, FilterData
MsgBox "图档里面共有" & LinesSelection.Count & "条直线"
End Sub

juxiang5018

谢谢！！！！！！！！！！！！！