类似“_pedit”弹出式选择菜单的命令

sageman · 发表于 2013-3-21 23:18

请问，怎么实现类似附图的选择菜单命令。如"_pedit"后弹出的菜单。

Gu_xl · 发表于 2013-3-22 08:16

本帖最后由 Gu_xl 于 2013-3-22 08:16 编辑

示例：
(initget 7 "A B C")
(setq kd (getkword "\n[方法A/方法B/方法C]:"))
具体请参阅INITGET、GetKword函数的用法！

阿然 · 发表于 2013-3-22 08:28

本帖最后由阿然于 2013-3-22 08:30 编辑

gu版这个写法在shortcutmenu设置为7的时候有效，一般人如果习惯右键是重复上次命令的操作的话shortcutmnu的设置是为0，上面的代码就不会弹出菜单。

sageman · 发表于 2013-3-22 08:31

Gu_xl 发表于 2013-3-22 08:16
示例：
(initget 7 "A B C")
(setq kd (getkword "\n[方法A/方法B/方法C]:"))

非常感谢！

xiaxiang · 发表于 2013-3-22 09:05

Gu_xl 发表于 2013-3-22 08:16
示例：
(initget 7 "A B C")
(setq kd (getkword "\n[方法A/方法B/方法C]:"))

系统自带命令的弹出菜单可以用鼠标选择进行输入，自定义命令却怎么也不能实现鼠标选择输入，只能命令行输入，请问这是为什么呢

xiaxiang · 发表于 2013-3-22 10:45

Gu_xl 发表于 2013-3-22 08:16
示例：
(initget 7 "A B C")
(setq kd (getkword "\n[方法A/方法B/方法C]:"))

GU版，我指的是动态输入打开时弹出的菜单项，如何用鼠标在菜单项中选择，而不通过命令行输入，如下图

这个我怎么弄都出不来，而pedit命令可以实现，如下图

请问这是为什么呢

xiaxiang · 发表于 2013-3-22 11:40

Gu_xl 发表于 2013-3-22 08:16
示例：
(initget 7 "A B C")
(setq kd (getkword "\n[方法A/方法B/方法C]:"))

复制代码

搞定了，这样做就能弹出右键菜单，跟动态输入没有半毛钱关系！
谢谢Gu版耐心指导！

朽木大师 · 发表于 2013-5-17 08:45

学习中，好方法

账号		自动登录	找回密码
密码			注册

[源码] 类似“_pedit”弹出式选择菜单的命令