设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: XDSoft

[程序发布] (2019.03.28日更新)XDRX_API FOR ACAD 2004-2020

  [复制链接]

点击这里给我发消息

已领礼包: 344个

财富等级: 日进斗金

发表于 2013-6-16 09:40:45 | 显示全部楼层
本帖最后由 牢固 于 2013-6-24 22:41 编辑
429014673 发表于 2013-6-16 08:26
G:\XDRX_API.R18.X64.arx 无法找到所需的程序。
; 错误: ARXLOAD 失败

提供个自动加载XDRX_API函数,将晓东API文件放在CAD搜索目录下,运行如下函数即可实现自动加载:
  1. ;;自动加载晓东函数库,成果返回 T,失败返回 nil
  2. (defun AutoLoadXDRX (/ loaded fn v fn)(setq v (itoa (atoi (getvar 'acadver))))
  3.   (if (= "x86" (getenv "PROCESSOR_ARCHITECTURE"))
  4.     (if
  5.       (not
  6.         (member (setq fn (strcat "xdrx_api.r"
  7.                                 v
  8.                                  ".x32.arx"
  9.                                  )
  10.                       )
  11.                 (arx)
  12.                 )
  13.         )
  14.        (if (setq fn (findfile fn))
  15.          (setq loaded (arxload fn "1"))
  16.          (setq loaded "2")
  17.          )
  18.        (setq loaded "3") ;_ 已加载
  19.        )
  20.     (if
  21.       (not
  22.         (member (setq fn (strcat "xdrx_api.r" v ".x64.arx")) (arx))
  23.         )
  24.        (if (setq fn (findfile fn))
  25.          (setq loaded
  26.                 (arxload fn
  27.                          "1"
  28.                          )
  29.                )
  30.          (setq loaded "2")
  31.          )
  32.        (setq loaded "3") ;_ 已加载
  33.        )
  34.     )
  35.   (cond ((= "1" loaded)
  36.          (princ "xdrx_api加载失败!程序将退出!")
  37.          nil
  38.          )
  39.         ((= "2" loaded)
  40.          (princ "未找到对应的xdrx_api 文件!程序将退出!")
  41.          nil
  42.          )
  43.         (t
  44.          (if (/= loaded "3")
  45.            (princ (strcat (vl-filename-base fn) ".arx 成功加载!"))
  46.            )
  47.          t
  48.          )
  49.         )
  50.   )


评分

参与人数 1D豆 +10 贡献 +1 收起 理由
XDSoft + 10 + 1

查看全部评分

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

使用道具 举报

点击这里给我发消息

已领礼包: 588个

财富等级: 财运亨通

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

使用道具 举报

已领礼包: 2476个

财富等级: 金玉满堂

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

使用道具 举报

点击这里给我发消息

已领礼包: 340个

财富等级: 日进斗金

发表于 2013-6-16 08:29:22 | 显示全部楼层
另外了解一下,论坛的很多老贴子的附件是找不回了吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

点击这里给我发消息

已领礼包: 340个

财富等级: 日进斗金

发表于 2013-6-16 08:26:41 | 显示全部楼层
G:\XDRX_API.R18.X64.arx 无法找到所需的程序。
; 错误: ARXLOAD 失败

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

使用道具 举报

点击这里给我发消息

已领礼包: 2个

财富等级: 恭喜发财

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

使用道具 举报

点击这里给我发消息

已领礼包: 144个

财富等级: 日进斗金

 楼主| 发表于 2013-6-15 23:54:36 | 显示全部楼层
Love-Lisp 发表于 2013-6-15 23:46
CAD2008测试 xdrx_dragssrotate 函数,出现致命错误!测试代码:
(setq ss (ssget))
        (setq pt (ge ...

DRAG类函数先别用。需要修改代码支持高版本。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-15 23:46:41 | 显示全部楼层
CAD2008测试 xdrx_dragssrotate 函数,出现致命错误!测试代码:
(setq ss (ssget))
        (setq pt (getpoint "\n基点"))
(setq an ( xdrx_dragssrotate  "\n输入旋转角度<不旋转>: " ss pt))
点取点后出现
adragssrotate.jpg

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

使用道具 举报

发表于 2013-6-15 23:36:02 | 显示全部楼层
在CAD2008中测试 xdrx_dragssmove 函数:
代码:
(setq ss (ssget))
(setq pt (getpoint "\n基点"))
(setq p1 (xdrx_dragssmove "\n请给出切割图的插入点<不移动> : " ss pt))

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

使用道具 举报

点击这里给我发消息

已领礼包: 6387个

财富等级: 富甲天下

发表于 2013-6-15 23:24:45 | 显示全部楼层
以后将会陆续添加新的功能,会把我的一些动态功能和一些库添加进来。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

点击这里给我发消息

已领礼包: 344个

财富等级: 日进斗金

发表于 2013-6-15 23:21:48 | 显示全部楼层
本帖最后由 牢固 于 2013-6-15 23:25 编辑

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2019-5-23 21:28 , Processed in 0.170120 second(s), 48 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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