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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 开源函数库 › XDRX_API库自动加载函数
返回列表 发新帖
查看: 3787|回复: 9

[选择集] XDRX_API库自动加载函数

[复制链接]
newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-6-29 13:49:48 | 显示全部楼层 |阅读模式
函数发布
函数名称: XD::Document:AutoLoadXDRX-API
调用格式: (XD::Document:AutoLoadXDRX-API)
参数说明: 无
返回值: T----成功
函数简介: 自动根据机器环境（32位、64位），AUTOCAD版本（R16...R19)加载所需的XDRX_API 开发函数库
函数来源: 转载
函数作者: 牢固
适用版本: 不限 
最后更新时间: 2013-06-29
备注: -
演示图片: -

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
本帖最后由 牢固 于 2013-7-1 13:09 编辑

  1. (defun XD::Document:LoadXDRX-API    (/ loaded fn v fn)  
  2.   (or XDRX_DOCUMENT_GETVERSIONEX
  3.       (progn
  4.         (setq v (getvar 'acadver))
  5.         (if (= "x86" (getenv "PROCESSOR_ARCHITECTURE"))
  6.           (progn
  7.             (cond
  8.               ((= "16.2" (substr v 1 4))
  9.                (setq v "2006")
  10.                )
  11.               ((= "17.0" (substr v 1 4))
  12.                (setq v "2007")
  13.                )
  14.               (t
  15.                (setq v (strcat (substr v 1 2) ".x32"))
  16.                )
  17.               )
  18.             (if
  19.               (not
  20.                 (member (setq fn (strcat "xdrx_api.r"
  21.                                          v
  22.                                          ".arx"
  23.                                          )
  24.                               )
  25.                         (arx)
  26.                         )
  27.                 )
  28.                (if (setq fn (findfile fn))
  29.                  (setq loaded (arxload fn "1"))
  30.                  (setq loaded "2")
  31.                  )
  32.                (setq loaded "3") ;_ 已加载
  33.                )
  34.             )
  35.           (progn
  36.             (setq v (itoa (atoi v)))
  37.             (if
  38.               (not
  39.                 (member (setq fn (strcat "xdrx_api.r" v ".x64.arx"))
  40.                         (arx)
  41.                         )
  42.                 )
  43.                (if (setq fn (findfile fn))
  44.                  (setq loaded
  45.                         (arxload fn
  46.                                  "1"
  47.                                  )
  48.                        )
  49.                  (setq loaded "2")
  50.                  )
  51.                (setq loaded "3") ;_ 已加载
  52.                )
  53.             )
  54.           )
  55.         (cond ((= "1" loaded)
  56.                (princ "xdrx_api加载失败！程序将退出！")
  57.                nil
  58.                )
  59.               ((= "2" loaded)
  60.                (princ "未找到对应的xdrx_api文件！程序将退出！")
  61.                nil
  62.                )
  63.               (t
  64.                )
  65.               )
  66.         )
  67.       )
  68.   )





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

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-6-29 13:58:58 来自手机 | 显示全部楼层
加载成功就不要在提示了，arxload api后的提示够长了，如果已加倒是可以提示已加载
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

牢固

已领礼包: 344个

财富等级: 日进斗金
发表于 2013-7-1 09:41:04 | 显示全部楼层
因API中增加了R2006和R2007版的ARX,由于R2006虽然属于R16系列，但是R2006增加了table函数，自动加载时必须加以区分，为防止某些R2007版本无法加载R17 的arx,特针对R2007编译了一版R2007的arx,所以自动加载函数需做相应调整:
  1. (defun XD::Document:LoadXDRX-API (/ loaded fn v fn)  (or
  2.     XDRX_DOCUMENT_GETVERSIONEX
  3.     (progn
  4.       (setq v (getvar 'acadver))
  5.       (if (= "x86" (getenv "PROCESSOR_ARCHITECTURE"))
  6.         (progn
  7.           (cond
  8.             ((= "16.2" (substr v 1 4))
  9.               (setq v "2006")
  10.             )
  11.             ((= "17.0" (substr v 1 4))
  12.               (setq v "2007")
  13.             )
  14.             (t
  15.               (setq v (strcat (substr v 1 2) ".x32"))
  16.             )
  17.           )
  18.           (if (not (member (setq fn (strcat "xdrx_api.r" v ".arx"))
  19.                            (arx)
  20.                    )
  21.               )
  22.             (if (setq fn (findfile fn))
  23.               (setq loaded (arxload fn "1"))
  24.               (setq loaded "2")
  25.             )
  26.             (setq loaded "3")               ; _ 已加载
  27.           )
  28.         )
  29.         (progn
  30.           (setq v (itoa (atoi v)))
  31.           (if (not (member (setq fn (strcat "xdrx_api.r" v ".x64.arx"))
  32.                            (arx)
  33.                    )
  34.               )
  35.             (if (setq fn (findfile fn))
  36.               (setq loaded (arxload fn "1"))
  37.               (setq loaded "2")
  38.             )
  39.             (setq loaded "3")               ; _ 已加载
  40.           )
  41.         )
  42.       )
  43.       (cond
  44.         ((= "1" loaded)
  45.           (princ "xdrx_api加载失败！程序将退出！")
  46.           nil
  47.         )
  48.         ((= "2" loaded)
  49.           (princ "未找到对应的xdrx_api文件！程序将退出！")
  50.           nil
  51.         )
  52.         (t
  53.         )
  54.       )
  55.     )
  56.   )
  57. )

点评

newer
G版主快速， 提个建议，新版的XDRX_API现在有个 xdrx_document_GetVersionEx 获得版本号的函数， G版可否按照OPENDCL自动加载的那个函数一样，在最上面加上个判断， (or xdrx_document_GetVersionEx ..... 这  详情 回复 发表于 2013-7-1 11:03
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
 楼主| 发表于 2013-7-1 11:03:00 | 显示全部楼层
牢固 发表于 2013-7-1 09:41
因API中增加了R2006和R2007版的ARX,由于R2006虽然属于R16系列，但是R2006增加了table函数，自动加载时必须 ...

G版主快速，

提个建议，新版的XDRX_API现在有个 xdrx_document_GetVersionEx 获得版本号的函数，

G版可否按照OPENDCL自动加载的那个函数一样，在最上面加上个判断， (or xdrx_document_GetVersionEx  ..... 这样如果这个函数在了，就不用在执行下面的了。

点评

牢固
已按照建议，我直接修改了一楼的代码！  详情 回复 发表于 2013-7-1 13:11
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hzwwrrbb
发表于 2013-7-1 12:24:42 | 显示全部楼层
非常感谢！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

牢固

已领礼包: 344个

财富等级: 日进斗金
发表于 2013-7-1 13:11:25 | 显示全部楼层
newer 发表于 2013-7-1 11:03
G版主快速，

提个建议，新版的XDRX_API现在有个 xdrx_document_GetVersionEx 获得版本号的函数，

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

使用道具 举报

hzwwrrbb
发表于 2013-7-5 12:22:39 | 显示全部楼层
拿下，好用的。谢谢！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wxytiger
发表于 2013-10-7 11:13:40 | 显示全部楼层
非常实用，赞一个。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

qqqincccken

已领礼包: 6569个

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

使用道具 举报

kocer
发表于 2014-7-16 20:46:09 | 显示全部楼层
谢谢分享                  
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-25 14:58 , Processed in 0.225413 second(s), 54 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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