[求助]请高手帮忙做一个LISP程序

dolphin27

初学LISP,有个小程序有困难,请教各位高手.

程序目的: 交互选择产生一个选择集,该选择集只包含文字<(ssget  '((0 . "TEXT")))>,选择集中如果有文字内容相同的图元,相同图元只保留一个,其他的都删除。例如选择集包括的字符有（"1" "2" "3" "4" "2"  "5" "3" "2" "4"）,最后生成新选择集，包含字符（"1" "2" "3" "4" "5")。

谁能给出能正确运行的AUTOLISP源代码，多谢！！

xgr

好像有一个表排列涵数，会自动处理你说的问题。查一下表处理涵数！

ZZXXQQ

2. (DEFUN C:TEST ()
3. (IF (SETQ SS (SSGET '((0 . "TEXT") (1 . "#")))) (PROGN
4.   (SETQ N -1 MLST (LIST))
5.   (REPEAT (SSLENGTH SS)
6.    (SETQ ENT (ENTGET (SSNAME SS (SETQ N (1+ N))))
7.   MLST (APPEND MLST (LIST (CDR (ASSOC 1 ENT)))))
8.   )
9.   (SETQ NLST (LIST) I -1)
10.   (REPEAT (LENGTH MLST)
11.    (SETQ TEM (NTH (SETQ I (1+ I)) MLST)
12.   NLST (IF (MEMBER TEM NLST) NLST (APPEND NLST (LIST TEM))))
13.   )
14. ))
15. NLST
16. )

复制代码

yshf

是删除图中“文字内容相同的图元”吧？

mfkjjjypm

不太清楚，說具體點啦