【求助】这样的对话框用LISP能搞出不？

wowan1314 · 发表于 2013-5-3 20:00:04

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 wowan1314 于 2013-5-19 11:55 编辑

看到这个演示图，发现这个对话框可以点哪里就从哪里出现。不知道DCL或ODCL能否实现？

下面演示是MSTEEL工具的。我只想到用MENUCMD来实现。

cxjzxf · 发表于 2013-5-3 21:41:17

我想了解下，看上去挺不错的。

xshrimp · 发表于 2013-5-3 22:04:55

dcl是肯定实现不了,odcl应该可以的.

牢固 · 发表于 2013-5-3 22:27:55

这个应该是可以实现的，既不用Dcl，也不用OpenDcl！可以使用Grread来实现！
实现思路：
1、当需要调出菜单时，根据屏幕大小，在鼠标位置用Line和Mtext绘制出菜单！绘制菜单时，可在菜单下绘制一个wipeout，用以覆盖菜单下的对象！
2、用while 循环，根据GRRead的鼠标位置来判断判断鼠标位于菜单的哪一格，或者也可以根据鼠标的位置直接选取菜单中的MText来判断鼠标的位置，单鼠标位于某一各中时，将该格的MTEXT的背景改为灰色或其它什么颜色以示选中，鼠标离开该格时，恢复先前选中的MTEXT的背景，重新显示选中的格子的MTEXT背景颜色
3、当点击鼠标左键，表示选中某一格后，删除菜单，根据选中的内容继续往下执行！

4、可以用鼠标右键来确认取消菜单，删除菜单！

ScmTools · 发表于 2013-5-4 09:03:53

CAD高版本就有类似的菜单

userzhl · 发表于 2013-5-4 10:31:06

ScmTools 发表于 2013-5-4 09:03

登录/注册后可看大图

CAD高版本就有类似的菜单

CAD高版本就有类似的菜单.?

wowan1314 · 发表于 2013-5-4 11:12:32

本帖最后由 wowan1314 于 2013-5-4 11:38 编辑

好像CAD04没有文字背景。。故按我的理解调整了下. 水平有限欢迎拍砖。

实现思路：

1、当需要菜单时，根据屏幕大小，在鼠标位置用Line和text绘制出菜单！可先在菜单下绘制一个wipeout，用以覆盖菜单下的对象！鼠标位置可根据ENTSEL、getpopint,或所选对象的插入点来确定，《就精确度及效果来说用ENTSEL或也用GRREAD最佳》

2、用while 循环，①根据GRRead的鼠标位置来判断判断鼠标位于菜单的哪一格，②或者也可以根据鼠标的位置直接选取菜单中的Text来判断鼠标的位置。当鼠标位于某一格中时，将该格用SOLD填充颜色为灰色以示选中（文字要前置），鼠标离开该格时，删除该SOLD填充。《就精确度来说用第一种方法判断鼠标位置为最佳》

3、①当点击鼠标左键，表示选中某一格后，删除菜单.WIPEOUT.SOLD.根据选中的内容继续往下执行！

②当点击鼠标右键则表示不需要修改，那么删除菜单.WIPEOUT.SOLD.退出程序。

补充：如果要显示当前已选文字，那么做菜单时直接在该文字下用灰色SOLD填充。
而第二步中的“以示选中”则利用把文字放大1.2倍并改变颜色且亮显。以示选中。

另外如果绘制的菜单超出屏幕显示范围还需要调整菜单位置。

暂时想到这么多，有时间尝试做个出来看看效果。貌似工程量不小啊。(文字居中对齐，根据文字插点及字高得到格子大小)

ScmTools · 发表于 2013-5-4 15:35:52

userzhl 发表于 2013-5-4 10:31

登录/注册后可看大图

CAD高版本就有类似的菜单.?

类似选择菜单

userzhl · 发表于 2013-5-4 17:15:54

ScmTools 发表于 2013-5-4 15:35

登录/注册后可看大图

类似选择菜单

这种我也做出来了，但感觉不实用。不方便

pengfei2010 · 发表于 2013-5-25 14:40:35

真的长见识了啊，呵呵高手如云

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

[求助] 【求助】这样的对话框用LISP能搞出不？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

评分

点评

评分