绘制一个角度标注
[id(99), helpstring("method DrawDimAngular")]
LONGLONG DrawDimAngular(DOUBLE dAngleVertexX, DOUBLE dAngleVertexY, DOUBLE dFirstEndPointX, DOUBLE dFirstEndPointY, DOUBLE dSecondEndPointX, DOUBLE dSecondEndPointY, DOUBLE dTextPointX, DOUBLE dTextPointY);|
参数 |
说明 |
|
DOUBLE dAngleVertexX |
角度标注的顶点的X值 |
|
DOUBLE dAngleVertexY |
角度标注的顶点的Y值 |
|
DOUBLE dFirstEndPointX |
角度标注第一个参考线上的点X值 |
|
DOUBLE dFirstEndPointY |
角度标注第一个参考线上的点Y值 |
|
DOUBLE dSecondEndPointX |
角度标注第二个参考线上的点X值 |
|
DOUBLE dSecondEndPointY |
角度标注第二个参考线上的点Y值 |
|
DOUBLE dTextPointX |
文字位置点X值 |
|
DOUBLE dTextPointY |
文字位置点Y值 |
返回新绘制的标注id
例如: VB代码
Private Sub DrawDimAngular_Click()
MxDrawX1.AddDimStyle "MyDimStyle2", "41,0.18,141,0.09,40,200", "77,1,271,3", "", ""
MxDrawX1.DimStyle = "MyDimStyle2"
'把颜色改回黑白色
MxDrawX1.DrawColor = 0
'把线型改成实线
MxDrawX1.LineType = ""
'设置线宽 4
MxDrawX1.LineWidth = 0
MxDrawX1.DrawDimAngular 500, 5000, 0, 5500, 1000, 5500, 500, 5500
'把所有的实体都放到当前显示视区
MxDrawX1.ZoomAll
'更新视区显示
MxDrawX1.UpdateDisplay
End Sub