关闭，退出，不出现附图中的对话框

李青松

关闭，不保存，退出，不出现附图中的对话框。用在cad2005中。编个程序

嘒彼小星

(command "_CLOSE" "y")

李青松

嘒彼小星 发表于 2023-10-30 14:51
(command "_CLOSE" "y")

这种方式，cad2005上用不了，cad2010上能用，我试过了
需要换一种方式

chixun99

lisp的不会弄，不过在vba里有个方法:用close关闭文件不保存，并用quit方法退出cad。
VBA:
object.Close [SaveChanges] [, FileName]
object是需要关闭的文件docment对象，savechanges=false时不保存，直接关闭文件。
VBA:
object.Quit
object是application对象，就是cad应用程序自己，可以写acadapplication。运行这个方法，将退出cad并关闭vba程序本身。

d1742647821

powerer by IFoxCAD

https://gitee.com/inspirefunction/ifoxcad

如果无法播放，请点击此处在新窗口打开

1. [CommandMethod("Test")]
   
2. public static void Test()
   
3. {
   
4.     IdleAction.Add(() => Env.Document.CloseAndDiscard());
   
5. }
   

复制代码

OooCcc

lisp代码不能关闭当前活动文档，但是可以用以下代码实现关闭指定文件。或者遍历关闭所有打开的文档

1. (setq docs(vla-get-documents(vlax-get-acad-object)))
   
2. (vla-close (vla-item docs "Drawing1.dwg") vlax:false)
   

(setq docs(vla-get-documents(vlax-get-acad-object)))<br /> (vla-close (vla-item docs "Drawing1.dwg") vlax:false)<br />