[LISP程序]：求实现图形窗口切换的命令或程序

zxwbq

在autocad中打开多个图形文件,想用命令行切换到指定的图形文件.
或者直接关闭指定的(非当前)图形文件.

请高手给点提示.

它山之石

CTR+TAB

zxwbq

请问tab在命令行中用什么表示

userzhluserzhl

TAB是键盘上的按键！

它山之石

[php]
;|功能  
在不保存的情况下关闭所有文档  
语法  
(Glisp_CloseAllNoSave)  
|;

(defun Glisp_CloseAllNoSave ( / 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)
    )
  )
  (vla-sendcommand cur "_.CLOSE")
)  
[/php]

userzhluserzhl

我总是要把对话框关掉才能执行，要在中间加什么，对话框能自动关掉？

它山之石

　　楼上的，既然你是学贱人的做法，最好是请贱人老师解答。俺不便乱讲。
　　另外，俺觉得没有必要这样做。会慢很多，而且会点错。直接用命令，最多是用右键快捷菜单。

心梦相随

http://www.xdcad.net/forum/showt ... 1750993#post1750993
我有发过了，你可以下载看看。

userzhluserzhl

心梦相随，我想知道的是源码呀，能不能发一份给我？
还有上面我发的问题我也问过贱人，但我还是试了不成功，他又不肯露源码的，我真无助呀

它山之石

最初由 userzhluserzhl 发布
[B]心梦相随，我想知道的是源码呀，能不能发一份给我？
还有上面我发的问题我也问过贱人，但我还是试了不成功，他又不肯露源码的，我真无助呀 [/B]

1、人家不是说给你听的。那是窗口切换程序。你是鹊巢鸠占。
2、把你的DCL文件也发上来俺看看。

userzhluserzhl

我只是想做作个参考，了解其中的关系，并无他意，它山之石你误会了！！！

zxwbq

心梦相随发原码吧。

另外，又有新问题噢

编一个程序，工作过程如下

1。用户输入指定文件夹名称
2。autocad自动进入该文件夹内的所有子文件夹，子子文件夹。。。
3。逐个进入子文件夹(子子文件夹)后，对文件夹内的dwg图片进行操作

以上的第二步请问如何实现？是否必须用vl-directory-files加循环的办法？
有没有现成的程序实现这个功能？

心梦相随

呵呵，我已经放假回家了啊。手头没有资料了。
以前发了几个心血贴子，斑竹都没有理睬，积极性很受打击啊。
暑假在看ARX，回校贴上。源码和5楼的差不多。