找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 377|回复: 13

[已解决] xdrx-ui-popupmenu函数的用法

[复制链接]

已领礼包: 199个

财富等级: 日进斗金

发表于 2020-6-11 09:06:00 | 显示全部楼层 |阅读模式
悬赏20D豆已解决
xdrx-ui-popupmenu是下拉菜单函数吧,怎么用法,求解答!!!
手册中没找到。

最佳答案

查看完整内容

同 dos lib 的 dos_popupmenu Displays a user-defined, context-style popup menu. The popup menu can appear almost anywhere. And, it can be dismissed by either clicking the left or right mouse buttons. [hr]Syntax(xdrx_ui_popupmenu menu-items [item-modes])Parametersmenu-itemsA list of string representing the menu items. An empty string, or "", will create a menu separator item. item-modesA list if ...
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 145个

财富等级: 日进斗金

发表于 2020-6-11 09:06:01 | 显示全部楼层
同 dos lib 的 dos_popupmenu
搜狗截图20200611093252.jpg


Displays a user-defined, context-style popup menu. The popup menu can appear almost anywhere. And, it can be dismissed by either clicking the left or right mouse buttons.

Syntax
(xdrx_ui_popupmenu menu-items [item-modes])
Parameters
menu-items
A list of string representing the menu items. An empty string, or "", will create a menu separator item.

item-modes
A list if numbers identifying the display mode of the corresponding menu items. If omitted, all menu items are enabled. Note, although they must be specified, display modes are ignored for menu separators. The display modes are a follows:

0
The menu item is enabled.
1
The menu item is disabled.
2
The menu item is checked.
3
The menu item is disabled and checked.

