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

csharp

手册中有的页面乱码无法显示，用新版本编译好像可以解决

newer

gzfuqun 发表于 2016-4-29 16:40
(xdrx_SetEntToDb ss)
(while (setq pl1 (xdrx_getpolyvtx))
    (setq plpt (cons pl1 plpt))

或者：  
(xdrx_getpropertyvalue  lwent "vertices") 得到所有顶点。

多用下这个函数，包装了N多功能。查询用 xdrx_getpropertyvlaue 修改用 xdrx_setpropertyvalue

csharp

gzfuqun 发表于 2016-4-29 16:40
(xdrx_SetEntToDb ss)
(while (setq pl1 (xdrx_getpolyvtx))
    (setq plpt (cons pl1 plpt))

用getstretchpoint试试，一次到位，无需循环

gzfuqun

(xdrx_SetEntToDb ss)
(while (setq pl1 (xdrx_getpolyvtx))
    (setq plpt (cons pl1 plpt))
)

LWPOLYLINE 在2007CAD下得不到顶点

XDSoft

XDRX API 更新到2016.0426版本，除2004-2006版本外，全部更新。同时手册也更新到最新版本。

haoryh

支持一下，感谢老大。

kenm41

很好啊！我很久没更新了！

kenm41

牢固 发表于 2013-6-16 09:40
提供个自动加载XDRX_API函数，将晓东API文件放在CAD搜索目录下，运行如下函数即可实现自动加载：

真心不错！ 支持一个！     

ysq101

终于更新了。。。版主万岁

cre8o

iLisp 发表于 2016-4-8 22:31
翻了几个版本的手册，这个函数居然没有说明，在论坛复制了一句话，直接返回 -4

这个我是知道的 这个函数虽然没说明 但是也能做到大部分功能 但是最后一个参数nil始终还是不知道怎么用 但是相信和捕捉行为是没关系的 已经试验过很多次 主要问题还是 这个draggen并不能在正交模式下很好的捕捉一个已存在的点 并不像move scale rotate的功能 acet的move我也试过 但是它的捕捉也不对 虽然不是返回无效 但是却是被正交影响的点的位置 而默认状态下的move 即使开启正交 捕捉一个点的时候也能正确返回点的坐标

XDSoft

haige405 发表于 2016-4-10 14:25
XDRx.18.arx 无法找到所需的程序
CAD2010 32为，无论是 int 还是拖动，还是自动加载均不行。
cad2006一切 ...

你安装下 晓东工具箱 看看，能否加载。

haige405

XDRx.18.arx 无法找到所需的程序
CAD2010 32为，无论是 int 还是拖动，还是自动加载均不行。
cad2006一切通过。
自动加入代码也不行的

2. ;;自动加载晓东函数库，成果返回 T,失败返回 nil
   
3. (defun AutoLoadXDRX (/ loaded fn v fn)
   
4.   (setq v (itoa (atoi (getvar 'acadver))))
   
5.   (if (= "x86" (getenv "PROCESSOR_ARCHITECTURE"))
   
6.     (if(not(member (setq fn (strcat "xdrx." v ".arx"))(arx) ) )
   
7.       (if (setq fn (findfile fn))
   
8.         (setq loaded (arxload fn "1"))
   
9.         (setq loaded "2")
   
10.       )
    
11.       (setq loaded "3") ;_ 已加载
    
12.     )
    
13.     (if(not(member (setq fn (strcat "xdrx." v ".x64.arx")) (arx)))
    
14.       (if (setq fn (findfile fn))
    
15.         (setq loaded(arxload fn"1"))
    
16.         (setq loaded "2")
    
17.       )
    
18.       (setq loaded "3") ;_ 已加载
    
19.     )
    
20.   )
    
21.   (cond ((= "1" loaded)
    
22.           (princ "xdrx_api加载失败！程序将退出！")
    
23.           nil
    
24.         )
    
25.     ((= "2" loaded)
    
26.       (princ "未找到对应的xdrx_api 文件！程序将退出！")
    
27.       nil
    
28.     )
    
29.     (t
    
30.       (if (/= loaded "3")
    
31.         (princ (strcat (vl-filename-base fn) ".arx 成功加载！"))
    
32.       )
    
33.       t
    
34.     )
    
35.   )
    
36. )

;;自动加载晓东函数库，成果返回 T,失败返回 nil<br /> (defun AutoLoadXDRX (/ loaded fn v fn)<br />   (setq v (itoa (atoi (getvar 'acadver))))<br />   (if (= "x86" (getenv "PROCESSOR_ARCHITECTURE"))<br />     (if(not(member (setq fn (strcat "xdrx." v ".arx"))(arx) ) )<br />       (if (setq fn (findfile fn))<br />         (setq loaded (arxload fn "1"))<br />         (setq loaded "2")<br />       )<br />       (setq loaded "3") ;_ 已加载<br />     )<br />     (if(not(member (setq fn (strcat "xdrx." v ".x64.arx")) (arx)))<br />       (if (setq fn (findfile fn))<br />         (setq loaded(arxload fn"1"))<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 /> )

iLisp

cre8o 发表于 2016-4-7 22:56
报告一个问题：xdrx_pickset_draggen在正交和捕捉同时开启的时候捕捉点将得到-4， 而不是一个含有点坐标的 ...

翻了几个版本的手册，这个函数居然没有说明，在论坛复制了一句话，直接返回 -4



_$ (xdrx_PickSet_DragGen"\n插入点<退出>" (ssget) '(0 0 0) 0 nil)
_$ -4

haige405

下载看看，一直用的。。。

cre8o

报告一个问题：xdrx_pickset_draggen在正交和捕捉同时开启的时候捕捉点将得到-4， 而不是一个含有点坐标的矩阵，和esc退出的效果一样..而理想的状态是cad下move等命令的行为 捕捉到某个点就移动到点 没有捕捉时单击到就是在正交轴上取点