[Apelsinov]

подскажите, как програмно в лиспе можно закрыть открытый в акаде файл (без сохранения).

[{Smirnoff}]

А про какой файл идет речь, про чертеж или про текстовый. Если текстовый то сначала открываем файл:

(setq fileTag (open "название файла" "режим"))

Потом закрываем (close fileTag)

Если это чертеж, то вот пример с www.afralisp.com

Код:

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

;AUTOLISP CODING STARTS HERE
(defun C:CLOSE_DWG (/ ACADOBJ DOCOBJ DOCSOBJ FULL NAME PATH)
(vl-load-com)
(get_docs_list)
(ddcloser)
(if DWGLST
(progn
(setq CNT (- (length DWGLST) 1))
(repeat (length DWGLST)
(setq DOCOBJ (vlax-invoke-method DOCSOBJ "item" (nth CNT DWGLST))
CNT (1- CNT)
PATH (vlax-get-property DOCOBJ "path")
NAME (vlax-get-property DOCOBJ "name")
FULL (strcat PATH "\\" NAME)
)
(if (= (vlax-get-property DOCOBJ "active") :vlax-false)
(vla-close DOCOBJ :vlax-true FULL)
(princ (strcat "\nDrawing " FULL " is still active: "))
)
(vlax-release-object DOCOBJ)
)
(vlax-release-object DOCSOBJ)
(vlax-release-object ACADOBJ)
)
)
(princ)
)

[Apelsinov]

Спасибо, Fantomas, я имел ввиду dwg файл.
Все так сложно? Я мало чего понимаю в ActiveX, но мне кажется странным что простая замена акадовской комманды _close порождает такие сложности.

[{Smirnoff}]

Я пытался один раз сделать (command "_.close" "_Y"). Но любимая софта не хочет принимать это самое "_Y" и упорно спрашивает в командной строке не надо ли сохранить изменения. Тогда я тоже ничего не соображал в ActiveX и плюнул на это дело.

На самом деле все не так уж сложно. Сам недавно пользуюсь, но мне нравится. Сразу обращаешься к чему то конкретному и управляешь не абстрактными цифрами а вполне конкретными свойствами и применяешь конкретные методы. Правда примитивы надо преобразовывать в VLA-объекты командой

(setq vla_Entity (vlax-ename->vla-object "примитив"))

Зато потом если хотим получить например цвет

(setq color (vla-get-color vla_Entity))

С примитивами это ерунда, этот принцип сохраняеться для всех объектов, включая листы, стили печати, системные установки и т. д. Это веселее чем рытся в словарях, таблицах и DXF кодах. Хотя надо сказать что некоторые вещи "по простому" делаються легче. Еще в ActiveX функциях не редки глюки, которые относяться скорее к разделу "багов".

Думаю что без ActiveX, возможно как нибудь закрыть активный документ, для неактивного без этого я думаю не обойтись.

[Apelsinov]

no function definition: GET_DOCS_LIST
no function definition: DDCLOSER
Это что за функции? Если есть у Вас, дайте, плиз.

[{Smirnoff}]

Прошу прощения, вот полностью ссылка http://www.afralisp.com/newsletter/2002/2002-06.htm.

Вообще примеров куча (я просто взял первый попавшийся на английском). Надо зайти на GOOGLE и прямо в окне поиска написать имя функции. В вашем случае vla-close и получите 3 страницы примеров. Как кстати и к любым ActiveX функциям...

[kos]

Сообщение от Apelsinov Все так сложно? ... мне кажется странным что простая замена акадовской комманды _close порождает такие сложности.

Функция

Код:

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

(command "_.CLOSE")

