[LISP函数]：提供autolisp函数全集下载

gjliang

本人刚来，提供一组autolisp函数下载，供大家学习交流。

cy956

应该附上说明：

钢结构论坛
AuotLisp函数全集，其实帮助里面都有。
按字母顺序排列    按功能分类排列

刘仁钊

来看看，学习一下

刘仁钊

提供几个LISP

1. 
   

<br />

写的函数程序，供大家指教。;----------------------------------------------------------------
;            增加eList表中第一个元素后返回                       
;----------------------------------------------------------------
(defun lsp_appendHead(element eList / nList)
   (setq nList (append (list element) eList))
   (lsp_return nList)
)

;----------------------------------------------------------------
;            增加eList表中最后一个元素后返回                     
;----------------------------------------------------------------
(defun lsp_appendTail(element eList / nList)
   (setq nList (append eList (list element)))
   (lsp_return nList)
)

;----------------------------------------------------------------
; 在eList表中第index个位置增加元素后返回,表中第1个元素的序号为0  
;----------------------------------------------------------------
(defun lsp_appendNth(index element eList / i eList1 eList2 nlenth)
   (setq i -1 eList1 eList)
   (setq eList1 (apply 'append (mapcar '(lambda (x) (if (< (setq i (1+ i)) index) (list x))) eList1)))

   (setq i (1- index) eList2 (reverse eList) nlenth (length eList))
   (setq eList2 (apply 'append (mapcar '(lambda (x) (if (< (setq i (1+ i)) nlenth) (list x))) eList2)))
  
   (setq eList (append eList1 (list element)) eList (append eList (reverse eList2)))
   (lsp_return eList)
)

;----------------------------------------------------------------
;     返回删除eList表中第一个元素后的表                          
;----------------------------------------------------------------
(defun lsp_removeHead(eList)
   (setq eList (cdr eList))
   (lsp_return eList)
)

;----------------------------------------------------------------
;    返回删除eList表中最后一个元素后的表                        
;----------------------------------------------------------------
(defun lsp_removeTail(eList)
   (setq eList (cdr (reverse eList)))
   (lsp_return (reverse eList))
)

;----------------------------------------------------------------
;     返回删除eList表中第index个表元素后的表                     
;----------------------------------------------------------------
(defun lsp_removeNth(index eList / i)
   (setq i -1)
   (apply 'append (mapcar '(lambda (x) (if (/= (setq i (1+ i)) index) (list x))) eList))
)

wmz0211

来看看，学习一下

kqqt6236

附件已经没有了

hiONE

楼主发的怎么看不到附件的

VBAVBAA

学习学习起来