(2024.05.23日更新）XDRX_API FOR ACAD 2004-2025

Highflybird

wowan1314 发表于 2013-6-16 11:47
好多函数啊！

cad2004表示无法加载。 各种无法加载。

在我这儿可以加载。你确认是 选择了xdrx_api.r16.x32.arx了么？

wowan1314

XDSoft 发表于 2013-6-16 11:53
2004-2006是一个系列的，你试试2005下能加载不。

你另一个帖子
XDRX_API 16版本提供下载
http://bbs.xdcad.net/thread-667981-1-1.html
(出处: 晓东CAD家园-论坛)
加载成功，不过DRAG也不能用！

Lispboy

wow,上来就来个超好的消息，感谢老大，下载测试了，以后我写函数就能轻松不少了。熟悉下API，试试用API写些函数。

XDSoft

Love-Lisp 发表于 2013-6-16 11:14
;;利用晓东API做的选择对象背景遮罩程序示例:
(defun c:entmask ()
  (autoloadxdrx)

感谢，请单独发帖吧，最好有动画图片。

XDSoft

wowan1314 发表于 2013-6-16 11:47
好多函数啊！

cad2004表示无法加载。 各种无法加载。

2004-2006是一个系列的，你试试2005下能加载不。

XDSoft

Free-Lancer 发表于 2013-6-16 11:22
xdrx_yesorno 默认值无效
(xdrx_yesorno "Yes or No:" "n")

参数是 0 或者 1， 不是 "n"

1. 命令:
   
2. 命令: (setq a (xdrx_yesorno "Yes or No:<n>" 0))
   
3. Yes or No:<n>?[是(Y)/否(N)]<N>:
   
4. 0
   
5. 
   
6. 命令: (setq a (xdrx_yesorno "Yes or No:<n>" 1))
   
7. Yes or No:<n>?[是(Y)/否(N)]<Y>:
   
8. 1
   

命令:<br /> 命令: (setq a (xdrx_yesorno "Yes or No:<n>" 0))<br /> Yes or No:<n>?[是(Y)/否(N)]<N>:<br /> 0<br /> <br /> 命令: (setq a (xdrx_yesorno "Yes or No:<n>" 1))<br /> Yes or No:<n>?[是(Y)/否(N)]<Y>:<br /> 1<br />

wowan1314

XDSoft 发表于 2013-6-16 11:01
试试G版的自动加载，如何？

也可以先用拖拽的方式拽到ACAD窗口下，看看是否能加载。

好多函数啊！ :$

cad2004表示无法加载。 各种无法加载。{:soso_e122:}

Free-Lancer

xdrx_yesorno 默认值无效
(xdrx_yesorno "Yes or No:<n>" "n")来自: Android客户端

Love-Lisp

;;利用晓东API做的选择对象背景遮罩程序示例:
(defun c:entmask ()
  (autoloadxdrx)
  (princ "\n选择遮掩对象:")
  (if (setq ss (ssget))
    (progn
      (if (setq pl (xdrx_searchoutline ss))
        (progn
          (command "wipeout")
          (foreach p pl (command (trans p 0 1)))
          (command "")
          (ssadd (setq e (entlast)) ss)
          (xdrx_draworder_above e ss)
          (xdrx_group_make "*" ss)
          (command "_move" ss "" (getpoint "\n基点：") pause)
          (princ)
        )
      )
    )
  )
)

XDSoft

q3_2006 发表于 2013-6-16 11:05
在CAD2008中测试 xdrx_curve_info 函数

返回结果

谢谢！ 高版本字符集问题 ，下版本解决。

q3_2006

在CAD2008中测试 xdrx_curve_info 函数

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

XDSoft

429014673 发表于 2013-6-16 08:26
G:\XDRX_API.R18.X64.arx 无法找到所需的程序。
; 错误: ARXLOAD 失败

试试G版的自动加载，如何？

也可以先用拖拽的方式拽到ACAD窗口下，看看是否能加载。

ScmTools

支持老大！

牢固

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.   )

;;自动加载晓东函数库，成果返回 T,失败返回 nil<br /> (defun AutoLoadXDRX (/ loaded fn v fn)(setq v (itoa (atoi (getvar 'acadver))))<br />   (if (= "x86" (getenv "PROCESSOR_ARCHITECTURE"))<br />     (if<br />       (not<br />         (member (setq fn (strcat "xdrx_api.r"<br />                                 v<br />                                  ".x32.arx"<br />                                  )<br />                       )<br />                 (arx)<br />                 )<br />         )<br />        (if (setq fn (findfile fn))<br />          (setq loaded (arxload fn "1"))<br />          (setq loaded "2")<br />          )<br />        (setq loaded "3") ;_ 已加载<br />        )<br />     (if<br />       (not<br />         (member (setq fn (strcat "xdrx_api.r" v ".x64.arx")) (arx))<br />         )<br />        (if (setq fn (findfile fn))<br />          (setq loaded<br />                 (arxload fn<br />                          "1"<br />                          )<br />                )<br />          (setq loaded "2")<br />          )<br />        (setq loaded "3") ;_ 已加载<br />        )<br />     )<br />   (cond ((= "1" loaded)<br />          (princ "xdrx_api加载失败！程序将退出！")<br />          nil<br />          )<br />         ((= "2" loaded)<br />          (princ "未找到对应的xdrx_api 文件！程序将退出！")<br />          nil<br />          )<br />         (t<br />          (if (/= loaded "3")<br />            (princ (strcat (vl-filename-base fn) ".arx 成功加载！"))<br />            )<br />          t<br />          )<br />         )<br />   )

eachy

2014 x32 加载成功，函数测试测试中