[serg01]

День добрый. Столкнулся со следующей проблемой:
На одной машине код

Код:

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

(command "_open" "d:\\TEMP\\1.dwt" "_y")

отрабатывает, а на другой нет.
На обоих SDI=1
Если на второй машине изменить код на

Код:

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

(command "_open" "_y" "d:\\TEMP\\1.dwt")

, то открывает. Что может быть не так со второй машиной? Говорит вот что:

Команда: (command "_open" "d:\\TEMP\\1.dwt" "_y")
_open Вы действительно хотите отказаться от всех изменений в чертеже? <Н>
d:\TEMP\1\r1_A0.dwt
Ответьте Да или Нет.
; ошибка: Функция отменена

AutoCAD 2007 Рус.

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

Открывай другой конструкцией:

Код:

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

(vla-open (vla-get-documents (vla-get-activedocument (vlax-get-acad-object))) "d:\\temp\\1.dwt")

[ShaggyDoc]

При открытии файла надо учитывать все возможные варианты состояния текущего файла и соответствующие опции команды OPEN. Вот пример:

Код:

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

(defun ru-dwg-open-file (dwg_file / n)
;;; Пример:  (ru-dwg-open-file "c:\\.ru\\cad\\samples\\dwg\\Dim_test.dwg")
  (ru-error-catch
    (function
      (lambda ()
        (if (= 0 (getvar "SDI"))
          ;; Для многодокументного режима (SDI=0) открываем новый документ  
          ;; в новом окне. Сохранять открытые не нужно
          (vla-open (ru-obj-get-docs-collection)
                    dwg_file
          ) ;_ end of vla-open
          (progn
            ;; для однодокументного режима
            (if (not (equal 2 (logand 2 (getvar "QAFLAGS"))))
              (setvar "QAFLAGS" (+ (getvar "QAFLAGS") 2))
            ) ;_ end of if
            (if (not (equal 4 (logand 4 (getvar "QAFLAGS"))))
              (setvar "QAFLAGS" (+ (getvar "QAFLAGS") 4))
            ) ;_ end of if
            (vl-cmdf "_.OPEN")
            ;; Проверяем, не изменялся ли текущий рисунок
            (if (not (equal 0 (getvar "DBMOD")))
              ;; и, если изменялся - передаем опцию "Yes", дескать, сохраняй 
              (vl-cmdf "_y")
            ) ;_ end of if
            (vl-cmdf dwg_file)
            (setq n 0)
            ;; и теперь, пока работает команда OPEN 
            (while (and (< n 4)
                        (wcmatch (getvar "CMDNAMES") "*OPEN*")
                   ) ;_ end of and
              (t
                ;; на все возможные запросы даем пустой ответ
                (vl-cmdf "")
              ) ;_ end of T
              (setq n (+ n 1))
            ) ;_ end of while
            (setvar "QAFLAGS" 0)
          ) ;_ end of progn
        ) ;_ end of if
      ) ;_ end of lambda
    ) ;_ end of function
    (function
      (lambda (msg)
        (princ (strcat "\nRU-DWG-OPEN-FILE: " msg))
        nil
      ) ;_ end of lambda
    ) ;_ end of function
  ) ;_ end of ru-error-catch
) ;_ end of defun

Напрямую не примените - используются специальные функции с префиксами ru-, но алгоритм понятен.

[serg01]

Спасибо, буду разбираться.