ssget 的list格式问题

lyqiezi

2. (defun c:tt()
   
3.   (princ "\n选择源文字")
   
4.   (setq ss1 (ssget '((0 . "TEXT"))))
   
5.   (princ "\n选择目标文字")
   
6.   (setq ss2 (ssget '((0 . "TEXT"))))
   
7.   (setq i 0)
   
8.   (if (and ss1 ss2)
   
9.     (while (< i (sslength ss1))
   
10.       (progn
    
11.         (setq text1 (cdr (assoc 1 (entget (ssname ss1 i)))))
    
12.         (command "_.CHPROP" (ssname ss1 i) "" "c" (1+ i) "")
    
13.         (command "select" ss2 "")
    
14.         (if (setq ss (ssget "p" (list '(0 . "text") (cons 1 text1))))
    
15.           (command "_.CHPROP" ss "" "c" (1+ i) "")
    
16.          )
    
17.       )
    
18.     (setq i (1+ i))
    
19.     )
    
20.    )
    
21.   (prin1)
    
22. )
    

(defun c:tt()<br />   (princ "\n选择源文字")<br />   (setq ss1 (ssget '((0 . "TEXT"))))<br />   (princ "\n选择目标文字")<br />   (setq ss2 (ssget '((0 . "TEXT"))))<br />   (setq i 0)<br />   (if (and ss1 ss2)<br />     (while (< i (sslength ss1))<br />       (progn<br />         (setq text1 (cdr (assoc 1 (entget (ssname ss1 i)))))<br />         (command "_.CHPROP" (ssname ss1 i) "" "c" (1+ i) "")<br />         (command "select" ss2 "")<br />         (if (setq ss (ssget "p" (list '(0 . "text") (cons 1 text1))))<br />           (command "_.CHPROP" ss "" "c" (1+ i) "")<br />          ) <br />       )<br />     (setq i (1+ i))<br />     )<br />    )<br />   (prin1)<br /> )<br />

lyqiezi

怎么只有代码，没有问题……
这个是根据品茗的要求写的一段代码
(if (setq ss (ssget "p" (list '(0 . "text") (cons 1 text1))))
这一句，我不放(0 . "text") 的时候，无法继续，谁给解答一下？？

ll_j

是“(ssget "p" (list (cons 1 text1)))”么？不会少写了一层list吧？

自贡黄明儒

lyqiezi 发表于 2014-4-17 10:27
怎么只有代码，没有问题……
这个是根据品茗的要求写的一段代码
(if (setq ss (ssget "p" (list '(0 . "t ...

&#2573;

试了一下，应该可以，可能是你前面ss为nil

lyqiezi

(setq ss (ssget "p" (list '(0 . "text") (cons 1 text1))))这样是可以执行的
(setq ss (ssget "p" (list '(cons 1 text1)))) 这样无法执行

ll_j

lyqiezi 发表于 2014-4-17 15:42
(setq ss (ssget "p" (list '(0 . "text") (cons 1 text1))))这样是可以执行的
(setq ss (ssget "p" (list ...

(cons 1 text1)前面多了一个单引号。

lyqiezi

这个单引号在什么地方用啊？有些程序看到只用单引号，有些又有list 又有单引号

ll_j

lyqiezi 发表于 2014-4-17 15:58
这个单引号在什么地方用啊？有些程序看到只用单引号，有些又有list 又有单引号

单引号表示后面的表达式不处理，如'(1 . "text")，后面有需要“运算”的就不能加单引号，如(cons 1 txt)。

lyqiezi

谢谢，我曾经以为有list，就不用单引号