xdrx-ui-popupmenu函数的用法

dyjwyqz5221

xdrx-ui-popupmenu是下拉菜单函数吧，怎么用法，求解答！！！
手册中没找到。

XDSoft

同 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.

---

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

dyjwyqz5221

XDSoft 发表于 2020-6-11 09:34
同 dos lib 的 dos_popupmenu

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

newer

dyjwyqz5221 发表于 2020-6-11 09:40
api里面有增加cad下拉菜单的函数吗？开原函数库里面没有集合XD::Menu:AddPopupMenu这个函数，
使用起来 ...

通用LISP函数库有

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

这个函数哪里不方便？

dyjwyqz5221

newer 发表于 2020-6-11 14:13
通用LISP函数库有

命令: !XD::Menu:AddPopUp

名称改变了呀！有就很方便

dyjwyqz5221

命令: _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

newer

dyjwyqz5221 发表于 2020-6-11 15:10
命令: _appload 已成功加载 3 文件。
命令: no function definition: XD::MENU:ADDPOPUPMENU
命令: no fu ...

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

dyjwyqz5221

(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就能自动加载下拉菜单了。

dyjwyqz5221

newer 发表于 2020-6-11 15:21
希望上传几个用这个函数写的例子

xd::menu:addpopu函数的用法是不是不对呀，能加载，但是却不能用呀

newer

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

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

dyjwyqz5221

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

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

newer

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 ") ("") ))
|;

dyjwyqz5221

newer 发表于 2020-6-11 17:00
就是上面的 xd::menu:addpopupmenu

;|

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

XDSoft

dyjwyqz5221 发表于 2020-6-11 18:20
命令: (c:load-yjkywkz1)
Automation 错误。 参数 Label (位于 AddSubMenu 中) 无效
这是咋回事，加载 ...

去重新下载 API