如何给表加上括号”（）“！

enjoysj

比如我有一个表 ：（（A B）（C D）（E F）），怎么样才能变成：（（（A B）（C D）（E F））），谢谢啊！

bobby

(mapcar 'list '((A B) (C D) (E F)))

samshs

3. (defun c:test (/ a1 el str)
4.   (setq    txt5 (ukword
5.            1
6.            "1 2 3 4 5 6 7 8 9"
7.            "\n请选择括号形式：1-()/2-（）/3-{}/4-[]/5-〔〕/6-「」/7-『』/8-〖〗/9-【】"
8.            txt5
9.          )
10.     a1   (car (entsel "\n请选择文字 : "))
11.     el   (entget a1)
12.     str  (dxf 1 el)
13.   )
14.   (khxs)
15.   (setq    a1 (subst (cons 1 str) (ASSOC 1 el) el)
16.   )
17.   (entmod a1)
18.   (princ)
19. )
20. (defun dxf (code elist) (cdr (assoc code elist)))
21. (defun khxs ()
22.   (cond    ((= txt5 "1") (setq str (strcat "(" str ")")))
23.     ((= txt5 "2") (setq str (strcat "（" str "）")))
24.     ((= txt5 "3") (setq str (strcat "{" str "}")))
25.     ((= txt5 "4") (setq str (strcat "[" str "]")))
26.     ((= txt5 "5") (setq str (strcat "〔" str "〕")))
27.     ((= txt5 "6") (setq str (strcat "「" str "」")))
28.     ((= txt5 "7") (setq str (strcat "『" str "』")))
29.     ((= txt5 "8") (setq str (strcat "〖" str "〗")))
30.     ((= txt5 "9") (setq str (strcat "【" str "】")))
31.     (t (setq str (strcat "(" str ")")))
32.   )
33. )
34. (defun ukword (bit kwd msg def / inp)
35.   (if (and def (/= def ""))
36.     (setq msg (strcat "\n" msg "<" def ">:")
37.       bit (* 2 (fix (/ bit 2)))
38.     )
39.     (setq msg (strcat "\n" msg ":"))
40.   )
41.   (initget bit kwd)
42.   (setq inp (getkword msg))
43.   (if inp
44.     inp
45.     def
46.   )
47. )
48. (defun c:jkh()(c:test))

(defun c:test (/ a1 el str)   (setq    txt5 (ukword            1            "1 2 3 4 5 6 7 8 9"            "\n请选择括号形式：1-()/2-（）/3-{}/4-[]/5-〔〕/6-「」/7-『』/8-〖〗/9-【】"            txt5          )     a1   (car (entsel "\n请选择文字 : "))     el   (entget a1)     str  (dxf 1 el)   )   (khxs)   (setq    a1 (subst (cons 1 str) (ASSOC 1 el) el)   )   (entmod a1)   (princ) ) (defun dxf (code elist) (cdr (assoc code elist))) (defun khxs ()   (cond    ((= txt5 "1") (setq str (strcat "(" str ")")))     ((= txt5 "2") (setq str (strcat "（" str "）")))     ((= txt5 "3") (setq str (strcat "{" str "}")))     ((= txt5 "4") (setq str (strcat "[" str "]")))     ((= txt5 "5") (setq str (strcat "〔" str "〕")))     ((= txt5 "6") (setq str (strcat "「" str "」")))     ((= txt5 "7") (setq str (strcat "『" str "』")))     ((= txt5 "8") (setq str (strcat "〖" str "〗")))     ((= txt5 "9") (setq str (strcat "【" str "】")))     (t (setq str (strcat "(" str ")")))   ) ) (defun ukword (bit kwd msg def / inp)   (if (and def (/= def ""))     (setq msg (strcat "\n" msg "<" def ">:")       bit (* 2 (fix (/ bit 2)))     )     (setq msg (strcat "\n" msg ":"))   )   (initget bit kwd)   (setq inp (getkword msg))   (if inp     inp     def   ) ) (defun c:jkh()(c:test))

caoyin

(setq a '((1 2) (3 4)))

(list a)->(((1 2) (3 4)))

enjoysj

终于找到思路了，谢谢上面的bobby、samshs、caoyin，呵呵！