54525596 发表于 2013-6-2 15:38:08

文字移动循环问题。。。

(defun c:tt ()
    (setq wss (ssget '((0 . "text"))))
    (setq i 0)
    (repeat (sslength wss)
          (setq wa (ssname wss i))
          (setq went (entget wa))
          (setq wz (assoc 10 went))
          (setq wzzxy (cdr wz))
          (setq wzxx (car wzzxy))
          (setq wzxy (cadr wzzxy))
          (setq wzzxxy (list wzxx wzxy))
          (setq wysx (+ wzxx 3))
          (setq wysy (+ wzxy 1))
          (setq wzysxy (list wysx wysy))
          (setq z wzzxxy)
          (setq y wzysxy)
          (setq p 0.2)
      (if (ssget "c" z y '((-4 . "<NOT") (0 . "text") (-4 . "NOT>")))
          (progn
            (setq j 0)
            (while (<= j 1)
            (setq xwzxy (- wzxy p))
            (setq x (list wzxx xwzxy))
            (setq xwzxx (car x))
            (setq xwzsx (+ xwzxx 3))
            (setq xwzsy (+ xwzxy 1))
            (setq x1 (list xwzsx xwzsy))
            (if (not (ssget "c" x x1 '((-4 . "<NOT") (0 . "text") (-4 . "NOT>"))))
               (progn
                (setq went (subst (cons 10 x) wz went))
                (entmod went)
               )progn
            );if
             (setq j (+ j p))
            );while
         );progn
         );if
(setq i (+ i 1))
);repeat
(princ)
);defun
循环没用？？在这顺便感谢一下G版主的方法。。呵呵。

lsjj 发表于 2013-6-2 21:45:59

能否試著研究textbox的方法，上面的寫法看的很累...

54525596 发表于 2013-6-3 17:10:14

lsjj 发表于 2013-6-2 21:45 static/image/common/back.gif
能否試著研究textbox的方法，上面的寫法看的很累...

哦，TEXTBOX方法，我有想过，不过我的字体高也就是1，所以不用了，，反正得到他方框，，现在问题是循环的问题呀？？不过也谢谢你，你累了，辛苦了，水平有限，呵呵。

yaokui25 发表于 2013-7-18 22:07:05

为什么2004中文版，运行之后没反应呢？楼主

lenovo1x1 发表于 2013-8-21 10:53:30

不能用。楼主发文本吧

fl202 发表于 2013-8-21 17:23:28

也每个功能介绍，你想实现什么功能？看你的程序太累了！变量都太相似！完全能精简1半的语句。。。

你干脆说出来想干吗，我们给你编得了，没法调试，累死了。
页: [1]
查看完整版本: 文字移动循环问题。。。