juxiang5018 发表于 2008-5-5 16:58:00

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

<p>我正在做一个服装款式的编程，想识别一定范围内的直线条数，借此来划分款式类别。</p><p>本人学编程不久，请各位一定要帮忙啊！！</p>

sailorcwx 发表于 2008-5-6 11:47:00

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

juxiang5018 发表于 2008-5-6 19:06:00

<p>谢谢！！！！！！！！！！！！！</p>
页: [1]
查看完整版本: 如何计算图形中直线的条数（VBA）