如何用VLISP以只读方式打开一张图？

hzx · 发表于 2002-9-14 10:41:00

用open命令可以只读方式打开一张图，但无法用VLISP的（command "open")实现，不知如何实现这个功能？

秋枫 · 发表于 2002-9-14 15:02:00

(vla-open
  (vla-get-documents
   (vlax-get-acad-object)
  )
  "c:/drawing1.dwg" :vlax-true
)

秋枫 · 发表于 2002-9-14 10:57:00

使用(vla-open acaddocuments dwgfilename :vlax-true)
参考：
object.Open Name[, ReadOnly]
Object
Documents, Document
The object or objects this method applies to.
Name
String
The full path and file name, or a valid URL address, of the drawing file to open. If the drawing is in the folder specified by the SupportPath property, then the path is not needed and the file name is sufficient.
ReadOnly
Variant; input-only; optional; Documents collection only
Default setting: FALSE
TRUE: Opens the drawing as a read-only drawing.
FALSE: Opens the drawing as a read-write drawing.

hzx · 发表于 2002-9-14 14:06:00

是否以下语句：
（vla-open "abc" ;only-read)

hzx · 发表于 2002-9-14 19:14:00

实在对不起，我从未用过VL类函数，我原来编程只用autolisp函数，我定义以下：(defun abc ()
  (vla-open
(vla-get-documents
   (vlax-get-acad-object)
)
"c:/tch3/abc.dwg"
:vlax-true
  )
)
提示无vla-get-documents函数，请指教，
不知可否用autolisp函数实现该功能？
我知道系统变量WRITESTAT 可控制只读，但其本身为只读，
在acad中无法修改，WRITESTAT＝0 只读，WRITESTAT＝1 读写