明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 146|回复: 5

[提问] 加载菜单问题

[复制链接]
发表于 2020-6-29 23:55 | 显示全部楼层 |阅读模式
(defun FyCadMenu  ( / )
   (if (and (findfile "FyCad.mns") (= (menugroup "FyCad") nil))
    (progn
       (setvar "filedia" 0)
       (vl-cmdf "menuload" "FyCad.mns")
       (setvar "filedia" 1)
       (princ "\n FyCad加载成功")
    )
  )
);end FyCadMenu
(FyCadMenu)

我写的菜单加载的代码如上,加载启动项里面
启动 就会出现如下提示:


输入要加载的自定义文件的名称: FyCad.mns加载自定义文件成功。自定义组: FYCAD FyCad加载成功 *取消*输入要加载的自定义文件的名称:


虽然菜单是加载上了,可是为啥会有后面一串 “XXXXX取消的”的提示



发表于 2020-6-30 08:08 | 显示全部楼层
是不是你没关闭回显的原因。
 楼主| 发表于 2020-6-30 20:54 | 显示全部楼层
烟盒迷唇 发表于 2020-6-30 08:08
是不是你没关闭回显的原因。

不是我关了回显也会这样,感觉是被执行了两次 第一次正确的,第二次因为已经加载了菜单,所以会提示错误,可没找到执行两次的理由啊  
发表于 2020-7-1 18:14 | 显示全部楼层
(defun FyCadMenu  ( / )
   (if (and (findfile "FyCad.mns") (= (menugroup "FyCad") nil))
    (progn
       (setvar "filedia" 0)
       (vl-cmdf "menuload" "FyCad.mns")
        (princ "\n FyCad加载成功")
       (setvar "filedia" 1)
    )
  )
)
 楼主| 发表于 2020-7-1 23:15 | 显示全部楼层
我查阅了论坛 不是我一个人在问,好像也没解决方式,话题到此为止了,想法换别的方式加载菜单
发表于 2020-7-2 10:43 | 显示全部楼层
muwind 发表于 2020-7-1 23:15
我查阅了论坛 不是我一个人在问,好像也没解决方式,话题到此为止了,想法换别的方式加载菜单

你好能发下我qq吗
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2020 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2020-7-8 08:02 , Processed in 0.300806 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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