麻烦长老们编写这样一个判断程序

明天你好 · 发表于 2014-10-1 18:53:21

本帖最后由明天你好于 2014-10-1 18:55 编辑

论坛很多插件很好用，但是都需要加载XDAPI ，能不能请各位长老写这个这样的样序，可以把它放到现有程序中？需要以下功能

1. 判断XDAPI 是否加载
2.如果没有加载，就根据CAD版本，在CAD支持目录下搜索到对应版本的API，然后加载
3.如果没有搜索到，就提示“需要加载XDAPI”才可运行，然后退出。如果搜索到了就加载后继续运行下面的代码
本人小白，想直接把这样功能的代码放到现有用XDAPI编写的程序中，比如ST长老的智能标注

(defun c:XDTB_AutoDim (/ _getdimline _setrotation
_getpoint callback bp1 bp2
an1 an2 dm _highlight
myerr olderr
)
(defun myerr (msg)
(princ "\n*取消*")
(setq *error* olderr)
(xdrx_pointmonitor)
(if dm
(xdrx_entity_delete dm)
)
(princ)
)
...............
..........
.......

st788796 · 发表于 2014-10-1 19:16:33

加载 xd-lisp-lib.vlx 就会根据版本自动加载 api 的

明天你好 · 发表于 2014-10-1 19:30:11

st788796 发表于 2014-10-1 19:16
加载 xd-lisp-lib.vlx 就会根据版本自动加载 api 的

刚才发现一个问题，ST长老，用的最新版智能标注，刚刚取消时显示 ; 错误: no function definition: CALLBACK，按ESC都取消不了，不停的刷命令栏

明天你好 · 发表于 2014-10-1 19:38:38

st788796 发表于 2014-10-1 19:16
加载 xd-lisp-lib.vlx 就会根据版本自动加载 api 的

可是XD-LISP-LIB 看不到代码啊，我虽然是求的判断XDAPI是否加载…………但我的目的是求这段代码后，可以适用用其它ARX程序，只需稍加修改这个代码，就可以适用于其它ARX程序了

st788796 · 发表于 2014-10-1 20:00:13

明天你好发表于 2014-10-1 19:38
可是XD-LISP-LIB 看不到代码啊，我虽然是求的判断XDAPI是否加载…………但我的目的是求这段代码后，可以 ...

更新了 Autodim 中断下亮显不能恢复的 Bug

判断加载 G 版写过一个，也可以参考 Opendcl 中的 Lisp 加载

明天你好 · 发表于 2014-10-1 20:49:31

st788796 发表于 2014-10-1 20:00
更新了 Autodim 中断下亮显不能恢复的 Bug

判断加载 G 版写过一个，也可以参考 Opendcl 中的 Lisp 加 ...

智能标注，当运行命令后，按下空格，捕捉会全部丢失

XDSoft · 发表于 2014-10-1 20:55:57

明天你好发表于 2014-10-1 19:38
可是XD-LISP-LIB 看不到代码啊，我虽然是求的判断XDAPI是否加载…………但我的目的是求这段代码后，可以 ...

XD-LISP-LIB的源代码都在开源LISP函数库论坛里面。

XDSoft · 发表于 2014-10-1 20:57:41

明天你好发表于 2014-10-1 19:38
可是XD-LISP-LIB 看不到代码啊，我虽然是求的判断XDAPI是否加载…………但我的目的是求这段代码后，可以 ...

XDRX_API自动加载，搜索论坛，G版写过。应该在开源函数库论坛里面。
另外，你把 xdrx_api 放到启动组里面，ACAD运行就自动加载了。

明天你好 · 发表于 2014-10-1 21:16:48

本帖最后由明天你好于 2014-10-1 21:19 编辑

XDSoft 发表于 2014-10-1 20:57
XDRX_API自动加载，搜索论坛，G版写过。应该在开源函数库论坛里面。
另外，你把 xdrx_api 放到启动组里 ...

管理员，谢谢！加到启动组这个我知道，只是想不需使用时就不加载，需要用AIP的插件时才加载，您时指这个贴子里的吗？ http://bbs.xdcad.net/forum.php?mod=viewthread&tid=669114 可是不会用，我是小白，只是希望加到现有程序中

st788796 · 发表于 2014-10-1 22:05:54

明天你好发表于 2014-10-1 21:16
管理员，谢谢！加到启动组这个我知道，只是想不需使用时就不加载，需要用AIP的插件时才加载，您时指这个 ...

既然小白，那就加载 xd-lisp-lib.vlx 好了

XDSoft · 发表于 2014-10-1 22:30:09

明天你好发表于 2014-10-1 21:16
管理员，谢谢！加到启动组这个我知道，只是想不需使用时就不加载，需要用AIP的插件时才加载，您时指这个 ...

你搞那么复杂干啥，加载一个API也不会影响CAD的性能，你要知道CAD启动后，要加载几十个这样的ARX呢。

账号		自动登录	找回密码
密码			立即注册

[编程申请] 麻烦长老们编写这样一个判断程序

点评

点评

点评

点评

点评