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

XDSoft

liuyj 发表于 2020-9-5 11:57
0904和0905的API都有个问题，(XD::Pickset:Redraw ss)后，选择集ss没有实体了，(sslength ss）返回nil， ...

请重新下载

liuyj

XDSoft 发表于 2020-9-4 22:49
XDRX API 2020.09.04日更新

0904和0905的API都有个问题，(XD::Pickset:Redraw ss)后，选择集ss没有实体了，(sslength ss）返回nil，之前的都没问题，我暂时退回了0902的API或者做如下改动，也可以。

1. (defun Pickset:Redraw (lst / mod e)
   
2.   (cond        ((= (type lst) 'PICKSET) (foreach e (xdrx_Pickset->ents lst) (redraw e)))
   
3.         ((= (type lst) 'ENAME) (redraw lst))
   
4.         ((= (type (car lst)) 'PICKSET)
   
5.          (if (setq mod (cadr lst))
   
6.            (foreach e (xdrx_Pickset->ents (car lst)) (redraw e mod))
   
7.            (foreach e (xdrx_Pickset->ents (car lst)) (redraw e))
   
8.          )
   
9.         )
   
10.         ((= (type (car lst)) 'ENAME) (apply 'redraw lst))
    
11.         (t)
    
12.   )
    
13. )
    

(defun Pickset:Redraw (lst / mod e)<br />   (cond        ((= (type lst) 'PICKSET) (foreach e (xdrx_Pickset->ents lst) (redraw e)))<br />         ((= (type lst) 'ENAME) (redraw lst))<br />         ((= (type (car lst)) 'PICKSET)<br />          (if (setq mod (cadr lst))<br />            (foreach e (xdrx_Pickset->ents (car lst)) (redraw e mod))<br />            (foreach e (xdrx_Pickset->ents (car lst)) (redraw e))<br />          )<br />         )<br />         ((= (type (car lst)) 'ENAME) (apply 'redraw lst))<br />         (t)<br />   )<br /> )<br />

XDSoft

XDRX API 2020.09.04日更新

Lisphk

zhong2013 发表于 2020-9-4 16:10
手册还是2017的，好久新添加的`函数查到不到说明，什么时候更新一下。

多看看每日插件里面的代码
有问题的，发帖问下吧

zhong2013

手册还是2017的，好久新添加的`函数查到不到说明，什么时候更新一下。

XDSoft

HZgege 发表于 2020-8-31 14:41
版主，最新的工具箱里没有XDTB_Att2Xls？？

感谢提醒，下版本晓东工具箱加入

XDSoft

XDRX API 2020.09.02日更新

HZgege

版主，最新的工具箱里没有XDTB_Att2Xls？？

lcdcw

谢谢坛主更新

XDSoft

XDRX API 2020.08.30日更新

jshailinqq

更新新版本，OK

XDSoft

XDRX API 2020.08.27日更新

XDSoft

XDRX API 2020.08.26日更新

XDSoft

XDRX API 2020.08.24日更新

XDSoft

XDRX API 2020.08.22日更新