тоже работает. Но вам нужно рассмотреть варианты, когда в рисунке не было изменений (тут проблем никаких, рисунок тихо закроется) и когда изменения были (в этом случае необходимо ответить на вопрос AutoCAD'а, что мол изменений сохранять не нужно). Т.е. функция должна выглядеть так:

Код:

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

(command "_.CLOSE" "_Yes")

Честно говоря, сразу и не вспомню как это проверить...

[Apelsinov]

Fantomas, да, хорошая программка, понравилась.
Но невозможно закрыть активный файл, а нужно мне было именно это.

kos, да, работает (command "_.CLOSE") если в файле нет изменений, но если были (command "_.CLOSE" "_Yes") не работает!

Код:

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

Command: (command "_.close" "_Yes")
_.close
Command: _Yes Unknown command "YES".  Press F1 for help.
Command: nil
Command: Really want to discard all changes to drawing? <N>

А возможно ли отменить программно все изменения сделанные со времени последнего сохранения?

И еще, интересно, после манипуляций с (command "_.close" "_Yes") акад не выдает окно Yes/No при попытке закрыть файл крестиком сверху.

[{Smirnoff}]

>kos У меня с (command "_.close" та же ерунда.

>Apelsinov Думаю что можно сделать документ неактивным с помощью метода vla-Activate. Т.е. сделать на время активным другой документ. Но это мои догадки, собираюсь на днях поэксперементировать. В много документном режиме как я понял много тонкостей. В частности необходимость передачи функций и переменных через внедокументное пространство. Ведь надо сделать документ в котором работала функция неактивным, а она должна продолжать работать. Не знаю относиться ли это к VLA-объектам? Пока это вопрос к ActiveX-Profi типа Kos.

Мне тоже до этого надо добраться, у меня задачка сгенерить один чертеж на основании другого его сохранить и вернуться в исходный. Планировал заняться эти чуть позже, через две три недели.

[vk]

А нельзя ли сгенерить Лиспом небольшой скрипт с командой CLOSE и выполнить его? Если конечно после этого закрытия программно ничего делать не надо. :?

[kos]

Прошу прощений за неточность. Должно быть так (в случае, если в рисунке были изменения):

Код:

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

(command "_.CLOSE")
(command "_Yes")

Сообщение от Fantomas Думаю что можно сделать документ неактивным с помощью метода vla-Activate. Т.е. сделать на время активным другой документ.

А если открыт только один документ? Что будем делать активным? Нет, с ActiveX здесь все не так просто, как кажется на первый взгляд. Я как-то интересовался этим вопросом, но, честно говоря, уже не помню на чем остановился. Гляну дома, завтра доложу.

[kos]

Да, совсем забыл. Нашел переменную, которая хранит информацию о изменениях в рисунке. Ее имя DBMOD (целое). Если она равна 0, то изменений не было.

[Mikhail]

Я в лиспе ничего почти не понимаю, но если работает команда CLOSE когда небыло изменений, то может перед выполнением этой команды выполнить что то типа UNDO All. Может поможет.
удачи.

[kos]

Сообщение от Mikhail ... может перед выполнением этой команды выполнить что то типа UNDO All. Может поможет. удачи.

Не поможет. Ведь изменения базы данных рисунка в этом случае были. И отмена этих изменений тоже есть изменение базы данных рисунка. И LISP здесь ни при чем. Это модель объектов и событий AutoCAD'а.

[{Smirnoff}]

>kos

Код:

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

Command: (command "_.close")(command "_yes")
_.close
Command: _yes Unknown command "YES".  Press F1 for help.

Command: nil

Command: Really want to discard all changes to drawing? <N>

Насчет того что документ один, можно держать и открывать для этого специальный чистый файл, который можно закрыть уже известным нам способом, т. к. он не имеет изменений. Это конечно коряво, но только такие пока рассуждения. Вернусь к этому позже, сейчас пишу установки для приложения с большущим диалогом и чтением-записью в регистр, отвлекаться не хочется.

[Pilot]

Если сделать переменную EXPERT=2, то даже измененный рисунок закроется без лишних вопросов по команде:

(command "_close")

http://www.caduser.ru/acad/index.php?var_name=EXPERT

[{Smirnoff}]

>Pilot
Увы и ах...

Код:

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

Command: expert

Enter new value for EXPERT <2>:

Command: (command "_.close")
_.close
Command: nil

Command: Really want to discard all changes to drawing? <N>

Расмотрю любые предложения. Интим не предлагать

[leha]

Самое простое:
(command "_.vbastmt" "ThisDrawing.Close False")

При желании, для последнего документа можно даже:
(command "_.vbastmt" "ThisDrawing.Close False : AcadApplication.Quit")
Но с выходом из самого ACAD таким образом иногда бывают какие-то глюки. Сейчас точно не помню, но в некоторых случаях бывало, что ACAD закрывался, но с предсмертным воплем об ошибке инициализации VBA.

[{Smirnoff}]

[sm1007] Не знал я что так запросто, можно "воткнуть" в ЛИСП кусочек процедуры на VBA! Смайлика с награждением медалью не нашел. Впрочем это Апельсинова тема.

[Pilot]

А если сперва создать новый слой с каким-нибудь неудобоваримым именем, которого наверняка нет в чертеже - этим мы гарантируем что чертеж изменился:

Код:

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

(command
      "_layer" "_m" "qwerty123456" ""
      "_close" "_yes"
)