麻烦帮看下，文字压线移动

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))
         
      
         
       (if (ssget "c" wzzxy wysxy '((-4 . "<NOT") (0 . "text") (-4 . "NOT>")))

        (progn
           
              (setq xwzxy (- wzxy 0.5))
              (setq x (list wzxx xwzxy))
              (setq went (subst (cons 10 x) wz went))
              (entmod went)
           
         );progn
         
        );if
        
         
      （setq i (+ i 1)）

     );repeat

(princ)
)
根据上次师傅说了一下判断方法，我判断出了，但只运行了一次，例如我得到三个文本，都在线上，但运行这代码，就是改变一个图元，其它的都不动，，再运行一次也是改变上一次的图元。。。REPEAT不是按图元个数来计算次数吗？？？为什么下个图元不行了？？？

54525596

(while (ssget "c" wzzxy wysxy '((-4 . "<NOT") (0 . "text") (-4 . "NOT>")))


)用循环来判断文字是否再压着对象，压着就一直移动。。我尝试了一下，也不行，运行后CAD不行，按ESC建后就行了？？？？

54525596

没师傅帮忙看看咯？？？自己想想办法看。。。

张和平

(setq i (+ i 1))
这句的括号用了中文的括号，，

54525596

张和平 发表于 2013-5-29 22:39
(setq i (+ i 1))
这句的括号用了中文的括号，，

知道了，呵呵，谢谢啊。。。