乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 66|回复: 4

长度求和?

[复制链接]

10

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
65
发表于 2011-1-8 13:48:00 | 显示全部楼层 |阅读模式
拾取直线的长度后,我想在命令行显示拾取直线长度之和 请问斑竹 这句代码该怎么写?  ed.WriteMessage(??????)
回复

使用道具 举报

8

主题

138

帖子

5

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
170
发表于 2011-1-8 19:23:00 | 显示全部楼层
  1.      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.         If lineSset.Count = 0 Then
  13.         Else
  14.             Using trans As Transaction = db.TransactionManager.StartTransaction
  15.                 Dim lineLenth As Double = 0.0
  16.                 For Each objId As ObjectId In objIds
  17.                     Dim myLine As Line = trans.GetObject(objId, OpenMode.ForRead)
  18.                     lineLenth = lineLenth + myLine.Length()
  19.                 Next
  20.                 ed.WriteMessage(vbcrlf & "The total lines' length is:" & lineLenth.ToString)
  21.             End Using
  22.         End If
  23.     End Sub
回复

使用道具 举报

10

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
65
发表于 2011-1-9 16:55:00 | 显示全部楼层
请问在C#中 该怎么写呢?小弟愚笨 恳请斑竹帮个忙
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2011-1-9 19:32:00 | 显示全部楼层
  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.             var resSel =
  8.                 ed.GetSelection(
  9.                     new SelectionFilter(
  10.                         new TypedValue[]
  11.                         {
  12.                             new TypedValue(0, "line")
  13.                         }));
  14.             if (resSel.Status != PromptStatus.OK)
  15.                 return;
  16.             using (var tr = db.TransactionManager.StartTransaction())
  17.             {
  18.                 var sum =
  19.                     resSel.Value.GetObjectIds()
  20.                     .Select(id => tr.GetObject(id, OpenMode.ForRead) as Line)
  21.                     .Select(line => line.Length)
  22.                     .Sum();
  23.                 ed.WriteMessage("直线的总长度为:{0}", sum);
  24.             }
  25.         }
回复

使用道具 举报

10

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
65
发表于 2011-1-10 21:21:00 | 显示全部楼层
感谢飞狐大哥 问题已经解决
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-15 11:45 , Processed in 0.371913 second(s), 62 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表