设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: Lispboy

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

[复制链接]

已领礼包: 14个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 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豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 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>

点评

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

使用道具 举报

已领礼包: 3457个

财富等级: 富可敌国

发表于 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豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3457个

财富等级: 富可敌国

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

命令: !XD::List:Even

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

点评

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

使用道具 举报

已领礼包: 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已经加载成功了吗?

点评

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

使用道具 举报

已领礼包: 3457个

财富等级: 富可敌国

发表于 2018-9-18 17:23:29 | 显示全部楼层
newer 发表于 2018-9-18 16:44
命令: !xd::begin
#

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

点评

去重新下载下 通用函数库,更新了,然后启动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豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 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

三个看看什么结果

点评

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

使用道具 举报

已领礼包: 3457个

财富等级: 富可敌国

发表于 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

点评

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

使用道具 举报

已领礼包: 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豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 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. )


点评

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

使用道具 举报

已领礼包: 3457个

财富等级: 富可敌国

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

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

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

使用道具 举报

已领礼包: 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豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 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>

点评

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

使用道具 举报

已领礼包: 3457个

财富等级: 富可敌国

发表于 2018-9-19 00:02:36 | 显示全部楼层

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

点评

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2022-10-2 18:01 , Processed in 0.244237 second(s), 54 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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