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

主要用到函數說明：

_DMxDrawX::DrawDimDiametric

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

參數	說明
DOUBLE dChordPointX	在被标注的曲線上的第一個點X值
DOUBLE dChordPointY	在被标注的曲線上的第一個點Y值
DOUBLE dFarChordPointX	在被标注的曲線上的第二個點X值，這個點與chordPoint直徑相對
DOUBLE dFarChordPointY	在被标注的曲線上的第二個點Y值，這個點與chordPoint直徑相對

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