ReturnsThe index value of the menu item that was picked. Note, menu separators are not included as part of the returned index value.
nil on cancel or on error.
Example
Command: (setq x '("Line" "" "Circle" "Arc"))
("Line" "" "Circle" "Arc")

Command: (setq y '(0 0 1 2))
(0 0 1 2)

Command: (xdrx_ui_popupmenu x y)
0

Command: (xdrx_ui_popupmenu x)
0


点评

api里面有增加cad下拉菜单的函数吗?开原函数库里面没有集合XD::Menu:AddPopupMenu这个函数, 使用起来很不方便,我将XD::Menu:AddPopupMenu函数拷贝到我的程序中去,有时加载不进去。  详情 回复 发表于 2020-6-11 09:40

评分

参与人数 1D豆 +5 收起 理由
dyjwyqz5221 + 5 热心帮忙奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 199个

财富等级: 日进斗金

 楼主| 发表于 2020-6-11 09:40:39 | 显示全部楼层
XDSoft 发表于 2020-6-11 09:34
同 dos lib 的 dos_popupmenu

api里面有增加cad下拉菜单的函数吗?开原函数库里面没有集合XD::Menu:AddPopupMenu这个函数,
使用起来很不方便,我将XD::Menu:AddPopupMenu函数拷贝到我的程序中去,有时加载不进去。

点评

通用LISP函数库有 命令: !XD::Menu:AddPopUp # 这个函数哪里不方便?  详情 回复 发表于 2020-6-11 14:13
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2020-6-11 14:13:09 | 显示全部楼层
dyjwyqz5221 发表于 2020-6-11 09:40
api里面有增加cad下拉菜单的函数吗?开原函数库里面没有集合XD::Menu:AddPopupMenu这个函数,
使用起来 ...

通用LISP函数库有

命令: !XD::Menu:AddPopUp
#<SUBR @0000022136ea5638 XD::MENU:ADDPOPUP>

这个函数哪里不方便?

点评

名称改变了呀!有就很方便  详情 回复 发表于 2020-6-11 14:51

评分

参与人数 1D豆 +5 收起 理由
dyjwyqz5221 + 5 热心帮忙奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 199个

财富等级: 日进斗金

 楼主| 发表于 2020-6-11 14:51:28 | 显示全部楼层
newer 发表于 2020-6-11 14:13
通用LISP函数库有

命令: !XD::Menu:AddPopUp

名称改变了呀!有就很方便
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 199个

财富等级: 日进斗金

 楼主| 发表于 2020-6-11 15:10:29 | 显示全部楼层
命令: _appload 已成功加载 3 文件。
命令: no function definition: XD::MENU:ADDPOPUPMENU
命令: no function definition: XD::MENU:ADDPOPUPMENU
命令: no function definition: XD::MENU:ADDPOPUPMENU
XD::MENU:ADDPOPUPMENU函数应该去掉了,没有了。我测试了下,修改为XD::Menu:AddPopUp

点评

希望上传几个用这个函数写的例子  详情 回复 发表于 2020-6-11 15:21
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2020-6-11 15:21:12 | 显示全部楼层
dyjwyqz5221 发表于 2020-6-11 15:10
命令: _appload 已成功加载 3 文件。
命令: no function definition: XD::MENU:ADDPOPUPMENU
命令: no fu ...

希望上传几个用这个函数写的例子

点评

xd::menu:addpopu函数的用法是不是不对呀,能加载,但是却不能用呀  详情 回复 发表于 2020-6-11 15:37
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 199个

财富等级: 日进斗金

 楼主| 发表于 2020-6-11 15:26:22 | 显示全部楼层
(defun c:load-yjkywkz1()
        (xd::menu:addpopupmenu "yjk平法截面柱表" '(
                                                        ("Tab-1、TAB表格变复线框" "\003\003\yqz-tab ")
                                                        ("Tab-1a、LINE表格线变复线" "\003\003\get-tab ")
                                                        ("Tab-2、框架柱边框换图层、变颜色" "\003\003\bfx-kzxt ")
                                                        ("Tab-3、平法截面柱表详图换图层、变颜色" "\003\003\ch_pfjmxt_layer ")
                                                        ("Tab-4、平法截面柱表正确性检查" "\003\003\chk_kzxt_pfjm ")
                                                        ("Tab-5、生成实配钢筋表" "\003\003\yw-kz-table ")
                                                        ("Tab-6、生成实配钢筋数据表" "\003\003\yw-kzpj-table ")
                                                        ("从施工平面图中复制编号、附加箍筋等至计算配筋平面图" "\003\003\yw-bh-cp ")
                                                        ("js-1、配筋简图中,炸开Mtext文字" "\003\003\mtext-explode ")
                                                        ("js-2、配筋简图中,编号、引线、框架柱边框成组" "\003\003\yw-kz-bh-group ")
                                                        ("js-3、配筋简图中,第js-2步的组与计算配筋再成组" "\003\003\kzjspj-group-yjk ")
                                                        ("《校核1》:框架柱配筋校核" "\003\003\chk-kz-yjk ")
                                                        ("《校核2》:平面图、详图编号比对" "\003\003\chk-bhtable ")
                                                        ("【工具1】:消重及文字替换" "\003\003\DelOverlap-RpTxt ")
                                                        ("【工具2】:解除编组" "\003\003\delgroup ")
                                                        ("")
                                                )
        );;;xd
);;;defun

(defun c:load-yjkywkz()
        (xd::menu:addpopupmenu "yjk框架柱原位标注" '(("pm-1、从施工平面图中抽取详图表" "\003\003\yw-kzxt-cp ")
                                                        ("pm-2、详图正确性检查" "\003\003\chk_kzxt ")
                                                        ("pm-3、生成实配钢筋表" "\003\003\yw-kz-table ")
                                                        ("pm-4、生成实配钢筋数据表" "\003\003\yw-kzpj-table ")
                                                        ("从施工平面图中复制编号、引线等至计算配筋平面图" "\003\003\yw-bh-yx-cp ")
                                                        ("js-1、配筋简图中,炸开Mtext文字" "\003\003\mtext-explode ")
                                                        ("js-2、配筋简图中,编号、引线、框架柱边框成组" "\003\003\yw-kz-bh-group ")
                                                        ("js-3、配筋简图中,第js-2步的组与计算配筋再成组" "\003\003\kzjspj-group-yjk ")
                                                        ("[校核1]:框架柱配筋校核" "\003\003\chk-kz-yjk ")
                                                        ("[校核2]:平面图、详图编号比对" "\003\003\chk-bhtable ")
                                                        ("【工具1】:消重及文字替换" "\003\003\DelOverlap-RpTxt ")
                                                        ("【工具2】:解除编组" "\003\003\delgroup ")
                                                        ("")
                                                )
        );;;xd
);;;defun

(defun c:load-satwe-yjk-jlq()
        (xd::menu:addpopupmenu "Satwe\Yjk剪力墙校核程序" '(       
                                                                ("xt-1a、Tab图层复线表格框生成表格边框" "\003\003\yqz-tab ")
                                                                ("xt-1b、line线型表格框生成表格边框" "\003\003\get-tab ")
                                                                ("xt-2a、详图边缘构件边框变复线1" "\003\003\bfx-jlqxt ")
                                                                ("xt-2b、详图边缘构件边框变复线2" "\003\003\bfx-jlqxt1 ")
                                                                ("xt-2c、详图复线边框换图层、变颜色" "\003\003\chbk ")
                                                                ("xt-3、详图尺寸比例校核" "\003\003\chkdim ")
                                                                ("xt-4、实配纵筋面积标注" "\003\003\mj-jlqzj ")
                                                                ("xt-5、构造面积标注" "\003\003\mj-jlq-gz ")
                                                                ("xt-6、详图附加信息" "\003\003\adddate-table ")
                                                                ("【校核1】:构造面积校核" "\003\003\chk-jlq-gz ")
                                                                ("pm-1a、用填充形成边缘构件边框" "\003\003\bfx-hatch ")
                                                                ("pm-1b、合并边缘构件边框" "\003\003\hatch-boolean ")
                                                                ("pm-2、引线变复线" "\003\003\bfx-yx ")
                                                                ("pm-3、边缘构件边框、引线、编号成组" "\003\003\jlq-bk-yx-bh-group ")
                                                                ("从施工平面图中复制边框、引线、编号等至计算配筋平面图" "\003\003\jlq-bk-bh-cp ")
                                                                ("js-1、边缘构件计算配筋面积数据成组" "\003\003\jlq-jspj-group ")
                                                                ("【校核2】:实配钢筋面积与计算配筋面积校核" "\003\003\chk-jlq-sp ")
                                                                ("【校核3】:平面图、详图形状校核" "\003\003\chk-bk-shape ")
                                                                ("【校核4】:平面图、详图编号校核" "\003\003\chk-bhtable ")
                                                                ("")
                                                        )
        );;;xd
);;;defun

