CAD绘制一个直径标注（com接口VB语言）

主要用到函数说明：

 

_DMxDrawX::DrawDimDiametric

 

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

 

参数	说明
DOUBLE dChordPointX	在被标注的曲线上的第一个点X值
DOUBLE dChordPointY	在被标注的曲线上的第一个点Y值
DOUBLE dFarChordPointX	在被标注的曲线上的第二个点X值，这个点与chordPoint直径相对
DOUBLE dFarChordPointY	在被标注的曲线上的第二个点Y值，这个点与chordPoint直径相对
DOUBLE dLeaderLength	输入箭头长度

 

VB中实现代码说明：

 

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

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