设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 每日插件 › 给论坛插件定制自己的快捷非模式对话框菜单（一） ...
12345下一页
返回列表 发新帖
楼主: Lispboy

给论坛插件定制自己的快捷非模式对话框菜单（一）

[复制链接]
上官子尘15

已领礼包: 14个

财富等级: 恭喜发财
发表于 2018-9-18 15:14:06 | 显示全部楼层
看起来挺不错的样子
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

marting

已领礼包: 20个

财富等级: 恭喜发财
发表于 2018-9-18 16:02:07 | 显示全部楼层
lj524917100 发表于 2018-9-18 15:00
命令: (vl-load-com)
命令: (load "xd-lisp-lib.vlx")
晓东通用LISP函数库Build 2018.09.18加载完毕... ...

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

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2018-9-18 16:12:36 | 显示全部楼层
lj524917100 发表于 2018-9-18 15:00
命令: (vl-load-com)
命令: (load "xd-lisp-lib.vlx")
晓东通用LISP函数库Build 2018.09.18加载完毕... ...

按marting说的做完，!XD::List:Even 下这个，看有定义没

命令: !XD::List:Even
#<SUBR @0000000037df95e8 XD::LIST:EVEN>

点评

lj524917100
这个板面还是出不来，不知道为什么  详情 回复 发表于 2018-9-18 16:28
lj524917100
命令: !XD::List:Even # 安装的是最新的api  详情 回复 发表于 2018-9-18 16:27
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lj524917100

已领礼包: 3619个

财富等级: 富可敌国
发表于 2018-9-18 16:27:13 | 显示全部楼层
newer 发表于 2018-9-18 16:12
按marting说的做完，!XD::List:Even 下这个，看有定义没

命令: !XD::List:Even

命令: !XD::List:Even
#<SUBR @00000000348a8660 XD::LIST:EVEN>
安装的是最新的api
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lj524917100

已领礼包: 3619个

财富等级: 富可敌国
发表于 2018-9-18 16:28:21 | 显示全部楼层
newer 发表于 2018-9-18 16:12
按marting说的做完，!XD::List:Even 下这个，看有定义没

命令: !XD::List:Even

这个板面还是出不来，不知道为什么

点评

newer
命令: !xd::begin # 命令: !xd::odcl:menu # 上面这两个分别是什么，你那？ 启动CAD后，提示你OPENDCL已经加载成功了吗？  详情 回复 发表于 2018-9-18 16:44
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2018-9-18 16:44:11 | 显示全部楼层
lj524917100 发表于 2018-9-18 16:28
这个板面还是出不来，不知道为什么

命令: !xd::begin
#<SUBR @000000003ba24ae8 XD::BEGIN>

命令: !xd::odcl:menu
#<SUBR @000000003343a890 XD::ODCL:MENU>

上面这两个分别是什么，你那？

启动CAD后，提示你OPENDCL已经加载成功了吗？

点评

lj524917100
命令: !xd::begin nil 命令: !xd::odcl:menu nil opendcl加载成功了  详情 回复 发表于 2018-9-18 17:23
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lj524917100

已领礼包: 3619个

财富等级: 富可敌国
发表于 2018-9-18 17:23:29 | 显示全部楼层
newer 发表于 2018-9-18 16:44
命令: !xd::begin
#

命令: !xd::begin
nil
命令: !xd::odcl:menu
nil
opendcl加载成功了

点评

XDSoft
去重新下载下 通用函数库，更新了，然后启动CAD后，F2文本屏幕截屏贴上来 http://bbs.xdcad.net/thread-669133-1-1.html 依次 !xd::list:even !xd::begin !xd::odcl:menu 三个看看什么结果  详情 回复 发表于 2018-9-18 18:49
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2018-9-18 18:49:41 | 显示全部楼层
lj524917100 发表于 2018-9-18 17:23
命令: !xd::begin
nil
命令: !xd::odcl:menu

去重新下载下 通用函数库，更新了，然后启动CAD后，F2文本屏幕截屏贴上来
http://bbs.xdcad.net/thread-669133-1-1.html


依次

!xd::list:even

!xd::begin

!xd::odcl:menu

三个看看什么结果

点评

lj524917100
┌─────────────────────────────────────────────┐ │ ≡ XDRX_API For AutoCAD Build 2018.09.17 ≡ │ │ http://www.xdcad.net Mail:7598165@qq.com │  详情 回复 发表于 2018-9-18 19:38
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lj524917100

已领礼包: 3619个

财富等级: 富可敌国
发表于 2018-9-18 19:38:51 | 显示全部楼层
XDSoft 发表于 2018-9-18 18:49
去重新下载下 通用函数库，更新了，然后启动CAD后，F2文本屏幕截屏贴上来
http://bbs.xdcad.net/thread- ...

┌─────────────────────────────────────────────┐
│  ≡ XDRX_API For AutoCAD Build 2018.09.17 ≡  │
│  http://www.xdcad.net  Mail:7598165@qq.com  │
└─────────────────────────────────────────────┘

AutoCAD Express Tools Copyright ?2002-2004 Autodesk, Inc.
晓东通用LISP函数库Build 2018.09.18加载完毕...
Application Error: 0 :- Automation 错误。 加载应用程序时出现问题
单机授权(ITRZSQMPKYXDQCWL)已过期！
≡ 欢迎使用探索者TSSD产品 2017版 ≡
AutoCAD 菜单实用工具 已加载。
加载Lisp->D:\l-cadx\Program\L-程序\L-配置.lspEF_Lib.vlx加载完成
正在重生成模型。
OpenDCL Runtime [9.0.1.5] 已加载

