【已解决】如何实现一个跟随鼠标的菜单？

transteel

你有种再说一遍 发表于 2025-8-5 23:10
它这个应该只是关键字...你看看getstring参数上面的配置里面是不是有

问了下chatgpt大概实现了（虽然还有bug）：

2. Dim promptString As New PromptKeywordOptions(vbCrLf & $"选择管线类型(根据提示输入数字)[SC×1(1)/SC×2(2)/SC×4(3)/SC×6(4)/PE×1(5)/PE×2(6)/PE×4(7)/PE×6(8)/]<{typeindex}>")
   
3. promptString.Keywords.Add("SC×1", "1")
   
4. promptString.Keywords.Add("SC×2", "2")
   
5. promptString.Keywords.Add("SC×4", "3")
   
6. promptString.Keywords.Add("SC×6", "4")
   
7. promptString.Keywords.Add("PE×1", "5")
   
8. promptString.Keywords.Add("PE×2", "6")
   
9. promptString.Keywords.Add("PE×4", "7")
   
10. promptString.Keywords.Add("PE×6", "8")
    
11. 
    
12. ' 获取用户选择的选项
    
13. Dim result As PromptResult = ed.GetKeywords(promptString)
    
14. 
    
15. If result.Status = PromptStatus.OK Then
    
16.     ' 通过选项设置 typeindex
    
17.     typeindex = CInt(result.StringResult)
    
18. End If
    

Dim promptString As New PromptKeywordOptions(vbCrLf & $"选择管线类型(根据提示输入数字)[SC×1(1)/SC×2(2)/SC×4(3)/SC×6(4)/PE×1(5)/PE×2(6)/PE×4(7)/PE×6(8)/]<{typeindex}>")<br /> promptString.Keywords.Add("SC×1", "1")<br /> promptString.Keywords.Add("SC×2", "2")<br /> promptString.Keywords.Add("SC×4", "3")<br /> promptString.Keywords.Add("SC×6", "4")<br /> promptString.Keywords.Add("PE×1", "5")<br /> promptString.Keywords.Add("PE×2", "6")<br /> promptString.Keywords.Add("PE×4", "7")<br /> promptString.Keywords.Add("PE×6", "8")<br /> <br /> ' 获取用户选择的选项<br /> Dim result As PromptResult = ed.GetKeywords(promptString)<br /> <br /> If result.Status = PromptStatus.OK Then<br />     ' 通过选项设置 typeindex<br />     typeindex = CInt(result.StringResult)<br /> End If<br />

bskidtf

看他这个意思，应该就不需要做任何处理，把动态菜单打开就是了。

bskidtf

你有种再说一遍 发表于 2025-8-5 23:10
它这个应该只是关键字...你看看getstring参数上面的配置里面是不是有

大佬的精力好旺盛，怎么调养的。告诉我你的秘方。

transteel

bskidtf 发表于 2025-8-5 23:19
看他这个意思，应该就不需要做任何处理，把动态菜单打开就是了。

CAD二开上，我是新手。问题已经基本解决了（见重新编辑的1楼），感谢指导！

你有种再说一遍

transteel 发表于 2025-8-5 23:18
问了下chatgpt大概实现了（虽然还有bug）：

提示字符串不要写关键字.
关键字会自动出现在提示字符串上面的,如果没有的话,就是有个开关..
而且 promptString.Keywords.Add("8", "8", "8")
这里应该是三个参数,都要写上

transteel

你有种再说一遍 发表于 2025-8-5 23:21
提示字符串不要写关键字.
关键字会自动出现在提示字符串上面的,如果没有的话,就是有个开关..
而且 prom ...

从操作简便的角度看，选择比输入更方便，也不用想输入哪个数字。刚才的代码基本实现的我的诉求，后面的修修补补慢慢来吧。

看男篮比赛了！

惊惊晚安。多谢指导！

d1742647821

应该是这样的keywords.Add("A","A","选项(A)");并且不需要写到message里

箭头_Row

看動圖大致是下面步驟操作：

第一步獲取座標點，判斷操作：
option:點取點則進行接下來插入操作
option:點右鍵則進行右鍵菜單（關鍵字菜單）選取關鍵字操作
        {
              根據關鍵寫對應的更改參數的邏輯;
        }

注意：獲取點時一定要打開可空輸入！

大致代碼如下：

1. public static class CsTest
   
