那个点怎么来的,你看看这个的结果:(cons "a" (cons "a" "b")),再看看函数cons的用法。。。我的程序如下:- (defun C:sas (/ c1-item-temp c1-item)
- (setq c1-item-temp
- (list "F" "F" "F" "F" "F" "F" "F" "F" "F"
- "F" "F" "F" "F" "F" "F" "F" "F" "F"
- "F" "F" "F" "F" "F" "F" "F" "F" "F"
- "F" "F" "F" "F" "F" "F" "F" "F" "F"
- "F" "F" "F" "F" "F" "F" "F" "F" "F"
- "F" "F" "F" "F" "F" "F" "F" "F" "F"
- "F" "F" "F" "F" "F" "F" "F" "F" "F"
- "F" "F" "F" "S" "S" "S" "S" "S" "S"
- "S" "S" "S" "S" "S" "S" "S" "S" "S"
- "S" "S" "S" "S" "S" "S" "S" "S" "S"
- "S" "S" "S" "S" "S" "S" "S" "S" "S"
- "S" "S" "S" "S" "S" "S" "S" "S" "S"
- "S" "S" "S" "S" "S" "S" "S" "S" "S"
- "S" "S" "S" "S" "S" "S" "S" "S" "S"
- "S" "S" "S" "S" "S" "S" "S" "S" "S"
- "S" "S" "S" "S" "S" "S" "S" "S" "S"
- "S" "S" "S" "S" "T" "T"
- )
- )
- (setq c1-item-temp (vl-sort c1-item-temp '<) c1-item nil)
- (foreach item c1-item-temp
- (if (not (member item c1-item))
- (setq c1-item (append c1-item (list item)))
- )
- )
- (print "c1-item")
- (print c1-item)
- )
|