GetKeywords方法默认值问题

河伯

下面的命令输入一个关键字：

2. 
   
3.     <CommandMethod("TT")> Public Sub TT()
   
4.         Dim doc As Document = Application.DocumentManager.MdiActiveDocument
   
5.         Dim ed As Editor = doc.Editor
   
6.         Dim msg As String = "指定偏移距离或 [通过(T)/删除(E)/图层(L)]"
   
7.         Dim keywords As String = "Through Erase Layer"
   
8.         Dim opt As New PromptKeywordOptions(vbLf & msg, keywords)
   
9.         opt.Keywords.Default = "Through"
   
10.         opt.AppendKeywordsToMessage = True
    
11.         opt.AllowNone = True
    
12.         Dim res As PromptResult = ed.GetKeywords(opt)
    
13.         If res.Status <> PromptStatus.OK Then
    
14.             Return
    
15.         End If
    
16.         ed.WriteMessage(vbLf & "res.StringResult={0}", res.StringResult)
    
17.     End Sub

<br />     <CommandMethod("TT")> Public Sub TT()<br />         Dim doc As Document = Application.DocumentManager.MdiActiveDocument<br />         Dim ed As Editor = doc.Editor<br />         Dim msg As String = "指定偏移距离或 [通过(T)/删除(E)/图层(L)]"<br />         Dim keywords As String = "Through Erase Layer"<br />         Dim opt As New PromptKeywordOptions(vbLf & msg, keywords)<br />         opt.Keywords.Default = "Through"<br />         opt.AppendKeywordsToMessage = True<br />         opt.AllowNone = True<br />         Dim res As PromptResult = ed.GetKeywords(opt)<br />         If res.Status <> PromptStatus.OK Then<br />             Return<br />         End If<br />         ed.WriteMessage(vbLf & "res.StringResult={0}", res.StringResult)<br />     End Sub

对比一下该命令和AutoCAD offset命令的提示效果：
命令: _offset
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过>:
命令: tt
指定偏移距离或 [通过(T)/删除(E)/图层(L)] <通过(T)>:

怎样实现offset命令那样的默认值提示，即不提示括号中的内容？

雪山飞狐_lzh

似乎应该用这个？
Editor.GetDistance Method (PromptDistanceOptions)

河伯

前面例子仅仅用于说明问题。
类似问题，GetKeywords如何解决？

雪山飞狐_lzh

我就是这个意思，：）
你要的效果GetKeywords是实现不了的，只能用其他的Get，并加Keywords

河伯

添加下面代码，问题解决，估计AutoCAD东亚语言版本也是这么做的。：）

2.         Dim strDisplay As String = opt.Keywords.GetDisplayString(False)
   
3.         Dim i = strDisplay.IndexOf("<")
   
4.         Dim j = strDisplay.IndexOf(">")
   
5.         If i >= 0 And j >= 0 Then
   
6.             Dim strDefault As String = strDisplay.Substring(i, j - i + 1)
   
7.             i = strDisplay.IndexOf("(")
   
8.             j = strDisplay.IndexOf(")")
   
9.             strDefault = strDefault.Remove(i, j - i + 1)
   
10.             opt.Message = vbLf & msg & " " & strDefault
    
11.             opt.AppendKeywordsToMessage = False
    
12.         End If

        Dim strDisplay As String = opt.Keywords.GetDisplayString(False)<br />         Dim i = strDisplay.IndexOf("<")<br />         Dim j = strDisplay.IndexOf(">")<br />         If i >= 0 And j >= 0 Then<br />             Dim strDefault As String = strDisplay.Substring(i, j - i + 1)<br />             i = strDisplay.IndexOf("(")<br />             j = strDisplay.IndexOf(")")<br />             strDefault = strDefault.Remove(i, j - i + 1)<br />             opt.Message = vbLf & msg & " " & strDefault<br />             opt.AppendKeywordsToMessage = False<br />         End If

雪山飞狐_lzh

有时间看看这方面的东东，：）