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

ありがとうございます。当方社内プログラマーなので図面は普段書きません。

今回も辻さんの指摘が無かったらこのコマンドまでたどり着かなかったかもしれません。

逆に普段図面描かないのでそちらのほうで特化できればと考えています。

昔は代理店やHELPDESKに見たいのに相談でしたが、フォーラムで解決できるのはMS化しているのではないかと

思っています。また、ご指摘のSELECTBYID2もなかなか難問です。

すいません。初心者なのでまた聞くともいます

これは西田さんの大好きな「SelectByID2」の場合ですね。
確かにズームアウトして縮小表示されている場合は座標で選択するのは困難になりますね。

なので私はオブジェクトが取得（変数に格納）されているなら、なるべくそのオブジェクトに合った「Select※」メソッドで直接選択するようにしています。

どうやらこれでうまくいったようです。

大変ありがとうございました。

こんなこともあるんですね。

https://help.solidworks.com/2019/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.isketchmanager~addtodb.html

"CreateLine"の前に"SketchMgr.AddtoDB=True"、後でFalseに戻します。

SWでは何というのかわかりませんが　直こう　ONで　90　あるいは　45度でとらえてしまうことでしょうか。

APIの具体的なサンプロが見つかりませんが、辻様がもしも参考にされているものがあったらお教え願います。

多分　swModel.SketchManager.AddToDB = True　を　swModel.SketchManager.AddToDB = Falseでいいとは

思いますがやってみます