如何从Coordinates中提取各坐标点数据
我要做一个程序，自动提取CAD中3D线上的各坐标：
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