求助：CAD文件打开方式

刘炎华

求助：不关闭当前窗口CAD文件，再将其以只读方式重新打开。
            相当于CAD下打开的有两个，先打开的可编辑、保存，后打开的为只读。
            目的：有时侯尝试修改后不理想，undo次数过多

start4444

(defun c:tt5 ()
(vl-load-com)
(command "qsave")
(vla-open (vla-get-documents(vlax-get-acad-object)) (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")))
(princ)       
)

satan421

输入SDI，将值设置为1。

q3_2006

(vla-open (vla-get-documents(vlax-get-acad-object)) "f:\\1.dwg" :vlax-true)

669423907

谢谢各位，打开之后，为什么不是切换（激活）到刚打开的文档窗口，而是在之前的文档窗口？

start4444

669423907 发表于 2020-5-29 10:46
谢谢各位，打开之后，为什么不是切换（激活）到刚打开的文档窗口，而是在之前的文档窗口？

激活新开文件在前面加个函数   (vla-Activate (vla-open ......)

669423907

start4444 发表于 2020-5-29 11:20
激活新开文件在前面加个函数   (vla-Activate (vla-open ......)

非常感谢你

669423907

start4444 发表于 2020-5-29 11:20
激活新开文件在前面加个函数   (vla-Activate (vla-open ......)

(vla-Activate (vla-open (vla-get-documents(vlax-get-acad-object)) (findfile (getvar "DWGNAME"))) )
出现新问题，运行 qw 关闭当前后卡死，不知道什么原因（没改前不会）
;不保存关闭当前
(defun c:qw()(command "close" "y")(princ))

start4444

669423907 发表于 2020-5-29 11:51
(vla-Activate (vla-open (vla-get-documents(vlax-get-acad-object)) (findfile (getvar "DWGNAME"))) ) ...

不保存不是应该 "N"吗？y就是保存啊

669423907

start4444 发表于 2020-5-29 12:06
不保存不是应该 "N"吗？y就是保存啊

n是保存，y是不保存，

我已经这样用了好久了（08版）

;保存关闭当前
(defun c:wq()(c:pu)(command "close" "n")(princ))

;不保存关闭当前
(defun c:qw()(command "close" "y")(princ))