命令: !xd::list:even
#<SUBR @0000000035395520 XD::LIST:EVEN>
命令: !xd::begin
nil
命令: !xd::odcl:menu
nil

点评

newer
应该是你的系统却文件 下面每个，一次执行，看看哪个出现错误提示 1、 2、 3、 4、 5、 6、 7、 8、  详情 回复 发表于 2018-9-18 22:55
XDSoft
你这有错误提示了 晓东通用LISP函数库Build 2018.09.18加载完毕... Application Error: 0 :- Automation 错误。 加载应用程序时出现问题 1、启动前，你下载的新的函数库，覆盖API 的SYS目录下同名文件了吗？  详情 回复 发表于 2018-9-18 22:10
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

XDSoft

已领礼包: 145个

财富等级: 日进斗金
发表于 2018-9-18 22:10:57 | 显示全部楼层
lj524917100 发表于 2018-9-18 19:38
┌─────────────────────────────────────────────┐
│ ...

你这有错误提示了

晓东通用LISP函数库Build 2018.09.18加载完毕...
Application Error: 0 :- Automation 错误。 加载应用程序时出现问题

1、你去下载最新的 通用LISP函数库了吗？
2、启动前，你下载的新的函数库，覆盖API 的SYS目录下同名文件了吗？看你的提示版本是09.18，不对，你新下载的函数库，应该是09.28
3、启动后，你在加载LISP函数库


(load "xd-lisp-lib.vlx") , 看看还有上面的错误提示没？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2018-9-18 22:55:19 | 显示全部楼层
lj524917100 发表于 2018-9-18 19:38
┌─────────────────────────────────────────────┐
│ ...

应该是你的系统却文件

下面每个，依次执行，看看哪个出现错误提示
1、
  1. (vl-load-com)

2、
  1. (or *XD:WSH* (setq *XD:WSH* (vlax-get-or-create-object "wscript.shell")))

3、
  1. (or *XD:FSO*
  2.     (setq *XD:FSO* (vlax-get-or-create-object "scripting.filesystemobject"))
  3. )

4、
  1. (or *XD:Acad* (setq *XD:Acad* (vlax-get-acad-object)))

5、
  1. (or *XD:Doc* (setq *XD:Doc* (vla-get-activedocument *XD:Acad*)))

6、
  1. (or *XD:MSpace* (setq *XD:MSpace* (vla-get-modelspace *XD:Doc*)))

7、
  1. (or *XD:PSpace* (setq *XD:PSpace* (vla-get-paperspace *XD:Doc*)))

8、
  1. (or *XD:DbDoc*
  2.     (setq *XD:DbDoc* (vla-getinterfaceobject
  3.                        *XD:Acad*
  4.                        (if (< (atoi (getvar 'acadver)) 16)
  5.                          "objectdbx.axdbdocument"
  6.                          (strcat "objectdbx.axdbdocument."
  7.                                  (itoa (atoi (getvar 'acadver)))
  8.                          )
  9.                        )
  10.                      )
  11.     )
  12. )


点评

newer
直接点 执行上面的，有什么提示？  详情 回复 发表于 2018-9-18 23:30
newer
直接点 执行上面的，有什么提示？  详情 回复 发表于 2018-9-18 23:30
lj524917100
在第8步没反应，这个是什么问题  详情 回复 发表于 2018-9-18 23:10
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lj524917100

已领礼包: 3619个

财富等级: 富可敌国
发表于 2018-9-18 23:10:56 | 显示全部楼层
newer 发表于 2018-9-18 22:55
应该是你的系统却文件

下面每个，依次执行，看看哪个出现错误提示

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

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2018-9-18 23:30:10 | 显示全部楼层
newer 发表于 2018-9-18 22:55
应该是你的系统却文件

下面每个，依次执行，看看哪个出现错误提示

直接点

  1. (vla-getinterfaceobject
  2.   (vlax-get-acad-object)
  3.   (if (< (atoi (getvar 'acadver)) 16)
  4.     "objectdbx.axdbdocument"
  5.     (strcat "objectdbx.axdbdocument."
  6.             (itoa (atoi (getvar 'acadver)))
  7.     )
  8.   )
  9. )


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

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2018-9-18 23:30:11 | 显示全部楼层
本帖最后由 newer 于 2018-9-18 23:31 编辑
newer 发表于 2018-9-18 22:55
应该是你的系统却文件

下面每个，依次执行，看看哪个出现错误提示

直接点

  1. (vla-getinterfaceobject
  2.   (vlax-get-acad-object)
  3.   (if (< (atoi (getvar 'acadver)) 16)
  4.     "objectdbx.axdbdocument"
  5.     (strcat "objectdbx.axdbdocument."
  6.             (itoa (atoi (getvar 'acadver)))
  7.     )
  8.   )
  9. )


执行上面的，有什么提示？ 正常应该返回类似： #<VLA-OBJECT IAxDbDocument 000000003a5dd140>

点评

lj524917100
什么提示都没有，没有返回结果  详情 回复 发表于 2018-9-19 00:02
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lj524917100

已领礼包: 3619个

财富等级: 富可敌国
发表于 2018-9-19 00:02:36 | 显示全部楼层
newer 发表于 2018-9-18 23:30
直接点

什么提示都没有，没有返回结果

点评

newer
ACAD没有装好，要想不重装，试下下载附件，导入注册表，然后在试试 适合2014，修复OBJECTDBX没装好的问题  详情 回复 发表于 2018-9-19 00:10
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
12345下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-12-25 15:49 , Processed in 0.513421 second(s), 56 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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