cond用法

cindy_fisher

2. 求cond用法，如以下程序，用监视窗口可以得到 (cdr (assoc 1 (entget (ssname ssfunc 1))))的值，输入txt11 就变成nil,是不是cond不支持很多句子。以下程序想实现选中的文本组合起来列在一行，因为选中的文本有三个情况，一个文本，两个和三个。谢谢。
   
3. 
   
4. (defun C:kl ()
   
5.   (setq p1 (getpoint))
   
6.   (setq p2 (getpoint))
   
7. 
   
8.   (setq  ssfunc (ssget "w"
   
9.           p1
   
10.           p2
    
11.           '((0 . "text,mtext")
    
12.       (-4 . "<not")
    
13.       (1 . "*[0-9]*")
    
14.       (-4 . "not>")
    
15.            )
    
16.          )
    
17.   )
    
18. (setq a (sslength ssfunc))
    
19.   (setq b(type a))
    
20.   ;;below-test
    
21.   (cond
    
22.    
    
23.     (= (sslength ssfunc) 2)
    
24.     ((setq txt11 (cdr (assoc 1 (entget (ssname ssfunc 1)))))
    
25.      (setq txt12 (cdr (assoc 1 (entget (ssname ssfunc 2)))))
    
26.      (setq txt1 (strcat txt11 "]" txt12))
    
27.     )
    
28. 
    
29.     (= (sslength ssfunc) 3)
    
30.     ((setq txt11 (cdr (assoc 1 (entget (ssname ssfunc 1)))))
    
31.      (setq txt12 (cdr (assoc 1 (entget (ssname ssfunc 2)))))
    
32.      (setq txt13 (cdr (assoc 1 (entget (ssname ssfunc 3)))))
    
33.      (setq txt1 (strcat txt11 "]" txt12 "]" txt13))
    
34.     )
    
35.     (t
    
36.      (setq txt1 (cdr (assoc 1 (entget (ssname ssfunc 1))))))
    
37.     )
    
38.     (print txt1)
    
39.   )
    