2. {
   
3.     private enum Keywords
   
4.     {
   
5.         [Description("A")]
   
6.         轴类,
   
7. 
   
8.         [Description("S")]
   
9.         设置,
   
10.     }
    
11. 
    
12.     [CommandMethod(nameof(Dg))]
    
13.     public static void Dg()
    
14.     {
    
15.         using var doc = Acaop.DocumentManager.MdiActiveDocument;
    
16.         var ed = doc.Editor;
    
17. 
    
18.         // 以下測試代碼，循環可自行擴展
    
19.         PromptPointOptions ppo = new("\n指定第一个点");
    
20.         ppo.AllowNone = true; // 打开可空才會右鍵彈關鍵字菜單
    
21. 
    
22.         PromptPointResult ppr = Env.Editor.GetPoint(ppo);
    
23.         if (ppr.Status == PromptStatus.None)
    
24.         {
    
25.             PromptKeywordOptions options = new(string.Empty);
    
26.             var keywordsMap = ArEnumEx.GetKeywordsMap<Keywords>();
    
27.             options.AddKeywords([.. keywordsMap.Keys]);
    
28.             options.AppendKeywordsToMessage = false; //不将关键字列表添加到提示信息中
    
29.             options.Message = "\n右鍵彈出菜單示例" + keywordsMap.ToMessage();
    
30. 
    
31.             PromptResult pr = ed.GetKeywords(options);
    
32.             if (pr.Status.CancelPrint())
    
33.                 return;
    
34. 
    
35.             // 進行更改參數的操作
    
36.         }
    
37.         else if (ppr.Status != PromptStatus.OK)
    
38.             return;
    
39. 
    
40.         Point3d ptStart = ppr.Value;
    
41.     }
    
42. }

