CAD繪制一個角度标注（com接口VB語言）

主要用到函數說明：

_DMxDrawX::DrawDimAngular

繪制一個角度标注。詳細說明如下：

參數	說明
DOUBLE dAngleVertexX	角度标注的頂點的X值
DOUBLE dAngleVertexY	角度标注的頂點的Y值
DOUBLE dFirstEndPointX	角度标注第一個參考線上的點X值
DOUBLE dFirstEndPointY	角度标注第一個參考線上的點Y值
DOUBLE dSecondEndPointX	角度标注第二個參考線上的點X值
DOUBLE dSecondEndPointY	角度标注第二個參考線上的點Y值
DOUBLE dTextPointX	文字位置點X值

Private Sub DrawDimAngular_Click()

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

            MxDrawX1.DimStyle = "MyDimStyle2"

 

            '把顔色改回黑白色

            MxDrawX1.DrawColor = 0

 

            '把線型改成實線

            MxDrawX1.LineType = ""

 

            '設定線寬 4

            MxDrawX1.LineWidth = 0

 

 

            MxDrawX1.DrawDimAngular 500, 5000, 0, 5500, 1000, 5500, 500, 5500

 

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

            MxDrawX1.ZoomAll

 

            '更新視區顯示

            MxDrawX1.UpdateDisplay

 

            End Sub