[LISP函数]：在表中第n项增加一元素，n自0开始。

heike4

是不是要回复才能看的到？

guohq

(defun delnlist( listent nn / key list1 list2 num listaa nn2 rtn);;;删除指定的第几个元素;;;如果nn为空，或者nn大于表的长度，则返回原表
  (if (null nn)
    (setq rtn listent)
    (progn
(if (< nn (length listent))
  (progn
    (setq nn2 (- (length listent) nn))
  (setq key (nth nn listent))
  (setq list1  (cdr (member key (reverse listent))))
  (while (> (length list1) nn)
    (setq list1 (cdr list1))
   
    )
  (setq list1 (reverse list1))
  (setq list2  (member key listent))
  (while (>= (length list2) nn2)
    (setq list2 (cdr list2))
    )
  (setq num   (- (length list1) 1) )
  (setq listaa list2)
  (repeat (length list1)   
   
    (setq listaa (cons (nth num list1) listaa))
    (setq num (- num 1))
    )
  (setq rtn listaa)
  )
  (setq rtn listent)
  )
)
    )
  rtn
  )



(defun ins_n_lst (atom1 nn lst openif / lst1 lst2 rtn)
  ;;在lst的nn处后插入atom1
  ;;假如atom1是一个表，用openif来控制是否打开openif = t or nil

  (if (>= nn (length lst))
         (progn
           (setq lst1 lst)
           (setq lst2 '())
           )
    (progn
      (setq lst1 (Fnlst nn lst))
      (setq lst2 (Bnlst (- (length lst) nn) lst))
      )
    )
  (if (and openif (= (type atom1) 'LIST) )
    (progn
      (setq rtn (joinlst atom1 lst2))
      (setq rtn (joinlst lst1 rtn))
      )
    (progn
      (setq rtn (cons atom1 lst2))
      (setq rtn (joinlst lst1 rtn))
      )
    )
  rtn
  )


(defun Fnlst(nn lst / n rtn)
  ;;;取lst的前nn部分
  (setq rtn '())
  (if (>= nn (length lst))
    (setq rtn lst)
    (progn
      (setq n 0)
      (repeat nn
        (setq rtn (cons (nth n lst) rtn))
        (setq n (1+ n))
        )
      (setq rtn (reverse rtn))
      )
    )
  rtn
  )

(defun Bnlst (nn lst / rtn)
  ;;;取lst的后nn部分
  (setq lst (reverse lst))
  (setq rtn (fnlst nn lst))
  (setq rtn (reverse rtn))
  rtn
  )

(defun Joinlst(lst1 lst2 / n  rtn)
;;;联接两个表
  (setq lst1 (reverse lst1))
  (setq rtn lst2)
  (setq n 0)
  (repeat (length lst1)
    (setq rtn ( cons (nth n lst1) rtn ))
    (setq n (1+ n))
    )
  rtn
  )

FlyBird888

这是我需要的函数,很实用

yjch

对表的处理相当有用，学习了

kkt123

对表的处理相当有用，学习了:L

77077

代码太长了

2. 
   
3. ;表的第N位置插入新表
   
4. ;|
   
5. (setq lst '(1 2 3 4 5 6 7 8 9))
   
6. (list-insertitem '("A" "B" "C") 5 lst)=>(1 2 3 4 5 "A" "B" "C" 6 7 8 9)
   
7. (list-insertitem '("A" "B" "C") 1 lst)=>(1 "A" "B" "C" 2 3 4 5 6 7 8 9)
   
8. (list-insertitem '("A" "B" "C") 15 lst)=>(1 2 3 4 5 6 7 8 9 "A" "B" "C")
   
9. |;
   
10. (defun list-insertitem (item nnn lst / lout )
    
11.   (if (< nnn (length lst))
    
12.     (progn
    
13.       (setq lout '())
    
14.       (repeat nnn
    
15.               (setq lout (cons (car lst) lout) lst (cdr lst))
    
16.             )
    
17.       (append (reverse lout) (append item lst))
    
18.     )
    
19.     (append lst item)
    
20.   )
    
21. )
    

<br /> ;表的第N位置插入新表<br /> ;|<br /> (setq lst '(1 2 3 4 5 6 7 8 9))<br /> (list-insertitem '("A" "B" "C") 5 lst)=>(1 2 3 4 5 "A" "B" "C" 6 7 8 9)<br /> (list-insertitem '("A" "B" "C") 1 lst)=>(1 "A" "B" "C" 2 3 4 5 6 7 8 9)<br /> (list-insertitem '("A" "B" "C") 15 lst)=>(1 2 3 4 5 6 7 8 9 "A" "B" "C")<br /> |;<br /> (defun list-insertitem (item nnn lst / lout )<br />   (if (< nnn (length lst))<br />     (progn<br />       (setq lout '())<br />       (repeat nnn<br />               (setq lout (cons (car lst) lout) lst (cdr lst))<br />             )<br />       (append (reverse lout) (append item lst))<br />     )<br />     (append lst item)<br />   )<br /> )<br />

vlisp2012

楼上的很强大啊！多谢二位分享了！

vlisp2012

很好，多谢二位大侠了！！！！

kqqt6236

楼主的函数呢？

taoyi0727

好多大神  来学习了