求直线长度

hnzgs · 发表于 2011-1-14 11:12:00

环境：2006+VS2008
要求：求0图层所有直线长度
代码如下：
   Public Sub testSelection2()
      Dim db As Database = HostApplicationServices.WorkingDatabase
      Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
      '定义过滤条件
      '实体类型
      Dim value1 As TypedValue = New TypedValue(DxfCode.Start, "LINE")
      '图层
      Dim value2 As TypedValue = New TypedValue(DxfCode.LayerName, "0")
      'Dim value3 As TypedValue = New TypedValue(DxfCode.Color, "1")
      Dim values() As TypedValue = {value1, value2}
      Dim sfilter As New SelectionFilter(values)
      ' 返回选择集的用户提示类.
      Dim resSel As PromptSelectionResult = ed.SelectAll(sfilter)
      ' 得到选择集对象.
      Dim sSet As SelectionSet = resSel.Value
      ' 得到选择集中所有对象的ObjectId集合.
      Dim ids As ObjectId() = sSet.GetObjectIds()
      Using trans As Transaction = db.TransactionManager.StartTransaction()
         ' 遍历选择集.
         For Each sSetEntId As ObjectId In ids
            Dim ent As Entity = trans.GetObject(sSetEntId, OpenMode.ForWrite)

            ' 这里怎么写
            'Dim l As Double
         Next
         trans.Commit()
      End Using
End Sub

雪山飞狐_lzh · 发表于 2011-1-14 16:36:00

求曲线长度的通用代码：
ent.GetDistanceAtParameter(ent.EndParam)

雪山飞狐_lzh · 发表于 2011-1-14 12:17:00

copy

            Dim sum As Double 
            For Each sSetEntId As ObjectId In ids
                Dim ent As Line = trans.GetObject(sSetEntId, OpenMode.ForWrite)
                sum += ent.Length
            Next

cdinten · 发表于 2011-1-14 12:30:00

trans.GetObject(sSetEntId, OpenMode.ForRead)即可……

雪山飞狐_lzh · 发表于 2011-1-14 12:32:00

随手复制了，呵呵
另外，如果没有对数据库有更改，只是查询的话
trans.Commit()也可以去掉

hnzgs · 发表于 2011-1-14 14:04:00

感谢楼上两位。
是不是版本不一样，我用的CAD2006+vs2008，
调试提示：
“Length”不是“Autodesk.AutoCAD.DatabaseServices.Line”的成员
这样实现不知道是否有误差
Dim vec As Vector3d = ent.GeomExtents.MaxPoint - ent.GeomExtents.MinPoint
Length = Length + vec.Length