|
|
写关于绘制多义线(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
最后绘出的图形时, 多义线的第一个顶点怎么总是原点啊, 不知道各位有没有遇见这个问题? |
|
置顶卡
