[讨论]GetKeyWord设置默认值
代码如下：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，请问怎么达到这个目的。
谢谢大家的建议！
顶顶 Select Case strCal_Yjs
Case "No"
strlyrs = "填方标注" & "," & "挖方标注"
Case Else
strlyrs = """填方标注""" & "," & """挖方标注""" & "," & """已计算"""
End Select
页:
[1]