[ASLYS]

нужно получить данные из файла, кот уже открыт на другом компе.
что сюда нужно добавить, что бы не выдавал ошибку?

Код:

[Выделить все]

(vl-load-com)
(setq doc(vla-getinterfaceobject(vlax-get-acad-object)(strcat "ObjectDBX.AxDbDocument.17")));ONLY FOR ACAD 2008
(vla-open doc (getfiled "Select dwg" "" "dwg" 0))
(setq L-layers nil)
(vlax-for lay-acy (VLA-GET-LAYERS(vla-get-ActiveDocument (VLAX-GET-ACAD-OBJECT)))
 (setq L-layers(cons (vla-get-name lay-acy) L-layers))
)
(vl-catch-all-apply'(lambda ()(vlax-release-object doc)))

[VVA]

ASLYS,
У ф-ции VL-FILE-SYSTIME есть одна очень полезная особенность: она возвращает список systime если файл доступен. Т.е. он существует физически, у тебя есть права на его открытие и он не открыт другим сеансом Автокада.
Посмотреть, когда и кем он открыт можно поискав в той же папочке dwl файл.

Код:

[Выделить все]

(if (and
      (setq file (getfiled "Select dwg" "" "dwg" 0))
      (VL-FILE-SYSTIME file)
      )
  (alert "OK")
  (alert "Файл открыт или нет доступа")
  )

А вот как открыть в readonly?

[skkkk]

Я знаю, например, что если на соседнем компе открыт какой-то файл, я могу его легко открыть в режиме readonly по сети. Может, надо, чтоб в сети имелся доступ, может право на изменение файлов? Или я чего-то не понимаю........

[VVA]

skkkk, имеется ввиду программно через ObjectDBX

[skkkk]

Вот бы узнать, для чего это......

[ASLYS]

в хелпе говорится

Код:

[Выделить все]

object.Open Name[, ReadOnly][, Password] 
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. 
Password
Variant; optional
Password to open an encrypted drawing.

если я правильно понял, несколькими файлами можно, а с одним нет...

[Кулик Алексей aka kpblc]

Через ObjectDBX, по-моему, файл открыть в режиме "ReadOnly" невозможно. Но можно его просто открыть через (vla-open) с указанием соответствующих параметров. Или в крайнем случае вставить как блок в текущий файл либо тем же незабвенным (vla-insertblock), либо (vl-cmdf "_.-insert"). Потом, правда, надо будет очищать рабочий файл. Если при загрузке файла выполняются какие-либо приложения, то тут возможны проблемы при прямом открытии, предупреждаю сразу.