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

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

<P>就是有一工程图纸用CAD画的。</P>
<P>现在要用VB来读出该图纸中的所有点或线的座标，存入数据库中</P>

<P>该怎么实现呢？</P>

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

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

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

<P>先写程序 选择该线到一个选择集中 比如 SsetObj</P>
<P>然后&nbsp;</P>
<P>Dim Entry As AcadEntity</P>
<P>Dim Coord As Variant</P>
<P>Dim Point( 0 to 2 ) As Double</P>
<P>For Each Entry In SsetObj</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Coord=Entry.Coordinates</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = 0 To UBound(Coord) - 1 Step 2<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Point(0) = Coord(i)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Point(1) = Coord(i + 1)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Point(2) = 0</P>
<P>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; MsgBox "第"+str(i)+"号点的X坐标="+Str(Point(0))+"Y="+Str(Point(1))+"Z="+Str(Point(2))<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next i</P>
<P>Next Entry</P>
页: [1]
查看完整版本: vb中怎么读取CAD中画的一条线所经过点的座标？