长度求和?

scf0413

拾取直线的长度后，我想在命令行显示拾取直线长度之和 请问斑竹 这句代码该怎么写？  ed.WriteMessage(??????)

chmenf087

1.     <CommandMethod("SLenth")> Public Sub sumLineLength()
   
2.         Dim db As Database = HostApplicationServices.WorkingDatabase
   
3.         Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor
   
4.         Dim fType As TypedValue = New TypedValue(DxfCode.Start, "Line")
   
5.         Dim fTypeList() As TypedValue = {fType}
   
6.         Dim myFilter As New SelectionFilter(fTypeList)
   
7.         Dim proSset As New PromptSelectionOptions
   
8.         proSset.MessageForAdding = "Please choose some entities:"
   
9.         Dim resSset As PromptSelectionResult = ed.GetSelection(proSset, myFilter)
   
10.         Dim lineSset As SelectionSet = resSset.Value
    
11.         Dim objIds As ObjectId() = lineSset.GetObjectIds()
    
12. 
    
13.         If lineSset.Count = 0 Then
    
14.         Else
    
15.             Using trans As Transaction = db.TransactionManager.StartTransaction
    
16.                 Dim lineLenth As Double = 0.0
    
17.                 For Each objId As ObjectId In objIds
    
18.                     Dim myLine As Line = trans.GetObject(objId, OpenMode.ForRead)
    
19.                     lineLenth = lineLenth + myLine.Length()
    
20.                 Next
    
21.                 ed.WriteMessage(vbcrlf & "The total lines' length is:" & lineLenth.ToString)
    
22.             End Using
    
23.         End If
    
24.     End Sub

    <CommandMethod("SLenth")> Public Sub sumLineLength()<br />         Dim db As Database = HostApplicationServices.WorkingDatabase<br />         Dim ed As Editor = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.Editor<br />         Dim fType As TypedValue = New TypedValue(DxfCode.Start, "Line")<br />         Dim fTypeList() As TypedValue = {fType}<br />         Dim myFilter As New SelectionFilter(fTypeList)<br />         Dim proSset As New PromptSelectionOptions<br />         proSset.MessageForAdding = "Please choose some entities:"<br />         Dim resSset As PromptSelectionResult = ed.GetSelection(proSset, myFilter)<br />         Dim lineSset As SelectionSet = resSset.Value<br />         Dim objIds As ObjectId() = lineSset.GetObjectIds()<br /> <br />         If lineSset.Count = 0 Then<br />         Else<br />             Using trans As Transaction = db.TransactionManager.StartTransaction<br />                 Dim lineLenth As Double = 0.0<br />                 For Each objId As ObjectId In objIds<br />                     Dim myLine As Line = trans.GetObject(objId, OpenMode.ForRead)<br />                     lineLenth = lineLenth + myLine.Length()<br />                 Next<br />                 ed.WriteMessage(vbcrlf & "The total lines' length is:" & lineLenth.ToString)<br />             End Using<br />         End If<br />     End Sub

scf0413

请问在C#中 该怎么写呢？小弟愚笨 恳请斑竹帮个忙

雪山飞狐_lzh

1.         [CommandMethod("t2")]
   
2.         public static void Test2()
   
3.         {
   
4.             Document doc = Application.DocumentManager.MdiActiveDocument;
   
5.             Database db = doc.Database;
   
6.             Editor ed = doc.Editor;
   
7. 
   
8.             var resSel =
   
9.                 ed.GetSelection(
   
10.                     new SelectionFilter(
    
11.                         new TypedValue[]
    
12.                         {
    
13.                             new TypedValue(0, "line")
    
14.                         }));
    
15. 
    
16.             if (resSel.Status != PromptStatus.OK)
    
17.                 return;
    
18. 
    
19.             using (var tr = db.TransactionManager.StartTransaction())
    
20.             {
    
21.                 var sum =
    
22.                     resSel.Value.GetObjectIds()
    
23.                     .Select(id => tr.GetObject(id, OpenMode.ForRead) as Line)
    
24.                     .Select(line => line.Length)
    
25.                     .Sum();
    
26. 
    
27.                 ed.WriteMessage("直线的总长度为:{0}", sum);
    
28.             }
    
29. 
    
30.         }

        [CommandMethod("t2")]<br />         public static void Test2()<br />         {<br />             Document doc = Application.DocumentManager.MdiActiveDocument;<br />             Database db = doc.Database;<br />             Editor ed = doc.Editor;<br /> <br />             var resSel = <br />                 ed.GetSelection(<br />                     new SelectionFilter(<br />                         new TypedValue[] <br />                         { <br />                             new TypedValue(0, "line") <br />                         }));<br /> <br />             if (resSel.Status != PromptStatus.OK)<br />                 return;<br /> <br />             using (var tr = db.TransactionManager.StartTransaction())<br />             {<br />                 var sum =<br />                     resSel.Value.GetObjectIds()<br />                     .Select(id => tr.GetObject(id, OpenMode.ForRead) as Line)<br />                     .Select(line => line.Length)<br />                     .Sum();<br /> <br />                 ed.WriteMessage("直线的总长度为:{0}", sum);<br />             }<br /> <br />         }

scf0413

感谢飞狐大哥 问题已经解决