CreateLineがうまく弾けない

皆様、SW2012 SP5で主にAPIをEXCEL VBAで作成しています。

SWは久振りなんですが、一番基本となるべきCREATELINEで角度を設定して描こうと思っているのですがなぜか100%同じ結果が得られません。例えば32.5度の線を描こうと思うのですが45度の線を引いてしまいます。そこでタイミングをずらすWAITを入れてみたのですがこれも100%ではありません。書き方で間違いがあるのでしょうか。なにとぞお知恵を拝借したいと思います。また、AddDimensionで角度を表示したいのですが確実な方法はありますでしょうか

Part.ClearSelection2 True
'D6を書く
Dim Sun_Pou, Sun_PouS As Double
Sun_Pou = (D4_m - D3_m) / 2
'D6の寸法

Sun_PouS = (Sun_Pou - D5_m) * Math.Tan(32.5 / 180 * Pi) 'x座標
''''' Sun_PouS = (Sun_Pou - D5_m) * Math.Tan(D6_r) 'x座標

Part.ClearSelection2 True
Dim x_temp, y_temp, z_temp, x1_temp, y1_temp, z1_temp As Double
x_temp = -1 * Haba_A_m
y_temp = D3_m / 2 + D5_m
x1_temp = -1 * Haba_A_m + Sun_PouS
y1_temp = D4_m / 2
Dim waitTime As Variant
waitTime = Now + TimeValue("0:00:010")
Application.Wait waitTime

Set skSegment = Part.SketchManager.CreateLine(x_temp, y_temp, 0#, x1_temp, y1_temp, 0#) 'line6

boolstatus = Part.Extension.SelectByID2("Line6", "SKETCHSEGMENT", -1 * Haba_A_m, D3_m / 2 + D5_m / 2, 0#, False, 0, Nothing, 0) '真ん中
boolstatus = Part.Extension.SelectByID2("Line7", "SKETCHSEGMENT", -1 * Haba_A_m + Sun_PouS, D4_m / 2, 0, False, 0, Nothing, 0) '一番上
' Dim myDisplayDim As Object
Set myDisplayDim = Part.AddDimension2(-1 * Haba_A_m + Sun_PouS / 2, D4_m / 2 + Sun_Pou / 3, 0#) '書く場所
Set mydimension = Part.Parameter("D6@スケッチ2")
Part.ClearSelection2 True