CAD繪制一個半徑标注（com接口VB語言）

主要用到函數說明：

_DMxDrawX::DrawDimRadial

繪制一個半徑标注。詳細說明如下：

參數	說明
DOUBLE dCenterX	被标注的曲線的中點X值
DOUBLE dCenterY	被标注的曲線的中點Y值
DOUBLE dChordPointX	被标注的曲線上的點X值
DOUBLE dChordPointY	被标注的曲線上的點Y值

Private Sub DrawDimRadial_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.DrawDimRadial 500, 6600, 500, 6650, 0

 

'把所有的實體都放到目前顯示視區

MxDrawX1.ZoomAll

 

'更新視區顯示

MxDrawX1.UpdateDisplay

End Sub