如何从Coordinates中提取各坐标点数据
我要做一个程序，自动提取CAD中3D线上的各坐标：

VB code

For Each ent In ThisDrawing.ModelSpace       Select Case ent.ObjectName            Case "AcDbBlockReference"               entcorr = ent.Coordinates               If entcorr <> "" Then                  ReDim corr(((UBound(entcorr) + 1) \ 2) * 3 * 4 - 1)                  j = -1                  For i = 0 To UBound(entcorr) Step 2                    j = j + 1                    corr(j) = entcorr(i) + 1                    j = j + 1                    corr(j) = entcorr(i + 1) + 1                    j = j + 1                    corr(j) = 0                                        j = j + 1                    corr(j) = entcorr(i) + 1                    j = j + 1                    corr(j) = entcorr(i + 1) - 1                    j = j + 1                    corr(j) = 0                                        j = j + 1                    corr(j) = entcorr(i) - 1                    j = j + 1                    corr(j) = entcorr(i + 1) + 1                    j = j + 1                    corr(j) = 0                                        j = j + 1                    corr(j) = entcorr(i) - 1                    j = j + 1                    corr(j) = entcorr(i + 1) - 1                    j = j + 1                    corr(j) = 0                  Next               End If            End Select                        Set sset = ThisDrawing.SelectionSets.Add("sset")            sset.SelectByPolygon acSelectionSetCrossingPolygon, corr    Next

后面怎么取出每个块坐标的点啊?最好是根据这个坐标点生成以坐标点为中心的一个矩形区域 我这样写的

[解决办法]
顶一下！



















[size=1][color=lightblue]SIGNATURE[/color][/size]----------------------------------------- -------------------------------
http://www.nlweixiutel.com