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

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("PE×6", "8", "8")
这里应该是三个参数,都要写上

transteel

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

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

看男篮比赛了！

惊惊晚安。多谢指导！

d1742647821

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