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

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

就是有一工程图纸用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中画的一条线所经过点的座标？

发表回复

精选推荐