绘制一个直线
[id(39), helpstring("method DrawLine")]
LONGLONG DrawLine(DOUBLE dX1, DOUBLE dY1, DOUBLE dX2, DOUBLE dY2);|
参数 |
说明 |
|
DOUBLE dX1 |
直线的开始点x坐标 |
|
DOUBLE dY1 |
直线的开始点y坐标 |
|
DOUBLE dX2 |
直线的结束点x坐标 |
|
DOUBLE dY2 |
直线的结束点y坐标 |
返回直线id
例如: VB代码
Private Sub DrawLine_Click()
'把颜色改回黑白色
MxDrawX1.DrawColor = 0
'把线型改成实线
MxDrawX1.LineType = ""
'设置线宽 4
MxDrawX1.LineWidth = 0
'创建一个图层,名为"LineLayer"
MxDrawX1.AddLayer "LineLayer"
'设置当前图层为"LineLayer"
MxDrawX1.LayerName = "LineLayer"
' 直接绘制一个实线
MxDrawX1.DrawLine 0, 0, 100, 0
' 绘制一个实斜线
MxDrawX1.DrawLine 200, 0, 300, 100
'《---------------------------------------》
'绘制一个虚线
'定义虚线数据据,"MyLineType"是线型名，"6,-8"是虚线的一个单位定义，6是实线长，-8是空格长。
MxDrawX1.AddLinetype "MyLineType", "6,-10"
'设计当前线型为"MyLineType"
MxDrawX1.LineType = "MyLineType"
' 绘制一个虚线
MxDrawX1.DrawLine 0, 30, 100, 30
' 绘制一个斜虚线
MxDrawX1.DrawLine 200, 30, 300, 130
'《---------------------------------------》
' 修改绘线的颜色为 16711680(蓝色), 16711680转成16进制是0xFF 00 00,其中，FF是蓝色，00是绿色，第个二00是红色。
MxDrawX1.DrawColor = 16711680
' 绘制一个蓝色的虚线
MxDrawX1.DrawLine 0, 60, 100, 60
' 绘制一个蓝色的斜虚线
MxDrawX1.DrawLine 200, 60, 300, 160
'《---------------------------------------》
'把颜色改回黑白色
MxDrawX1.DrawColor = 0
'把线型改成实线
MxDrawX1.LineType = ""
'设置线宽 4
MxDrawX1.LineWidth = 4
'绘制一个带宽度的直线。
MxDrawX1.DrawLine 0, 90, 100, 90
' '绘制一个带宽度的斜线
MxDrawX1.DrawLine 200, 90, 300, 190
'《---------------------------------------》
'绘制一个点划线虚线
MxDrawX1.AddLinetype "MyLineType2", "10,-2,3,-2"
'把线型改点划线
MxDrawX1.LineType = "MyLineType2"
' 修改绘线的颜色为 255(红色), 255转成16进制是0x00 00 FF,其中，00是蓝色，第个二00是绿色，FF是红色。
MxDrawX1.DrawColor = 255
'绘制一个带宽度的红色点划线。
MxDrawX1.DrawLine 0, 120, 100, 120
' '绘制一个带宽度红色点划斜线
MxDrawX1.DrawLine 200, 120, 300, 220
'《---------------------------------------》
'增加一个带有形的线型
MxDrawX1.AddTextStyle1 "MyLineTypeTextStyle", "txt.shx", "hztxt.shx", 1
MxDrawX1.AddLinetypeEx "MyLineType3", "(12.7,(""T=MxDraw"",""S=2.54"",""L=-5.08"",""R=0.0"",""X=-2.54"",""Y=-1.27""),-10.08)", "MyLineTypeTextStyle"
MxDrawX1.LineType = "MyLineType3"
MxDrawX1.LineWidth = 0
'绘制一个带宽度的红色点划线。
MxDrawX1.DrawLine 300, 120, 600, 120
' '绘制一个带宽度红色点划斜线
MxDrawX1.DrawLine 400, 120, 600, 220
'把所有的实体都放到当前显示视区
MxDrawX1.ZoomAll
'更新视区显示
MxDrawX1.UpdateDisplay
End Sub