CAD绘制一个线型标注，com接口VB语言 - 梦想CAD控件

2024-05-12 05:17•JavaScript•阅读 3389

主要用到函数说明：

_DMxDrawX::DrawDimRotated

绘制一个线型标注。详细说明如下：

VB中实现代码说明：

Private Sub DrawDimRotated_Click()

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

MxDrawX1.DimStyle ="MyDimStyle4"

\'把颜色改回黑白色

MxDrawX1.DrawColor = 0

\'把线型改成实线

MxDrawX1.LineType =""

\'设置线宽 4

MxDrawX1.LineWidth = 0

MxDrawX1.DrawDimRotated 0, 7000, 500, 7000, 250, 7050, 0

MxDrawX1.DrawDimRotated 0, 7200, 0, 7400, 150, 7300, 0.771

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

MxDrawX1.ZoomAll

\'更新视区显示

MxDrawX1.UpdateDisplay

End Sub