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

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

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

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

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

发表回复

精选推荐