[olga87]

Здравствуйте Уважаемые программисты!

Есть код lisp (см. ниже) для NanoCAD, который создает новое сообщение (E-Mail) и вкладывает в сообщение открытый текущий файл dwg как вложение в письмо.

Подскажите пожалуйста как исправить код, добавив проверку сохранения файла dwg. Т.е. если в файле были изменения, то нужно попросить пользователя сохранить файл.

Заранее Спасибо!

Код:

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

(defun c:eMail ( / txt)
  (defun rjp-OutlookMessage
         (To Subject AttachmentList Body Send / objMail objOL)
    (if (and (setq objOL (vlax-get-or-create-object "Outlook.Application"))
	     (setq objMail (vlax-invoke-method objOL 'CreateItem 0)))
      (progn
        (vlax-put objMail 'To To)
        (vlax-put objMail 'Subject Subject)
        (vlax-put objMail 'Body Body)
        (foreach file AttachmentList
  	  (vl-catch-all-apply 'vlax-invoke
			      (list (vlax-get objMail 'Attachments) 'Add file))
        );foreach
        (if send
 	  (vlax-invoke objMail 'Send)
	  (vlax-invoke objMail 'Display :vlax-true)
        );if
        (vlax-release-object objOL)
        (vlax-release-object objMail)
      );progn
    );if
  );defun
  
(if (= 1 (getvar 'DWGTITLED))
  (progn 
    (rjp-outlookmessage
      ""
      ""
      (list (strcat (getvar 'dwgprefix) (getvar 'dwgname)))
      (strcat "Пожалуйста посмотрите вложенный чертеж: " (getvar 'dwgname))
      nil
    )
    (prompt "\nEmail создан.")
  );progn
;else
  (progn
    (setq txt "Чертеж не был сохранен. Пожалуйста сохраните чертеж и попробуйте снова.")
    (prompt (strcat "\n" txt)) (alert txt)
  );progn
);if
(princ)
);defun

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

Попробуй рядом с проверкой dwgtitled поставить
(equal (vla-get-saved (vla-get-activedocument (vlax-get-acad-object))) :vlax-true)
Правда, сработает ли в nanoCAD, без понятия

[olga87]

Добавила:

Код:

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

(if (and (equal (vla-get-saved (vla-get-activedocument (vlax-get-acad-object))) :vlax-true)
         (= 1 (getvar 'DWGTITLED)))

Но если после сохранения чертежа вновь запускаю код, то чертеж переходит в статус несохраненный. Т.е. после сохранения чертежа пользователем, код все равно считает что чертеж не сохранен?


*если выполнить в коде:

Код:

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

(command "_.SAVE")

а затем

Код:

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

(if (and (equal (vla-get-saved (vla-get-activedocument (vlax-get-acad-object))) :vlax-true)
         (= 1 (getvar 'DWGTITLED)))

то работает!

Мне же нужно, чтобы пользователь сам сохранил, но при этом не работает!

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

Значит, пользователь (или какое-то дополнение) после сохранения вносит какие-то изменения. К примеру, зум или панорамирование тоже будут считаться изменением чертежа.

----- добавлено через 43 сек. -----
Как вариант - если файл не сохранен, вывалить запрос "Сохранить файл?". Если да - выполнить сохранение и дальше действовать по плану. Если нет - гудбай.

[koMon]

Сообщение от olga87 Т.е. если в файле были изменения, то нужно попросить пользователя сохранить файл.

В этом случае может помочь переменная DBMOD.

[olga87]

Код работает в Автокаде.

Но в Нанокаде видимо даже при сохранении и сразу повторном запуске кода, не работает, считая что чертеж снова не сохранен.