将函数xd::menu:addpopupmenu修改为xd::menu:addpopup就能自动加载下拉菜单了。


点评

试试写一个函数,加载外部的定义文件,生成菜单,这样更方便  详情 回复 发表于 2020-6-11 15:37

评分

参与人数 1D豆 +5 收起 理由
newer + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 199个

财富等级: 日进斗金

 楼主| 发表于 2020-6-11 15:37:10 | 显示全部楼层
newer 发表于 2020-6-11 15:21
希望上传几个用这个函数写的例子

xd::menu:addpopu函数的用法是不是不对呀,能加载,但是却不能用呀
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2020-6-11 15:37:22 | 显示全部楼层
dyjwyqz5221 发表于 2020-6-11 15:26
(defun c:load-yjkywkz1()
        (xd::menu:addpopupmenu "yjk平法截面柱表" '(
                                                        ("Tab-1、TAB表格变复 ...

试试写一个函数,加载外部的定义文件,生成菜单,这样更方便

点评

暂时还不会写,能发给我xd::menu:addpopup函数的参数吗? 用户手册上没有,论坛里也没找到  详情 回复 发表于 2020-6-11 16:04
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 199个

财富等级: 日进斗金

 楼主| 发表于 2020-6-11 16:04:37 | 显示全部楼层
newer 发表于 2020-6-11 15:37
试试写一个函数,加载外部的定义文件,生成菜单,这样更方便

暂时还不会写,能发给我xd::menu:addpopup函数的参数吗?
用户手册上没有,论坛里也没找到

点评

就是上面的 xd::menu:addpopupmenu ;| 函数名称: XD::Menu:AddPopupMenu 调用格式: (XD::Menu:AddPopupMenu menuname lst) 参数说明: name ---- 菜单标题 lst ---- 菜单内容表, 命令部分如 ("MyCommand(&M)"  详情 回复 发表于 2020-6-11 17:00
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2020-6-11 17:00:14 | 显示全部楼层
dyjwyqz5221 发表于 2020-6-11 16:04
暂时还不会写,能发给我xd::menu:addpopup函数的参数吗?
用户手册上没有,论坛里也没找到

就是上面的 xd::menu:addpopupmenu

;|
函数名称:        XD::Menu:AddPopupMenu
调用格式:        (XD::Menu:AddPopupMenu menuname lst)
参数说明:        name ---- 菜单标题
lst ---- 菜单内容表, 命令部分如 ("MyCommand(&M)" "\003\003MyCommand ") 分隔行为 ("")
返回值:        T
函数简介:        动态添加传统Popup菜单
函数来源:        原创
函数作者:        st788796
适用版本:        不限
最后更新时间:        2016-02-26
备注:        示例:
(xd::menu:addpopupmenu "XDSoft" '(("曲线合并(&U)" "\003\003\_xdtb_curveunion ") ("曲线差集(&S)" "\003\003_xdtb_curvesubst ") ("") ))
|;

点评

命令: (c:load-yjkywkz1) Automation 错误。 参数 Label (位于 AddSubMenu 中) 无效 这是咋回事,加载的菜单无函数。 函数我单独加载的。  详情 回复 发表于 2020-6-11 18:20
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 199个

财富等级: 日进斗金

 楼主| 发表于 2020-6-11 18:20:03 | 显示全部楼层
newer 发表于 2020-6-11 17:00
就是上面的 xd::menu:addpopupmenu

;|

命令: (c:load-yjkywkz1)
Automation 错误。 参数 Label (位于 AddSubMenu 中) 无效
这是咋回事,加载的菜单无函数。
函数我单独加载的。

点评

去重新下载 API  详情 回复 发表于 2020-6-11 21:50
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 145个

财富等级: 日进斗金

发表于 2020-6-11 21:50:02 | 显示全部楼层
dyjwyqz5221 发表于 2020-6-11 18:20
命令: (c:load-yjkywkz1)
Automation 错误。 参数 Label (位于 AddSubMenu 中) 无效
这是咋回事,加载 ...

去重新下载 API

评分

参与人数 1D豆 +5 收起 理由
dyjwyqz5221 + 5 热心帮忙奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-28 17:21 , Processed in 0.532096 second(s), 70 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表