写关于绘制多义线(polyline)时:我的代码如下:
Try Dim pline As Polyline = New Polyline() Dim dblGetArr As Array = GetFileData() // 得到数组 For i As Integer = 0 To dblGetArr.Length - 1 pline.AddVertexAt(i, dblGetArr(i), 0, 0, 0) pline.ColorIndex = 3 Next i btr.AppendEntity(pline) trans.AddNewlyCreatedDBObject(pline, True) trans.Commit() Catch ex As Exception MessageBox.show(ex.Message, "CAD提示") Finally '无论是否成功建立实例,最后都要销毁 trans.Dispose() End Try
最后绘出的图形时, 多义线的第一个顶点怎么总是原点啊, 不知道各位有没有遇见这个问题? |