（XD::PICKSET:DrawOrderList）将选择集（实体表）里面的实体按显示顺序排序

newer

1. (defun XD::PICKSET:DrawOrderList (ss / order)
   
2.   (if (eq ss t)
   
3.     (xdrx_draworder_getfulldorder)
   
4.     (progn
   
5.       (if (= (type ss) 'PICKSET)
   
6.         (setq ss (xdrx_pickset->ents ss))
   
7.       )
   
8.       (if (= (type ss) 'LIST)
   
9.         (progn
   
10.           (setq order (xdrx_draworder_getfulldorder)
    
11.                 order (reverse order)
    
12.           )
    
13.           (vl-remove-if-not '(lambda (x)
    
14.                                (member x ss)
    
15.                              ) order
    
16.           )
    
17.         )
    
18.       )
    
19.     )
    
20.   )
    
21. )

(defun XD::PICKSET:DrawOrderList (ss / order)<br />   (if (eq ss t)<br />     (xdrx_draworder_getfulldorder)<br />     (progn<br />       (if (= (type ss) 'PICKSET)<br />         (setq ss (xdrx_pickset->ents ss))<br />       )<br />       (if (= (type ss) 'LIST)<br />         (progn<br />           (setq order (xdrx_draworder_getfulldorder)<br />                 order (reverse order)<br />           )<br />           (vl-remove-if-not '(lambda (x)<br />                                (member x ss)<br />                              ) order<br />           )<br />         )<br />       )<br />     )<br />   )<br /> )

moranyuyan

我是一个小白，我想问下defun后跟的代码和defun c:后面跟的代码有什么不同，我只知道defun c:后面的单词就是插件的命令名。对于defun后面没有c:的我就不明白了。

newer

moranyuyan 发表于 2018-8-14 23:38
我是一个小白，我想问下defun后跟的代码和defun c:后面跟的代码有什么不同，我只知道defun c:后面的单词就 ...

defun后面跟着的单词本质上都是函数，函数要用 (函数名 参数)去调用，结果有个返回值到命令行
c:后面的是个特殊的函数而已，可以不用带括号去执行，当然必须没有参数
一个带C:的命令，可以直接用后面的单词执行，也可以用(c:命令名) 当没有参数的函数去执行