0
点赞
收藏
分享

微信扫一扫

CAD绘制一个直径标注(com接口VB语言)

东林梁 2022-07-27 阅读 54


主要用到函数说明:

_DMxDrawX::DrawDimDiametric

绘制一个直径标注。详细说明如下:

参数

说明

DOUBLE dChordPointX

在被标注的曲线上的第一个点X值

DOUBLE dChordPointY

在被标注的曲线上的第一个点Y值

DOUBLE dFarChordPointX

在被标注的曲线上的第二个点X值,这个点与chordPoint直径相对

DOUBLE dFarChordPointY

在被标注的曲线上的第二个点Y值,这个点与chordPoint直径相对

DOUBLE dLeaderLength

输入箭头长度

VB中实现代码说明:

 Private Sub DrawDimDiametric_Click()



MxDrawX1.AddDimStyle "MyDimStyle3", "41,0.18,141,0.09,40,200", "77,1,271,3", "", ""

MxDrawX1.DimStyle = "MyDimStyle3"



'把颜色改回黑白色

MxDrawX1.DrawColor = 0



'把线型改成实线

MxDrawX1.LineType = ""



'设置线宽 4

MxDrawX1.LineWidth = 0





MxDrawX1.DrawDimDiametric 500, 5700, 600, 6000, 100



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

MxDrawX1.ZoomAll



'更新视区显示

MxDrawX1.UpdateDisplay

End Sub

举报

相关推荐

0 条评论