单文档模式open命令怎么判断是否要放弃保存

lostbalance

单文档模式中，文档有变动时，需要用(commnad "open" "y")才能放弃操作并打开新的文档，没有变动，就不用加y。
有什么代码可以检测要不要加y的吗？
另外，如何检测打开的文档是不是只读文件？

819534890

1、dbmod 系统变量，如果文档没改变过为0，否则非0；
2、判断文件是否只读


(defun ReadOnly    ()  
　　;;;这个范例演示当前的图形是否为只读  
　　(VL-LOAD-COM)  
　　(setq    AcadObject   (vlax-get-acad-object)  
　　AcadDocument (vla-get-ActiveDocument Acadobject)  
　　)   
　　(if (= (vla-get-ReadOnly AcadDocument) :vlax-true)  
　　(princ "当前的图形文件为只读.    ReadOnly 范例\n")  
　　(princ "当前的图形文件为读/写.    ReadOnly 范例\n")  
)  
　　(princ)  
)  

Andyhon

...放弃操作...

Indicates the drawing modification status using bitcode. The value is the sum of the following:

1 Object database modified
4 Database variable modified
8 Window modified
16 View modified

AutoCAD resets the DBMOD value to 0 when you save the drawing.

另方:
给它添加个 Point / 空白文字 ...

lostbalance

819534890 发表于 2014-8-22 12:08
1、dbmod 系统变量，如果文档没改变过为0，否则非0；
2、判断文件是否只读

周末有事，没能及时感谢。谢谢！！

lostbalance

819534890 发表于 2014-8-22 12:08
1、dbmod 系统变量，如果文档没改变过为0，否则非0；
2、判断文件是否只读

有没有办法判断要打开的图纸是不是只读，不是当前图纸

819534890

lostbalance 发表于 2014-8-28 10:45
有没有办法判断要打开的图纸是不是只读，不是当前图纸

可以，如果文件已经打开（但不是当前），和当前的方法类似。
如果文件还没打开，用下面的方法：
(setq Fil (vlax-get-or-create-object "Scripting.FileSystemObject"))
  (setq ss (vlax-invoke fil 'getfile file)) ；file为需要判断的文件
  (setq k (vlax-get-property ss 'Attributes ))

如果k值为奇数则为只读。

lostbalance

感谢回复