lincctw_ccl 发表于 2011-5-27 10:57:58

如何修改才能执行自动储存档案?(已解決)

本帖最后由 lincctw_ccl 于 2011-5-27 14:56 编辑

各位好!!请教下面有用到 while的lsp可否能达到
当move 次数执行10次时即中断执行
改执行
save 指令或先改执行SAVE指令再继续执行原有之MOVE指令 谢谢!! (defun c:ttt (/ pa ss)(setvar "osmode" 0)(setvar "cmdecho" 0)(command "_ucs""w")(while
(setq pa (getpoint "\n基点："))
(princ "\n 选择像素: ")
(setq ss
(ssget))(command ".move" ss"" pa "@2<45"))(princ))

ZZXXQQ 发表于 2011-5-27 11:20:56

(defun c:ttt (/ pa ss)
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(command "_ucs""w")
(setq i 0)
(while
(setq pa (getpoint "\n基点："))
(princ "\n 选择像素: ")
(setq ss (ssget))
(setq i (1+ i))
(command ".move" ss"" pa "@2<45")
(if (= (rem i 10) 0) (command ".QSAVE"))
)
(princ)
)

lincctw_ccl 发表于 2011-5-27 11:35:03

謝謝版主指導!!
可以運行了!
謝謝!!

朽木大师 发表于 2012-8-21 12:45:42

做记号，版主的就是高人的
页: [1]
查看完整版本: 如何修改才能执行自动储存档案?(已解決)