直接点~~~求修改代码

ysq101

1. 函数：
   
2. ax:CloseAll
   
3. 功能：
   
4. 在不保存的情况下关闭所有文档
   
5. 函数代码：
   
6. (defun ax:CloseAll ( / item cur)
   
7.   (vlax-for item (vla-get-documents (vlax-get-acad-object))
   
8.     (if (= (vla-get-active item) :vlax-false)
   
9.       (vla-close item :vlax-false)
   
10.       (setq cur item)
    
11.     )
    
12.   )
    
13.   (vla-sendcommand cur "_.CLOSE")
    
14. )语法：
    
15. (ax:CloseAll)
    
16. 
    

函数：<br /> ax:CloseAll <br /> 功能：<br /> 在不保存的情况下关闭所有文档 <br /> 函数代码：<br /> (defun ax:CloseAll ( / item cur)<br />   (vlax-for item (vla-get-documents (vlax-get-acad-object))<br />     (if (= (vla-get-active item) :vlax-false)<br />       (vla-close item :vlax-false)<br />       (setq cur item)<br />     )<br />   )<br />   (vla-sendcommand cur "_.CLOSE")<br /> )语法：<br /> (ax:CloseAll) <br /> <br />

;本代码摘自<LISP学习手册>
还没学到VLA函数和子程序,,,,只有求大师们出手了....帮我直接修改好..
先谢谢各位了~~~~~~~

(defun C:tt ( / item cur)
  (vlax-for item (vla-get-documents (vlax-get-acad-object))
    (if (= (vla-get-active item) :vlax-false)
      (vla-close item :vlax-false)
      (setq cur item)
    )
  )
(cccc)
)
(defun cccc ()
(command "close" "" "Y")
)
我改成了这样.......前面主函数可以关闭除当前外的文档,,,当前窗口提示"未知命令 TT"(当前文档窗口如果是新建的,且没运行过任何CAD命令的话也可以正常关闭全部窗口)
何解??有办法只关闭文档不退出CAD吗?

(command "quit" "" "Y")
改成这样可以正常运行,只是把CAD都退出了.....

newer

你用这个代码的时候，遇到什么问题了？

ScmTools

这是一个关闭非当前活动档案的函数,此函数本质上没有问题,是可以直接用,不知你需修改什么?  你要说清楚,你需要改什么？这样才能解决你当前的问题{:soso_e127:}

ysq101

ScmTools 发表于 2013-6-15 21:13
这是一个关闭非当前活动档案的函数,此函数本质上没有问题,是可以直接用,不知你需修改什么?  你要说清楚,你 ...

运行时参数太少,,,,,,我要实现的功能是不保存直接关闭所有打开的文档

ysq101

newer 发表于 2013-6-15 17:51
你用这个代码的时候，遇到什么问题了？

运行时参数太少,,,,,,我要实现的功能是不保存直接关闭所有打开的文档
- 本文出自晓东CAD家园-论坛，原文地址：http://bbs.xdcad.net/thread-668881-1-1.html

ysq101

不是参数太少.........是运行时只关闭当前图档之外的图档.......当前图档没关闭....

ScmTools

ysq101 发表于 2013-6-16 09:52
不是参数太少.........是运行时只关闭当前图档之外的图档.......当前图档没关闭....

直接退出CAD用(command  "quit" "y")

ysq101

ScmTools 发表于 2013-6-16 12:31
直接退出CAD用(command  "quit" "y")

这样直接退出了CAD，，我只想关闭全部CAD文档，，可以吗？

newer

ysq101 发表于 2013-6-16 15:56
这样直接退出了CAD，，我只想关闭全部CAD文档，，可以吗？

为啥还有这要求呢？ 什么情况让你关闭所有图，CAD还不退出？

ysq101

newer 发表于 2013-6-16 16:36
为啥还有这要求呢？ 什么情况让你关闭所有图，CAD还不退出？

电脑问题吧...CAD重启需要一点时间~~~~

taner

newer 发表于 2013-6-16 16:36
为啥还有这要求呢？ 什么情况让你关闭所有图，CAD还不退出？

CLOSE就不退出CAD

st788796

Use Command CloseAll

ysq101

st788796 发表于 2013-6-16 18:48
Use Command CloseAll

帮忙修改一下?

ysq101

taner 发表于 2013-6-16 18:33
CLOSE就不退出CAD

帮忙修改一下??"??

st788796

ysq101 发表于 2013-6-16 18:54
帮忙修改一下??"??

改那个做什么？直接输入命令 closeall