社区 › AutoLISP/Visual LISP 编程技术 › 把此贴删除了

500w008 发表于 2012-7-24 14:21:39

500w008 发表于 2012-7-24 14:25:16

500w008 发表于 2012-7-24 14:30:44

500w008 发表于 2012-7-24 14:37:00

soly2006 发表于 2012-7-24 19:02:31

别傻了，中国素来有“宁赠友邦，不予家奴”的传统。

preone 发表于 2012-7-24 19:49:10

想法是好~~

500w008 发表于 2012-7-24 20:05:38

500w008 发表于 2012-7-25 10:47:08

LLXXZZ 发表于 2012-7-25 12:34:32

通用函数库这东西,是程序的核心所在,没有利益或者是胸怀,一般不会直接拿出来...

革天明 发表于 2012-7-25 15:43:58

;;http://bbs.mjtd.com/forum.php?mod=viewthread&tid=95639&extra=
;;定义一个函数，对表进行处理，返回表中元素重复的数目
;;革天明 2012年7月18日明经通道
;;(n-n '(2 3 4 6 5 3 2 5 1 3 2 4 6 1 0))
;;((0 . 1) (1 . 2) (5 . 2) (6 . 2) (4 . 2) (3 . 3) (2 . 3))
;;(n-n '(1 2 1 2 (1 1) (1 2) (1 1) (1 2)))
;;(((1 2) . 2) ((1 1) . 2) (2 . 2) (1 . 2))
;;(n-n '("133" "afds" "afds" "abc" "g" "h" "ab" "abc" "123" ))
;;(("123" . 1) ("ab" . 1) ("h" . 1) ("g" . 1) ("abc" . 2) ("afds" . 2) ("133" . 1))
;;(n-n '(1 2 3 3 3 5 6 q q 明镜 不是 明经 也不是 明镜 44 44 8 8 6))
;;((8 . 2) (44 . 2) (也不是 . 1) (明经 . 1) (不是 . 1) (明镜 . 2) (Q . 2) (6 . 2) (5 . 1) (3 . 3) (2 . 1) (1 . 1))
;;       请注意，最后一个例子中q变成了Q，不知道原因，可能是那个表中元素类型太杂了吧
(defun N-N (lst / lst1 lst2)
(vl-load-com)
;;删除表中重复元素
;;Gu_xl口中的顾版http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92645
;;http://bbs.mjtd.com/forum.php?mo ... 16&page=1#pid537663
(defun delsame (lst)
    (if lst
      (cons (car lst) (delsame (vl-remove (car lst) lst)))
    )
)
;;返回表中元素的重复次数
(defun repeatnum (x lst / n)
    (setq n (length lst))
    (- n (length (vl-remove x lst)))
)
(setq lst1'())
(foreach n (delsame lst)
    (setq lst2(cons n (repeatnum n lst)))
    (setq lst1(cons lst2 lst1))
)
lst1   
)

查看完整版本: 把此贴删除了