设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: XDSoft

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

  [复制链接]

已领礼包: 2476个

财富等级: 金玉满堂

发表于 2013-6-16 11:05:43 | 显示全部楼层
在CAD2008中测试 xdrx_curve_info 函数

返回结果
(("敐楲敭整r" 122.096) ("牁慥" 2277.24) ("敃瑮潲摩" (1103.67 438.013)) ("潍䥭敮瑲慩"
4.37229e+008 2.7745e+009) ("牐摯湉牥楴a牐珨梥牐湩硁獥" 1.10076e+009) ("牐湩潍敭瑮s牐湩硁獥"
287585.0 636295.0) ("牐湩硁獥" (0.939496 -0.342559) (0.342559 0.939496))
("慒䝤特瑡潩n潂x请选取目录" 438.177 1103.79) ("潂x请选取目录" (1068.74 410.108) (1132.98
462.413)))

评分

参与人数 1D豆 +6 收起 理由
XDSoft + 6 热心帮忙奖!

查看全部评分

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

使用道具 举报

点击这里给我发消息

已领礼包: 145个

财富等级: 日进斗金

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

试试G版的自动加载,如何?

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

使用道具 举报

已领礼包: 1632个

财富等级: 堆金积玉

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

使用道具 举报

点击这里给我发消息

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

使用道具 举报

点击这里给我发消息

已领礼包: 589个

财富等级: 财运亨通

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

使用道具 举报

已领礼包: 2476个

财富等级: 金玉满堂

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

使用道具 举报

点击这里给我发消息

已领礼包: 342个

财富等级: 日进斗金

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

使用道具 举报

点击这里给我发消息

已领礼包: 342个

财富等级: 日进斗金

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

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

使用道具 举报

点击这里给我发消息

已领礼包: 2个

财富等级: 恭喜发财

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

使用道具 举报

点击这里给我发消息

已领礼包: 145个

财富等级: 日进斗金

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

使用道具 举报

点击这里给我发消息

已领礼包: 7519个

财富等级: 富甲天下

发表于 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, 2020-8-13 20:28 , Processed in 0.118249 second(s), 85 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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