[编程申请]：根据不同线段的线型或线段的颜色，求图纸中各类线段的总长度？

zhiyun

是否能有这样的程序：根据不同线段的线型或线段的颜色，求图纸中各类线段的总长度？请了

自由的鱼

现在才看到，只能明天写了帖上来！

PLgis

没问题.

自由的鱼

统计直线！
运行程序后，先选择目标直线，然后在窗选需要统计长度的直线，被选中的直线中所有和目标直线颜色和线型相同的会被统计，这里是“和”的关系，若是“或”的关系请把程序中的"and"改为"or"
Option Explicit
Sub sumL()
Dim L As AcadLine
Dim i As Integer
Dim Ld As Double
Dim sset As AcadSelectionSet
Dim Ftype(0) As Integer
Dim Fdata(0) As Variant
Ftype(0) = 0
Fdata(0) = "LINE"
Dim pnt As Variant
Dim ent As AcadEntity
ThisDrawing.Utility.GetEntity ent, pnt, "选择目标直线"

Set sset = ThisDrawing.SelectionSets.Add("ttrt")
sset.SelectOnScreen Ftype, Fdata
Ld = 0
For i = 0 To sset.Count - 1
If sset.Item(i).Color = ent.Color Or sset.Item(i).Linetype = ent.Linetype Then
Ld = Ld + sset.Item(i).Length
End If
Next
MsgBox "直线长度为：" & Ld
sset.Delete

End Sub

陌生人

用wkai的选择易不错，功能满足需要，而且更强大

zhiyun

自由的鱼：
我遇到的问题：
1。如果选择目标直线为空，则出错。程序不能提示
2。程序执行过程中不能执行缩放命令
3。程序如果有多选择项性，提示性，友好交互的对话就佳了
4。如果程序能多选择几种直线，后输出文本，并在文本中表示出
  图层名  线型图例     颜色    长度    就完美了。
4。我遇到一张旧图（R14画），该程序用AND，即：“颜色相同并线型相同”时，该程序的结果是仅有线形相同，而颜色不起作用；但如果在这张图上画出新的线条测试，程序是正确的。？？？为什么呢？谢谢

自由的鱼

最初由 zhiyun 发布
[B]自由的鱼：
我遇到的问题：
1。如果选择目标直线为空，则出错。程序不能提示
2。程序执行过程中不能执行缩放命令
3。程序如果有多选择项性，提示性，友好交互的对话就佳了
4。如果程序能多选择几种直线，后输出... [/B]

呵呵，你选直线为空程序肯定出错了，因为我没有写错误处理，把你的图发上来，我会根据你的要求再完善！