0
点赞
收藏
分享

微信扫一扫

CAD绘制一个角度标注(com接口VB语言)

八怪不姓丑 2022-07-27 阅读 84


主要用到函数说明:

_DMxDrawX::DrawDimAngular

绘制一个角度标注。详细说明如下:

参数

说明

DOUBLE dAngleVertexX

角度标注的顶点的X值

DOUBLE dAngleVertexY

角度标注的顶点的Y值

DOUBLE dFirstEndPointX

角度标注第一个参考线上的点X值

DOUBLE dFirstEndPointY

角度标注第一个参考线上的点Y值

DOUBLE dSecondEndPointX

角度标注第二个参考线上的点X值

DOUBLE dSecondEndPointY

角度标注第二个参考线上的点Y值

DOUBLE dTextPointX

文字位置点X值

DOUBLE dTextPointY

文字位置点Y值

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

举报

相关推荐

0 条评论