public static class CsTest<br /> {<br />     private enum Keywords<br />     {<br />         [Description("A")]<br />         轴类,<br /> <br />         [Description("S")]<br />         设置,<br />     }<br /> <br />     [CommandMethod(nameof(Dg))]<br />     public static void Dg()<br />     {<br />         using var doc = Acaop.DocumentManager.MdiActiveDocument;<br />         var ed = doc.Editor;<br /> <br />         // 以下測試代碼，循環可自行擴展<br />         PromptPointOptions ppo = new("\n指定第一个点");<br />         ppo.AllowNone = true; // 打开可空才會右鍵彈關鍵字菜單<br /> <br />         PromptPointResult ppr = Env.Editor.GetPoint(ppo);<br />         if (ppr.Status == PromptStatus.None)<br />         {<br />             PromptKeywordOptions options = new(string.Empty);<br />             var keywordsMap = ArEnumEx.GetKeywordsMap<Keywords>();<br />             options.AddKeywords([.. keywordsMap.Keys]);<br />             options.AppendKeywordsToMessage = false; //不将关键字列表添加到提示信息中<br />             options.Message = "\n右鍵彈出菜單示例" + keywordsMap.ToMessage();<br /> <br />             PromptResult pr = ed.GetKeywords(options);<br />             if (pr.Status.CancelPrint())<br />                 return;<br /> <br />             // 進行更改參數的操作<br />         }<br />         else if (ppr.Status != PromptStatus.OK)<br />             return;<br /> <br />         Point3d ptStart = ppr.Value;<br />     }<br /> }

1. /// <summary>
   
2. /// 獲取關鍵字字典
   
3. /// </summary>
   
4. /// <typeparam name="T">關鍵字枚舉</typeparam>
   
5. /// <returns> Dictionary 快捷鍵,（描述字_中文,Enum值）</returns>
   
6. public static Dictionary<string, (string Key_CN, T enumValue)> GetKeywordsMap<T>()
   
7.      where T : Enum
   
8. {
   
9.      Dictionary<string, (string, T)> keywordsDic = [];
   
10.      var type = typeof(T);
    
11.      var typeDesc = typeof(DescriptionAttribute);
    
12.      foreach (var e in Enum.GetValues(type))
    
13.      {
    
14.          var name = e.ToString();
    
15.          object objArr = type.GetField(name).GetCustomAttributes(typeDesc, true)[0];
    
16.          keywordsDic.Add(((DescriptionAttribute)objArr).Description, (name, (T)e));
    
17.      }
    
18. 
    
19.      return keywordsDic;
    
20. }

/// <summary><br /> /// 獲取關鍵字字典<br /> /// </summary><br /> /// <typeparam name="T">關鍵字枚舉</typeparam><br /> /// <returns> Dictionary 快捷鍵,（描述字_中文,Enum值）</returns><br /> public static Dictionary<string, (string Key_CN, T enumValue)> GetKeywordsMap<T>()<br />      where T : Enum<br /> {<br />      Dictionary<string, (string, T)> keywordsDic = [];<br />      var type = typeof(T);<br />      var typeDesc = typeof(DescriptionAttribute);<br />      foreach (var e in Enum.GetValues(type))<br />      {<br />          var name = e.ToString();<br />          object objArr = type.GetField(name).GetCustomAttributes(typeDesc, true)[0];<br />          keywordsDic.Add(((DescriptionAttribute)objArr).Description, (name, (T)e));<br />      }<br /> <br />      return keywordsDic;<br /> }

感謝驚驚提示的源碼及思路：獲取關鍵字字典。

1. /// <summary>
   
2. /// 获取关键字提示信息行。
   
3. /// </summary>
   
4. /// <param name="keywordsDic">keywords關鍵字字典</typeparam>
   
5. /// <param name="defaultKeyword">可选的默认关键字，非空时添加到结果中</param>
   
6. /// <returns> 返回格式示例：[字典(D)/板厚(T)/层高(H)/完成面(F)/图层(C)]</returns>
   
7. public static StringBuilder ToMessage<T>(
   
8.      this Dictionary<string, (string Key_CN, T enumValue)> keywordsDic,
   
9.      string defaultKeyword = ""
   
10. )
    
11.      where T : Enum
    
12. {
    
13.      int number = 0;
    
14.      StringBuilder keywordNotice = new("[");
    
15.      foreach (var item in keywordsDic)
    
16.      {
    
17.          keywordNotice.Append(item.Value.Key_CN);
    
18.          keywordNotice.Append('(');
    
19.          keywordNotice.Append(item.Key);
    
20.          keywordNotice.Append(')');
    
21.          if (number < keywordsDic.Count - 1)
    
22.              keywordNotice.Append('/');
    
23.          number++;
    
24.      }
    
25. 
    
26.      keywordNotice.Append(']');
    
27. 
    
28.      if (defaultKeyword != string.Empty)
    
29.          if (keywordsDic.ContainsKey(defaultKeyword))
    
30.              keywordNotice.Append($"<{defaultKeyword}>");
    
31.          else // 無默認值時報錯提示
    
32.              throw new ArgumentException("错误的默认值！");
    
33. 
    
34.      return keywordNotice;
    
35. }

/// <summary><br /> /// 获取关键字提示信息行。<br /> /// </summary><br /> /// <param name="keywordsDic">keywords關鍵字字典</typeparam><br /> /// <param name="defaultKeyword">可选的默认关键字，非空时添加到结果中</param><br /> /// <returns> 返回格式示例：[字典(D)/板厚(T)/层高(H)/完成面(F)/图层(C)]</returns><br /> public static StringBuilder ToMessage<T>(<br />      this Dictionary<string, (string Key_CN, T enumValue)> keywordsDic,<br />      string defaultKeyword = ""<br /> )<br />      where T : Enum<br /> {<br />      int number = 0;<br />      StringBuilder keywordNotice = new("[");<br />      foreach (var item in keywordsDic)<br />      {<br />          keywordNotice.Append(item.Value.Key_CN);<br />          keywordNotice.Append('(');<br />          keywordNotice.Append(item.Key);<br />          keywordNotice.Append(')');<br />          if (number < keywordsDic.Count - 1)<br />              keywordNotice.Append('/');<br />          number++;<br />      }<br /> <br />      keywordNotice.Append(']');<br /> <br />      if (defaultKeyword != string.Empty)<br />          if (keywordsDic.ContainsKey(defaultKeyword))<br />              keywordNotice.Append($"<{defaultKeyword}>");<br />          else // 無默認值時報錯提示<br />              throw new ArgumentException("错误的默认值！");<br /> <br />      return keywordNotice;<br /> }

1. /// <summary>
   
2. /// 檢查提示狀態是否為取消狀態，如果是則打印指定消息並返回 true。
   
3. /// </summary>
   
4. /// <param name="status">提示狀態。</param>
   
5. /// <param name="message">要打印的消息，默認為 "*取消*"。</param>
   
6. /// <returns>如果提示狀態不是 OK，則返回 true，否則返回 false。</returns>
   
7. public static bool CancelPrint(this PromptStatus status, string message = "*取消*")
   
8. {
   
9.     if (status == PromptStatus.OK)
   
10.         return false;
    
11. 
    
12.     message.Print();
    
13.     return true;
    
14. }

/// <summary><br /> /// 檢查提示狀態是否為取消狀態，如果是則打印指定消息並返回 true。<br /> /// </summary><br /> /// <param name="status">提示狀態。</param><br /> /// <param name="message">要打印的消息，默認為 "*取消*"。</param><br /> /// <returns>如果提示狀態不是 OK，則返回 true，否則返回 false。</returns><br /> public static bool CancelPrint(this PromptStatus status, string message = "*取消*")<br /> {<br />     if (status == PromptStatus.OK)<br />         return false;<br /> <br />     message.Print();<br />     return true;<br /> }