在创建完选择集后(主要是直线和圆弧),怎样通过遍历出哪个是直线哪个是圆弧???并自动

zysteel

在创建完选择集后(主要是直线和圆弧),怎样通过遍历出哪个是直线哪个是圆弧???并自动给出直线和圆弧的总长[br]

gzy

If obj.ObjectName = "AcDbLine" Then
。。。。
使用这个，直线长度只要提取两点坐标就可以了，不过计算圆弧的长度据说在里面已经有记录知道圆弧的长度了，不过我不清楚。

zysteel

谢谢!我已经找到了一种方法实现了这个功能!是用:For i = 0 To ssetObj.Count - 1
    If ssetObj.Item(i).EntityType = acLine Then
    LineLength = LineLength + ssetObj.Item(i).Length
    End If
    If ssetObj.Item(i).EntityType = acArc Then
    ArcLength = ArcLength + ssetObj.Item(i).ArcLength
    End If
Next i