论坛 › XDRX_API技术支持 › XDRX API 超过5000的函数，附件下载

LoveArx 发表于 2023-11-16 21:20:25

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

XDRX API 所有的函数



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


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

XDSoft 发表于 2023-11-18 19:06:15

一个国外网友写的



(defun c:xdapi-list ()
(setq      atoms-family-lst
         (acad_strlsort
         (vl-remove nil
                      (mapcar '(lambda (i)
                                 (if (wcmatch i "XD*")
                                 i
                                 nil
                                 )
                               )
                              (atoms-family 1)
                      )
         )
         )
)

(setq      atoms-type-name-lst
         (mapcar
         '(lambda (i) (list (type (eval (read i))) i))
         atoms-family-lst
         )
)

(setq      int-lst      (vl-remove-if
                  '(lambda (i) (/= (car i) 'INT))
                  atoms-type-name-lst
                )
)


(setq      subr-lst (vl-remove-if
                   '(lambda (i) (/= (car i) 'SUBR))
                   atoms-type-name-lst
               )
)


(setq      exrxsubr-lst
         (vl-remove-if
         '(lambda (i) (/= (car i) 'EXRXSUBR))
         atoms-type-name-lst
         )
)


(alert
    (strcat
      "\n\n int-lst length      : "
      (itoa (length int-lst))
      "\n\n subr-lst length   : "
      (itoa (length subr-lst))
      "\n\n exrxsubr-lst length : "
      (itoa (length exrxsubr-lst))
    )
)
(princ)
)



http://www.theswamp.org/index.php?action=dlattach;topic=58708.0;attach=41494;imagehttp://www.theswamp.org/index.php?action=dlattach;topic=58708.0;attach=41494;image

liuyj 发表于 2023-11-20 12:57:17

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

XDSoft 发表于 2023-11-20 14:28:45

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

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

查看完整版本: XDRX API 超过5000的函数，附件下载