use Adddimension2, Prompt box ,See Fig.

Help me, don't Prompt box

Thanks

Sub ll()

  Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2

  Dim SwSelMgr As SelectionMgr, tmp

  Set SwModel = Application.SldWorks.ActiveDoc

  Dim SwSeg As SketchSegment

  Set SwSelMgr = SwModel.SelectionManager

  Set SwSeg = SwSelMgr.GetSelectedObject5(1)

  SwSeg.Select True

  With SwModel

    '.AddDimension2 0.15, 0.2, 0

    .AddDimension 0.15, 0.2, 0

    .ClearSelection2 False

    '.EditUndo 0

  End With

End Sub