CAD繪制一個對齊标注（com接口VB語言）

主要用到函數說明：

_DMxDrawX::DrawDimAligned

繪制一個對齊标注。詳細說明如下：

參數	說明
DOUBLE dExtLine1PointX	第一條界線開始點X值
DOUBLE dExtLine1PointY	第一條界線開始點Y值
DOUBLE dExtLine2PointX	第二條界線開始點X值
DOUBLE dExtLine2PointY	第二條界線開始點Y值
DOUBLE dTextPositionX	标注使用的指定标注線位置的定義點X值

Private Sub DrawDimAligned_Click()

            MxDrawX1.AddDimStyle "MyDimStyle", "41,0.18,141,0.09,40,200", "77,1,271,3", "3,""+HZ""", "342,0"

            MxDrawX1.DimStyle = "MyDimStyle"

 

            '把顔色改回黑白色

            MxDrawX1.DrawColor = 0

 

            '把線型改成實線

            MxDrawX1.LineType = ""

 

            '設定線寬 4

            MxDrawX1.LineWidth = 0

 

 

            MxDrawX1.DrawDimAligned 0, 4000, 300, 4500, 150, 4600

 

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

            MxDrawX1.ZoomAll

 

            '更新視區顯示

            MxDrawX1.UpdateDisplay

 

            End Sub