假定这些线不是一条线，也不是多意线，就是普通的线段或平行或相交
假定这些线不是一条线，也不是多意线，就是普通的线段或平行或相交
2楼
这个功能很简单，张工很容易就能搞定。
回复
3楼
以下为统计直线总长度的vba程序，不妨一试。
Option Explicit
Sub TotalLengthOfLine()
Dim SSet As AcadSelectionSet
Set SSet = ThisDrawing.PickfirstSelectionSet
If SSet.Count = 0 Then
MsgBox "未选择对象"
Exit Sub
End If
Dim Ent As AcadEntity
Dim Length As Double
Length = 0
For Each Ent In SSet
If TypeOf Ent Is AcadLine Then
Length = Length + Ent.Length
End If
Next
ThisDrawing.Utility.Prompt vbLf & "总长度为："
ThisDrawing.Utility.Prompt vbLf & Length & vbLf
End Sub
回复
4楼
:time: :time:
回复
5楼
试一下这个东西吧，很实用的，我平时用最多的也就是求多条线总长和求多个图形总面积，用加载应用程序命令加载后输命令Y来运行它，然后在里面点选操作就行了！
回复
6楼
好东西，谢谢楼主共享！
回复
7楼
谢谢，下载来学习下
回复
