Jack_PC 发表于 2011-7-5 17:44:21

循环尺寸标注

请问按以下方式写循环标注，不知是什么原因循环无效
(defun C:test ()
(while
    (command "_dimlinear")
)
(princ)
)

祥子 发表于 2011-7-5 18:14:52

用这个命令就好了，
multiple

Jack_PC 发表于 2011-7-5 18:20:08

祥子 发表于 2011-7-5 18:14 static/image/common/back.gif
用这个命令就好了，
multiple

如何用啊不会

Jack_PC 发表于 2011-7-5 20:10:29

刚接受LISP很多基础不会,请知道的帮助解决此问题

ljpnb 发表于 2011-7-5 21:58:01

Jack_PC 发表于 2011-7-5 20:10 static/image/common/back.gif
刚接受LISP很多基础不会,请知道的帮助解决此问题

有一点小BUG
(defun C:test ()
(setq        ent (entlast)
        key t
)
(if ent
    (setq jb (cdr (assoc 5 (entget ent))))
)
(while key
    (command "dimlinear" pause pause pause)
    (if        (setq ent1 (entlast))
      (progn
        (if (/= (cdr (assoc 5 (entget ent1))) jb)
          (progn
          (setq key t)
          (setq jb (cdr (assoc 5 (entget ent1))))
          )
          (setq key nil)
        )
      )
      (setq key nil)
    )
)
(princ)
)

Jack_PC 发表于 2011-7-6 17:38:51

谢谢.但是不明白为什么需要这样写才能循环?

ZZXXQQ 发表于 2011-7-6 20:04:42


(defun C:test ()
(while T
(command "_dimlinear")
(while (> (getvar "CMDACTIVE") 0) (command PAUSE))
)
(princ)
)

Jack_PC 发表于 2011-7-6 23:03:07

非常感谢各位的帮助
页: [1]
查看完整版本: 循环尺寸标注