[annt]

1)Подскажите пожалуйста как с помощью lisp'a открыть чертеж, на который поставлен пароль?
Пароль известен.

2)В чертеж внедрен макрос. Как его запустить?

Т.е. нужны аналоги выражениям на VBA:

Код:

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

fnam = "C:\....x.dwg" 
psw = "yyy" 
ThisDrawing.Application.Documents.Open fnam, Password:=psw 
ThisDrawing.Application.RunMacro "MacroName"

Код из темы "Как можно открыть чертеж через LISP на котором стоит пароль? "

Код:

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

(defun c:SOpen(/ Doc)
   (vl-load-com)
   (setq Doc
   (vla-Open
     (vla-get-Documents
       (vlax-get-acad-object))
     "C:/Secure_Drawing.dwg"
     :vlax-false
     "123456")); end setq
   (vla-Activate Doc)
   ); end of c:SOpen

не работает

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

Откровенно говоря, vla-open иногда (закономерность не помню) может автоматически приводить к активации открытого файла dwg. Соответственно выполнение лиспа прекращается. А так-то код (по крайней мере по открытию файла) вполне рабочий, насколько я вижу.

[annt]

Решил с помощью:

Код:

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

(vl-cmdf "_.VBASTMT" "ThisDrawing.Application.Documents.Open " (chr 34) FName (chr 34) ", Password:=" (chr 34) psw (chr 34))