[讨论]GetKeyWord设置默认值

robbin840311

代码如下：

  Dim strCal_Yjs As String  '判断“已计算”层的值是否也参加计算
  Dim strlyrs As String
 
  With ThisDrawing.Utility
    .InitializeUserInput 1, "Yes No"
    strCal_Yjs = .GetKeyword(vbCr & "已计算层的值是否加入计算？[是(Y)/否(N)]：")
  End With
 
  Select Case strCal_Yjs
    Case "Yes"
      strlyrs = """填方标注""" & "," & """挖方标注""" & "," & """已计算"""
    Case "No"
      strlyrs = "填方标注" & "," & "挖方标注"
  End Select

  ThisDrawing.Utility.Prompt vbCr & strlyrs

我想实现的功能是，当提示用户输入Y或N的时候，默认值设为Y，请问怎么达到这个目的。

谢谢大家的建议！

robbin840311

顶  顶

fjfhgdwfn

 Select Case strCal_Yjs
        Case "No"
      strlyrs = "填方标注" & "," & "挖方标注"

     Case Else
      strlyrs = """填方标注""" & "," & """挖方标注""" & "," & """已计算"""

  End Select