zysteel 发表于 2003-10-15 09:33:00

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

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

gzy 发表于 2003-10-15 12:45:00

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

zysteel 发表于 2003-10-17 14:39:00

谢谢!我已经找到了一种方法实现了这个功能!是用: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
页: [1]
查看完整版本: 在创建完选择集后(主要是直线和圆弧),怎样通过遍历出哪个是直线哪个是圆弧???并自动