java cad polyline_如何把路径变成一个Polyline？

Private Sub DrawPolyline_Click()

'Polyline 又称多义线，就是可以绘制多条首尾相连的线,也可以是圆弧相连，同是可以指定线的开始和结束宽。

'把颜色改回黑白色

MxDrawX1.DrawColor = 0

'把线型改成实线

MxDrawX1.LineType = ""

'设置线宽 4

MxDrawX1.LineWidth = 0

'创建一个图层,名为"PolylineLayer"

MxDrawX1.AddLayer "PolylineLayer"

'设置当前图层为"PolylineLayer"

MxDrawX1.LayerName = "PolylineLayer"

'《---------------------------------------》

'用Plyline显示绘制矩形框

'定义一个路径的开始点

MxDrawX1.PathMoveTo 0, 300

'路径的一下个点

MxDrawX1.PathLineTo 100, 300

'路径的一下个点

MxDrawX1.PathLineTo 100, 400

'路径的一下个点

MxDrawX1.PathLineTo 0, 400

'把路径设置成闭合

MxDrawX1.PathMakeClosed

'把路径闭合，生成一个矩形框

MxDrawX1.DrawPathToPolyline

'《---------------------------------------》

'绘制一个有宽度，带线型的矩形框

'定义一个路径的开始点

MxDrawX1.PathMoveTo 200, 300

'路径的一下个点

MxDrawX1.PathLineTo 300, 300

'路径的一下个点

MxDrawX1.PathLineTo 300, 400

'路径的一下个点

MxDrawX1.PathLineTo 200, 400

'把路径设置成闭合

MxDrawX1.PathMakeClosed

MxDrawX1.AddLinetype "MyLineType3", "30,-10"

MxDrawX1.LineType = "MyLineType3"

MxDrawX1.DrawColor = 255

MxDrawX1.LineWidth = 5

MxDrawX1.DrawPathToPolyline

'《---------------------------------------》

'绘制一个有宽度的矩形框

'定义一个路径的开始点

MxDrawX1.PathMoveTo 400, 300

'路径的一下个点

MxDrawX1.PathLineTo 500, 300

'路径的一下个点

MxDrawX1.PathLineTo 500, 400

'路径的一下个点

MxDrawX1.PathLineTo 400, 400

'把路径设置成闭合

MxDrawX1.PathMakeClosed

MxDrawX1.LineType = ""

MxDrawX1.DrawColor = 65280

MxDrawX1.LineWidth = 10

MxDrawX1.DrawPathToPolyline

'《---------------------------------------》

'绘制一个有宽度的矩形框

'定义一个路径的开始点

MxDrawX1.PathMoveTo 400, 300

'路径的一下个点

MxDrawX1.PathLineTo 500, 300

'路径的一下个点

MxDrawX1.PathLineTo 500, 400

'路径的一下个点

MxDrawX1.PathLineTo 400, 400

'把路径设置成闭合

MxDrawX1.PathMakeClosed

MxDrawX1.LineType = ""

MxDrawX1.DrawColor = 65280

MxDrawX1.LineWidth = 10

MxDrawX1.DrawPathToPolyline

'《---------------------------------------》

'绘制一个有宽度的，不闭合的矩形框

'定义一个路径的开始点

MxDrawX1.PathMoveTo 600, 300

'路径的一下个点

MxDrawX1.PathLineTo 700, 300

'路径的一下个点

MxDrawX1.PathLineTo 700, 400

'路径的一下个点

MxDrawX1.PathLineTo 600, 400

'把路径设置成闭合

MxDrawX1.LineType = ""

MxDrawX1.DrawColor = 65280

MxDrawX1.LineWidth = 10

MxDrawX1.DrawPathToPolyline

'《---------------------------------------》

'绘制一个有宽度的，三角形

'定义一个路径的开始点

MxDrawX1.PathMoveTo 800, 300

'路径的一下个点

MxDrawX1.PathLineTo 900, 300

'路径的一下个点

MxDrawX1.PathLineTo 900, 400

MxDrawX1.PathMakeClosed

'把路径设置成闭合

MxDrawX1.LineType = ""

MxDrawX1.DrawColor = 65280

MxDrawX1.LineWidth = 10

MxDrawX1.DrawPathToPolyline

'《---------------------------------------》

'绘制一个箭头

MxDrawX1.PathMoveToEx 1000, 300, 10, 10, 0

MxDrawX1.PathLineToEx 1000, 500, 30, 0, 0

MxDrawX1.PathLineTo 1000, 580

MxDrawX1.DrawPathToPolyline

'《---------------------------------------》

'绘制一个虚线箭头

MxDrawX1.PathMoveToEx 1200, 300, 10, 10, 0

MxDrawX1.PathLineToEx 1200, 500, 30, 0, 0

MxDrawX1.PathLineTo 1200, 580

MxDrawX1.DrawColor = 65535

MxDrawX1.LineType = "MyLineType3"

MxDrawX1.DrawPathToPolyline

'《---------------------------------------》

'绘制一个圆弧箭头,-0.34是圆弧的凸度.

'MxDrawX1.PathMoveToEx 1400, 300, 10, 10, -0.34

MxDrawX1.PathMoveToEx 1400, 300, 10, 10, -0.34

MxDrawX1.PathLineToEx 1400, 500, 30, 0, 0.34

MxDrawX1.PathLineTo 1400, 600

MxDrawX1.DrawColor = 16776960

MxDrawX1.LineType = "MyLineType3"

MxDrawX1.DrawPathToPolyline

'《---------------------------------------》

'把所有的实体都放到当前显示视区

MxDrawX1.ZoomAll

'更新视区显示

MxDrawX1.UpdateDisplay

End Sub