XDRX API 超过5000的函数，附件下载

LoveArx

XDRX API 所有的函数

1. (acad_strlsort
   
2.    (vl-remove nil
   
3.               (mapcar '(lambda (i) (if (wcmatch i "XD*") i nil))
   
4.                       (atoms-family 1)
   
5.               )
   
6.    )
   
7. )
   

(acad_strlsort<br />    (vl-remove nil<br />               (mapcar '(lambda (i) (if (wcmatch i "XD*") i nil))<br />                       (atoms-family 1)<br />               )<br />    )<br /> )<br />

超过5000的函数，具体见附件

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:xd-atom-lst-2.txt 
下载次数:55  文件大小:122.91 KB 
下载权限: 不限 以上  [免费赚D豆]

XDSoft

一个国外网友写的

1. (defun c:xdapi-list ()
   
2.   (setq        atoms-family-lst
   
3.          (acad_strlsort
   
4.            (vl-remove nil
   
5.                       (mapcar '(lambda (i)
   
6.                                  (if (wcmatch i "XD*")
   
7.                                    i
   
8.                                    nil
   
9.                                  )
   
10.                                )
    
11.                               (atoms-family 1)
    
12.                       )
    
13.            )
    
14.          )
    
15.   )
    
16. 
    
17.   (setq        atoms-type-name-lst
    
18.          (mapcar
    
19.            '(lambda (i) (list (type (eval (read i))) i))
    
20.            atoms-family-lst
    
21.          )
    
22.   )
    
23. 
    
24.   (setq        int-lst        (vl-remove-if
    
25.                   '(lambda (i) (/= (car i) 'INT))
    
26.                   atoms-type-name-lst
    
27.                 )
    
28.   )
    
29. 
    
30. 
    
31.   (setq        subr-lst (vl-remove-if
    
32.                    '(lambda (i) (/= (car i) 'SUBR))
    
33.                    atoms-type-name-lst
    
34.                  )
    
35.   )
    
36. 
    
37. 
    
38.   (setq        exrxsubr-lst
    
39.          (vl-remove-if
    
40.            '(lambda (i) (/= (car i) 'EXRXSUBR))
    
41.            atoms-type-name-lst
    
42.          )
    
43.   )
    
44. 
    
45. 
    
46.   (alert
    
47.     (strcat
    
48.       "\n\n int-lst length      : "
    
49.       (itoa (length int-lst))
    
50.       "\n\n subr-lst length     : "
    
51.       (itoa (length subr-lst))
    
52.       "\n\n exrxsubr-lst length : "
    
53.       (itoa (length exrxsubr-lst))
    
54.     )
    
55.   )
    
56.   (princ)
    
57. )
    
58. 
    

(defun c:xdapi-list ()<br />   (setq        atoms-family-lst<br />          (acad_strlsort<br />            (vl-remove nil<br />                       (mapcar '(lambda (i)<br />                                  (if (wcmatch i "XD*")<br />                                    i<br />                                    nil<br />                                  )<br />                                )<br />                               (atoms-family 1)<br />                       )<br />            )<br />          )<br />   )<br /> <br />   (setq        atoms-type-name-lst<br />          (mapcar<br />            '(lambda (i) (list (type (eval (read i))) i))<br />            atoms-family-lst<br />          )<br />   )<br /> <br />   (setq        int-lst        (vl-remove-if<br />                   '(lambda (i) (/= (car i) 'INT))<br />                   atoms-type-name-lst<br />                 )<br />   )<br /> <br /> <br />   (setq        subr-lst (vl-remove-if<br />                    '(lambda (i) (/= (car i) 'SUBR))<br />                    atoms-type-name-lst<br />                  )<br />   )<br /> <br /> <br />   (setq        exrxsubr-lst<br />          (vl-remove-if<br />            '(lambda (i) (/= (car i) 'EXRXSUBR))<br />            atoms-type-name-lst<br />          )<br />   )<br /> <br /> <br />   (alert<br />     (strcat<br />       "\n\n int-lst length      : "<br />       (itoa (length int-lst))<br />       "\n\n subr-lst length     : "<br />       (itoa (length subr-lst))<br />       "\n\n exrxsubr-lst length : "<br />       (itoa (length exrxsubr-lst))<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

                               
登录/注册后可看大图

                               
登录/注册后可看大图

liuyj

这里面有大量重复函数，只是写法不一样，把下划线改为中横线了，这样的能否区分出来？

XDSoft

liuyj 发表于 2023-11-20 12:57
这里面有大量重复函数，只是写法不一样，把下划线改为中横线了，这样的能否区分出来？
...

上面的代码可以修改下
只找 带
把带 中横线的 去掉即可