麻烦帮看下，，

54525596

defun c:tt ()
    (setvar "osmode" 0)
    (setq wss (ssget "x" '((0 . "text"))))
    (setq i 0)
      (repeat (sslength wss)
         
          (setq wa (ssname wss i))
          (setq went (entget wa))
          (setq wff (assoc 1 went))
          (setq wfff (cdr wff))
          (setq wz (assoc 10 went))
          (setq wzzxy (cdr wz))
          (setq wzxx (car wzzxy))
          (setq wzxy (cadr wzzxy))
          (setq wysx (+ wzxx 3))
          (setq wysy (+ wzxy 1))
          (setq wysxy (list wysx wysy))
         
        (setq j 0)
(while (<= j 3)
(if (ssget "c" wzzxy wysxy '((-4 . "<NOT") (0 . "text") (-4 . "NOT>")))

        (progn
           
              (setq xwzxy (- wzxy 0.2))
              (setq x (list wzxx xwzxy))
              (setq went (subst (cons 10 x) wz went))
              (entmod went)
           (setq wz (assoc 10 went))
              (setq wzzxy (cdr wz))
              (setq wzxx (car wzzxy))
              (setq wzxy (cadr wzzxy))
              (setq wysx (+ wzxx 3))
              (setq wysy (+ wzxy 1))
              (setq wysxy (list wysx wysy))
              (setq z wzzxy)
              (setq y wysxy)
         );progn
);if
        (setq j (+ j 0.2))
          );while

(if (ssget "c" z y '((-4 . "<NOT") (0 . "text") (-4 . "NOT>")))
       (progn
          (setq went (subst (cons 10 wzzxxy) wz went))
          (entmod went)
       );progn
    );if




      （setq i (+ i 1)）

     );repeat

(princ)
)
选择集里面有很多文字，但只找到一个。。。。是让文字压着对象就让文字往下移动，超限就回到原来位置。判断往上移动，还没有做好，，但我现在执行这个命令，就只移动一个？？？？？？不明白？？？

54525596

昨天发了一个贴，，没人帮忙呀，，继续看。。。请给我一点提点？？？

ZZXXQQ

发现个错误。下面是改正的：

2. (defun c:tt ()
   
3. (setvar "osmode" 0)
   
4. (setq wss (ssget "x" '((0 . "text"))))
   
5. (setq i 0)
   
6. (repeat (sslength wss)
   
7.   (setq wa (ssname wss i))
   
8.   (setq went (entget wa))
   
9.   (setq wff (assoc 1 went))
   
10.   (setq wfff (cdr wff))
    
11.   (setq wz (assoc 10 went))
    
12.   (setq wzzxy (cdr wz))
    
13.   (setq wzxx (car wzzxy))
    
14.   (setq wzxy (cadr wzzxy))
    
15.   (setq wysx (+ wzxx 3))
    
16.   (setq wysy (+ wzxy 1))
    
17.   (setq wysxy (list wysx wysy))
    
18.   (setq j 0)
    
19.   (while (<= j 3)
    
20.    (if (ssget "c" wzzxy wysxy '((-4 . "<NOT") (0 . "TEXT") (-4 . "NOT>"))) (progn
    
21.     (setq xwzxy (- wzxy 0.2))
    
22.     (setq x (list wzxx xwzxy))
    
23.     (setq went (subst (cons 10 x) wz went))
    
24.     (entmod went)
    
25.     (setq wz (assoc 10 went))
    
26.     (setq wzzxy (cdr wz))
    
27.     (setq wzxx (car wzzxy))
    
28.     (setq wzxy (cadr wzzxy))
    
29.     (setq wysx (+ wzxx 3))
    
30.     (setq wysy (+ wzxy 1))
    
31.     (setq wysxy (list wysx wysy))
    
32.     (setq z wzzxy)
    
33.     (setq y wysxy)
    
34.    ));if
    
35.    (setq j (+ j 0.2))
    
36.   );while
    
37.   (if (ssget "c" z y '((-4 . "<NOT") (0 . "text") (-4 . "NOT>"))) (progn
    
38.    (setq went (subst (cons 10 wzzxxy) wz went))
    
39.    (entmod went)
    
40.   ));if
    
41.   (setq i (+ i 1))
    
42. );repeat
    
43. (princ)
    
44. )
    

(defun c:tt ()<br /> (setvar "osmode" 0)<br /> (setq wss (ssget "x" '((0 . "text"))))<br /> (setq i 0)<br /> (repeat (sslength wss)<br />   (setq wa (ssname wss i))<br />   (setq went (entget wa))<br />   (setq wff (assoc 1 went))<br />   (setq wfff (cdr wff))<br />   (setq wz (assoc 10 went))<br />   (setq wzzxy (cdr wz))<br />   (setq wzxx (car wzzxy))<br />   (setq wzxy (cadr wzzxy))<br />   (setq wysx (+ wzxx 3))<br />   (setq wysy (+ wzxy 1))<br />   (setq wysxy (list wysx wysy))<br />   (setq j 0)<br />   (while (<= j 3)<br />    (if (ssget "c" wzzxy wysxy '((-4 . "<NOT") (0 . "TEXT") (-4 . "NOT>"))) (progn<br />     (setq xwzxy (- wzxy 0.2))<br />     (setq x (list wzxx xwzxy))<br />     (setq went (subst (cons 10 x) wz went))<br />     (entmod went)<br />     (setq wz (assoc 10 went))<br />     (setq wzzxy (cdr wz))<br />     (setq wzxx (car wzzxy))<br />     (setq wzxy (cadr wzzxy))<br />     (setq wysx (+ wzxx 3))<br />     (setq wysy (+ wzxy 1))<br />     (setq wysxy (list wysx wysy))<br />     (setq z wzzxy)<br />     (setq y wysxy)<br />    ));if<br />    (setq j (+ j 0.2))<br />   );while<br />   (if (ssget "c" z y '((-4 . "<NOT") (0 . "text") (-4 . "NOT>"))) (progn<br />    (setq went (subst (cons 10 wzzxxy) wz went))<br />    (entmod went)<br />   ));if<br />   (setq i (+ i 1))<br /> );repeat<br /> (princ)<br /> )<br />

xiabin68

高手，，反应就是快，，

54525596

ZZXXQQ 发表于 2013-5-29 23:15
发现个错误。下面是改正的：

（setq i (+ i 1)）
谢谢，，，看了一下，，怪不得，，但为什么CAD不报少了闭括号的错误呀？？？行，我继续努力。。谢谢啊

54525596

ZZXXQQ 发表于 2013-5-29 23:15
发现个错误。下面是改正的：

发现自己好笨，呵呵，