社区 › VB › 问了几次了，多段线的长度怎么获得

yicol 发表于 2003-6-13 18:46:00

问了几次了，多段线的长度怎么获得

问了几次了，多段线的长度怎么获得
劳烦版主回答了几次，
但我运行时却报错呀
贴出我的源程序
Sub Count_len()
    ' 创建新的选择集
    Dim sset As AcadSelectionSet
For i = 0 To ThisDrawing.SelectionSets.Count - 1
ThisDrawing.SelectionSets.Item(i).Clear
ThisDrawing.SelectionSets.Item(i).Delete
Next
On Error Resume Next
    Set sset = ThisDrawing.SelectionSets.Add("SS0")
   sset.SelectOnScreen
   Dim entry As AcadEntity
    Dim l_text As String
    Dim l_l As Double
    Dim Arc_count As Integer
    Dim Line_count As Integer
    For Each entry In sset
      '如果是多段线或曲线的长度，就不行了
      If entry.ObjectName = "AcDbArc" Then
      l_text = l_text & "+" & entry.ArcLength
      l_l = l_l + entry.ArcLength
      Arc_count = Arc_count + 1
      ElseIf entry.ObjectName = "AcDbLine" Then
      l_text = l_text & "+" & entry.Length
      l_l = l_l + entry.Length
      Line_count = Line_count + 1
      End If
    Next entry
ThisDrawing.Utility.Prompt vbCrLf & Arc_count & "个弧," & Line_count & "条直线. 共" & Arc_count + Line_count & "个对象." & vbCrLf & l_text & "=" & l_l & vbCrLf
End Sub

mccad 发表于 2003-6-13 22:20:00

http://www.mjtd.com/function/list.asp?id=308&ordertype=byletter

thankyou 发表于 2003-6-14 08:03:00

你用ACAD2004算了。

yicol 发表于 2003-6-14 13:32:00

本程序需要使用VLAX类。
什么意思，我不懂

mccad 发表于 2003-6-15 09:31:00

http://www.mjtd.com/mcdown/list.asp?id=85

yicol 发表于 2003-6-15 11:15:00

多谢版主一直照顾我，

fang: 发表于 2012-5-22 15:02:00

Public Sub Test()Dim objAcadObject As AcadObject Dim varPickedPoint As Variant Dim objDocument As AcadDocument   ThisDrawing.Utility.GetEntity objAcadObject, varPickedPoint, "請選擇 Polyline"If TypeOf objAcadObject Is AcadPolyline Then    Dim objPolyline As AcadPolyline    Set objPolyline = objAcadObject    MsgBox "Polyline 長度=" + CStr(objPolyline.Length)End IfEnd Sub

查看完整版本: 问了几次了，多段线的长度怎么获得