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

hzx

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

秋枫

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

秋枫

使用(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

是否以下语句：

（vla-open "abc" ;only-read)

hzx

实在对不起，我从未用过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 读写

秋枫

秋枫

秋枫

提示无vla-get-documents函数，请指教，
不知可否用autolisp函数实现该功能？

你不说清楚你用的vlisp版本，谁知道你有没有。也许你在r14 下面，改用vla-get-document试试吧。

你一开始就是问“如何用VLISP以只读方式打开一张图？”，怎么又反问起autolisp来了。扫兴。

hzx

实在对不起，开头未表达清楚，给你添了很多麻烦，我还未升级到2000版，
暂时只能用R14版，不知是否可实现该功能？