直线提取中的问题！！好郁闷！！我好笨！！

绿色大海

首先谢谢大家以前的帮助 ！

但是现在的问题是把别人已经画好的图形中的图形元素中的直线提取出来！

下面是 一些 代码！  我只能做到把所有图形元素提取后  找到那些是直线  

但是怎样把直线坐标显示出来？？？


For i = 0 To acadapp.ActiveDocument.ModelSpace.Count - 1
   If acadapp.ActiveDocument.ModelSpace(i).EntityType = acLine Then
   ？？？？？
？？？？      

Next i


高人们  大哥们！！  一起 看看怎么办！

leeyeafu

Dim obj As AcadEntity
For Each obj In acadapp.ActiveDocument.ModelSpace
  If obj.Name="AcDbLine" Then
    MsgBox "直线的起点为：（" & obj.StartPoint(0) & "，" & _
           obj.StartPoint(1) & "，" & obj.StartPoint(2) & _
           "），终点为：（"& obj.EndPoint(0) & "，" & _
           obj.EndPoint(1) & "，" & obj.EndPoint(2) & "）"
  End If
Next obj

以上代码随手写来，未加调试，请自己Debug，有问题再回答。

efan2000

Line直线是仅有两个点连在一起的线条。第一点称为起点，用object.StartPoint来设置或者返回坐标，第二点称为终点，用object.EndPoint来设置或者返回坐标。其它的信息如长度可以用object.Length来返回，而角度可以用object.Angle来返回。
注：object代表直线对象，如果acadapp.ActiveDocument.ModelSpace(i)是直线对象的话，就可以像acadapp.ActiveDocument.ModelSpace(i).StartPoint这样操作。

yu-gn

With acadApp.ActiveDocument.ModelSpace
For i = 0 To .Count - 1 Step 1
Set retObj = .Item(i)
If retObj.EntityType = acLine Then
rstLine.addnew
PT1 = retObj.startPoint
PT2 = retObj.EndPoint
X1=PT1(0):Y1=PT1(1):Z1=PT1(2)
......