行ラベルを描くCAD（COM VBインターフェース言語）

免責事項：この記事はブロガーオリジナル記事ですが、許可ブロガーなく再生してはなりません。https://blog.csdn.net/u013725001/article/details/91792669

機能の主な用途：

_DMxDrawX :: DrawDimRotated

行ラベルを描画します。詳細は以下のとおりです。

パラメータ	説明
DOUBLE dExtLine1PointX	第一の入力線の点のX値を開始
DOUBLE dExtLine1PointY	第1の境界値Yの出発点を入力します。
DOUBLE dExtLine2PointX	2ライン目の入力開始点のX値
DOUBLE dExtLine2PointY	2ライン目の入力Yの値を開始
DOUBLE dDimLineLocationX	ライン自体の入力点マークX値
DOUBLE dDimLineLocationY	ライン自体によって示されるY値の入力点
DOUBLE dRotationAngle	マークされた入力回転角

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