SWJUG-RING

SOLIDWORKS Japan User Group 公式コミュニティサイト

初めまして。SW2012　SP５でAPIを作り始めたものです。基本となるCreatelineで32.5度の直線を書こうと思っていますが、プログラムとして走らせると45度の線が引けてしまいます。そこでWait命令でタイミングをずらしたところ、表示ができますが100%ではありません。本来はAddDimension２で角度の設定をすればいいと思いますが自動プロだとなかなかうまくいきません。併せてAdddimension２で2つのライン間の角度を確実に表示する方法はありますでしょうか、以下のプログラムでLINE6、LINE7のBoolはTrueです、APIをやっておられている方にとっては初心者的なことでしょうけど何卒そのお力をお貸しくださるようにお願いします。

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