求cond用法，如以下程序，用监视窗口可以得到 (cdr (assoc 1 (entget (ssname ssfunc 1))))的值，输入txt11 就变成nil,是不是cond不支持很多句子。以下程序想实现选中的文本组合起来列在一行，因为选中的文本有三个情况，一个文本，两个和三个。谢谢。<br /> <br /> (defun C:kl ()<br />   (setq p1 (getpoint))<br />   (setq p2 (getpoint))<br /> <br />   (setq  ssfunc (ssget "w"<br />           p1<br />           p2<br />           '((0 . "text,mtext")<br />       (-4 . "<not")<br />       (1 . "*[0-9]*")<br />       (-4 . "not>")<br />            )<br />          )<br />   )<br /> (setq a (sslength ssfunc))<br />   (setq b(type a))<br />   ;;below-test<br />   (cond<br />     <br />     (= (sslength ssfunc) 2)<br />     ((setq txt11 (cdr (assoc 1 (entget (ssname ssfunc 1)))))<br />      (setq txt12 (cdr (assoc 1 (entget (ssname ssfunc 2)))))<br />      (setq txt1 (strcat txt11 "]" txt12))<br />     )<br /> <br />     (= (sslength ssfunc) 3)<br />     ((setq txt11 (cdr (assoc 1 (entget (ssname ssfunc 1)))))<br />      (setq txt12 (cdr (assoc 1 (entget (ssname ssfunc 2)))))<br />      (setq txt13 (cdr (assoc 1 (entget (ssname ssfunc 3)))))<br />      (setq txt1 (strcat txt11 "]" txt12 "]" txt13))<br />     )<br />     (t<br />      (setq txt1 (cdr (assoc 1 (entget (ssname ssfunc 1))))))<br />     )<br />     (print txt1)<br />   )<br />

Andyhon

Try:

2. 
   
3. (cond
   
4.     ((= (sslength ssfunc) 2)
   
5.      (setq txt11 (cdr (assoc 1 (entget (ssname ssfunc 1)))))
   
6.      (setq txt12 (cdr (assoc 1 (entget (ssname ssfunc 2)))))
   
7.      (setq txt1 (strcat txt11 "]" txt12))
   
8.     )
   
9.     ((= (sslength ssfunc) 3)
   
10.      (setq txt11 (cdr (assoc 1 (entget (ssname ssfunc 1)))))
    
11.      (setq txt12 (cdr (assoc 1 (entget (ssname ssfunc 2)))))
    
12.      (setq txt13 (cdr (assoc 1 (entget (ssname ssfunc 3)))))
    
13.      (setq txt1 (strcat txt11 "]" txt12 "]" txt13))
    
14.     )
    
15.     (t
    
16.      (setq txt1 (cdr (assoc 1 (entget (ssname ssfunc 1)))))
    
17.     )
    
18.    )
    

<br /> (cond<br />     ((= (sslength ssfunc) 2)<br />      (setq txt11 (cdr (assoc 1 (entget (ssname ssfunc 1)))))<br />      (setq txt12 (cdr (assoc 1 (entget (ssname ssfunc 2)))))<br />      (setq txt1 (strcat txt11 "]" txt12))<br />     )<br />     ((= (sslength ssfunc) 3)<br />      (setq txt11 (cdr (assoc 1 (entget (ssname ssfunc 1)))))<br />      (setq txt12 (cdr (assoc 1 (entget (ssname ssfunc 2)))))<br />      (setq txt13 (cdr (assoc 1 (entget (ssname ssfunc 3)))))<br />      (setq txt1 (strcat txt11 "]" txt12 "]" txt13))<br />     )<br />     (t<br />      (setq txt1 (cdr (assoc 1 (entget (ssname ssfunc 1)))))<br />     )<br />    )<br />

cindy_fisher

Andyhon 发表于 2012-2-20 17:18
Try:

成功了，谢谢，我太粗心了，竟然把括号给丢了，还有老是忘了ssname 是从0开始的

Andyhon

套用函數...

2. 
   
3. ;|
   
4. General GET{ key(s) list(s) } function
   
5. Created (1995) by Vladimir Nesterovsky
   
6. e-mail me for any questions or comments
   
7.       at [url=mailto:vnestr@netvision.net.il]vnestr@netvision.net.il[/url]
   
8. YOU MAY USE THIS FUNCTION AS IT IS FOR ANY PURPOSE
   
9. AT YOUR OWN RISK IF YOU RETAIN THIS NOTICE COMPLETE
   
10. AND UNALTERED. NO WARRANTIES GIVEN WHATSOEVER.
    
11. |;
    
12. (defun get (k l)
    
13.   ;; GET KEY(s) FROM LIST(s)
    
14.   (if (atom (caar l))
    
15.     ;; l is ASSOC'able list
    
16.     (cond ;; use this l!
    
17.           ((atom k)
    
18.            ;; k is a key
    
19.            (cdr (Assoc k l))
    
20.           )
    
21.           ((and (cdr k) (atom (cdr k)))
    
22.            ;; '(0 . 8) -->> ("layer" . "Entity")
    
23.            (cons (get (car k) l) (cdr (assoc (cdr k) l)))
    
24.           )
    
25.           (T
    
26.            ;; k is a list of something - get inside
    
27.            (mapcar (function (lambda (subk) (get subk l))) k)
    
28.           )
    
29.     )
    
30.     ;; else - get inside list
    
31.     (mapcar (function (lambda (subl) (get k subl))) l)
    
32.   )
    
33. )
    
34. (defun sel2lst (sel / n l)
    
35.   (cond
    
36.     ((= (type sel) 'ENAME) (list sel))
    
37.     (T
    
38.      (repeat (setq n (sslength sel))
    
39.        (setq n (1- n)
    
40.              l (cons (ssname sel n) l)
    
41.        )
    
42.      )
    
43.     )
    
44.   )
    
45. )
    
46. ;;; ===================================
    
47. (defun strlcatR (lst / a b)
    
48.   (setq a (car lst)
    
49.         b (cdr lst)
    
50.   )
    
51.   (if b
    
52.     (strcat a "]" (strlcatR b))
    
53.     a
    
54.   )
    
55. )
    
56. ;;; ====================================
    
57. (setq ssfunc (ssget
    
58.                '((0 . "text,mtext")
    
59.                  (-4 . "<not")
    
60.                  (1 . "*[0-9]*")
    
61.                  (-4 . "not>")
    
62.                 )
    
63.              )
    
64. )
    
65. (strlcatR (get 1 (mapcar 'entget (sel2lst ssfunc))))
    

<br /> ;|<br /> General GET{ key(s) list(s) } function<br /> Created (1995) by Vladimir Nesterovsky<br /> e-mail me for any questions or comments<br />       at [url=mailto:vnestr@netvision.net.il]vnestr@netvision.net.il[/url]<br /> YOU MAY USE THIS FUNCTION AS IT IS FOR ANY PURPOSE<br /> AT YOUR OWN RISK IF YOU RETAIN THIS NOTICE COMPLETE<br /> AND UNALTERED. NO WARRANTIES GIVEN WHATSOEVER.<br /> |;<br /> (defun get (k l)<br />   ;; GET KEY(s) FROM LIST(s)<br />   (if (atom (caar l))<br />     ;; l is ASSOC'able list<br />     (cond ;; use this l!<br />           ((atom k)<br />            ;; k is a key<br />            (cdr (Assoc k l))<br />           )<br />           ((and (cdr k) (atom (cdr k)))<br />            ;; '(0 . 8) -->> ("layer" . "Entity")<br />            (cons (get (car k) l) (cdr (assoc (cdr k) l)))<br />           )<br />           (T<br />            ;; k is a list of something - get inside<br />            (mapcar (function (lambda (subk) (get subk l))) k)<br />           )<br />     )<br />     ;; else - get inside list<br />     (mapcar (function (lambda (subl) (get k subl))) l)<br />   )<br /> )<br /> (defun sel2lst (sel / n l)<br />   (cond<br />     ((= (type sel) 'ENAME) (list sel))<br />     (T<br />      (repeat (setq n (sslength sel))<br />        (setq n (1- n)<br />              l (cons (ssname sel n) l)<br />        )<br />      )<br />     )<br />   )<br /> )<br /> ;;; ===================================<br /> (defun strlcatR (lst / a b)<br />   (setq a (car lst)<br />         b (cdr lst)<br />   )<br />   (if b<br />     (strcat a "]" (strlcatR b))<br />     a<br />   )<br /> )<br /> ;;; ====================================<br /> (setq ssfunc (ssget<br />                '((0 . "text,mtext")<br />                  (-4 . "<not")<br />                  (1 . "*[0-9]*")<br />                  (-4 . "not>")<br />                 )<br />              )<br /> )<br /> (strlcatR (get 1 (mapcar 'entget (sel2lst ssfunc))))<br />