多个sld的CAD 幻灯片如何切一个一个切换显示出来

caoyin

(defun c:tt (/ lst len n x)
  (princ"\n程序功能：显示自定义的命令")
  (setq lst '("own-command_1" "own-command_2" "own-command_3"));;幻灯片列表
  (command "_.vslide" (car lst))
  (setq len (length lst) n 1)
  (while (and (> len n) (getpoint "\n按左键显示下一个 <退出>: "))
    (if (setq x (nth n lst)) (command "_.vslide" x))
    (setq n (1+ n))
  )
  (princ)
)

ZZXXQQ

3. (defun c:tt (/ lst len n x)
4. &#160; (setvar "CMDECHO" 0)
5. &#160; (princ"\n程序功能：显示自定义的命令")
6. &#160; (setq lst '("own-command_1" "own-command_2" "own-command_3"));;幻灯片列表
7. &#160; (setq n 0)
8. &#160; (repeat (length lst)
9. &#160;  (setq x (nth n lst))
10. &#160;  (command "_.vslide" x)
11. &#160;  (command "delay" "2000")
12. &#160;  (setq n (1+ n))
13. &#160; )
14. &#160; (setvar "CMDECHO" 1)
15. &#160; (princ)
16. )

(defun c:tt (/ lst len n x) &#160; (setvar "CMDECHO" 0) &#160; (princ"\n程序功能：显示自定义的命令") &#160; (setq lst '("own-command_1" "own-command_2" "own-command_3"));;幻灯片列表 &#160; (setq n 0) &#160; (repeat (length lst) &#160;  (setq x (nth n lst)) &#160;  (command "_.vslide" x) &#160;  (command "delay" "2000") &#160;  (setq n (1+ n)) &#160; ) &#160; (setvar "CMDECHO" 1) &#160; (princ) )

caoyin

liminnet发表于2008-6-26 18:46:00谢谢caoyin大哥,还是你最好,现在只有你肯帮我啦,感恩中....................

你看 ZZXXQQ 版主不是也再帮你吗？在论坛发帖语言不要太偏激，不卑不亢。感觉你年龄很小，小孩子气很重...