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

茂茂 发表于 2006-1-13 11:04:00

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

就是有一工程图纸用CAD画的。
现在要用VB来读出该图纸中的所有点或线的座标，存入数据库中
该怎么实现呢？

liyuwen 发表于 2006-1-13 14:58:00

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

68651521 发表于 2006-1-13 17:05:00

先写程序 选择该线到一个选择集中 比如 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

查看完整版本: vb中怎么读取CAD中画的一条线所经过点的座标？