vb中怎么读取CAD中画的一条线所经过点的座标？

茂茂

就是有一工程图纸用CAD画的。

现在要用VB来读出该图纸中的所有点或线的座标，存入数据库中

该怎么实现呢？

liyuwen

基本思路，供参考：对所有图元进行搜索、归类即可实现此功能。

68651521

先写程序 选择该线到一个选择集中 比如 SsetObj

然后 

Dim Entry As AcadEntity

Dim Coord As Variant

Dim Point( 0 to 2 ) As Double

For Each Entry In SsetObj

            Coord=Entry.Coordinates

            For i = 0 To UBound(Coord) - 1 Step 2
                Point(0) = Coord(i)
                Point(1) = Coord(i + 1)
                Point(2) = 0

                MsgBox "第"+str(i)+"号点的X坐标="+Str(Point(0))+"Y="+Str(Point(1))+"Z="+Str(Point(2))
            Next i

Next Entry