[Xara]

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

Код:

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

 (vla-open (vla-get-documents (vlax-get-acad-object))
               Item1 ;имя файла
               :vlax-false
               ""
               )

А то открыть-то он открывает, а активный чертеж тот, что уже был открыт...

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

Xara, активация окна другого файла автоматически останавливает выполнение лиспа.

[Xara]

Да, Алексей, это я знаю, а как же быть, если есть задача выполнить ряд действий с несколькими чертежами:
1. Проверить, все ли размеры нужного стиля;
2. Проверить, все ли тексты/мультитексты нужного стиля;
3. Проверить переменные в среде чертежа;
4. Проверить UNITS в каждом чертеже.
Это, стало быть, невозможно?

[hwd]

Возможно. Просто тебе нужно помнить, что LISP работает в контексте чертежа, а соответственно, тебе твой lisp код нужно грузить в каждый открытый документ. Кроме того, тебе наверняка будет не лишним использовать реакторы, уведомляющие об открытии др. чертежей, а так же о создании новых, дабы твой код автоматом обрабатывал и их.

[Psyakrev]

У Кулика на сайте есть заметка, как работать с неактивным документом (сам автор почему-то про нее не вспомнил )
http://autolisp.ru/2010/04/08/procee...tive-document/

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

Psyakrev, на момент моего ответа фразы по обработке неактивного документа еще не было

[Xara]

Спасибо большое, ребята!
Почитаю, постараюсь разобраться!

ps: "тебе твой lisp код нужно грузить в каждый открытый документ" - как это сделать?
Что-то мне подсказывает, что статья Алексея не поможет, там ограниченное количество методов, подходящего не нашел

[gomer]

Сообщение от Xara как это сделать?

Сообщение от Xara 1. Проверить, все ли размеры нужного стиля; 2. Проверить, все ли тексты/мультитексты нужного стиля; 3. Проверить переменные в среде чертежа; 4. Проверить UNITS в каждом чертеже. Это, стало быть, невозможно?

Откройте справку и почитайте внимательно про объектную модель автокада, а если не дойдет то и вынимательно

Сообщение от hwd тебе твой lisp код нужно грузить в каждый открытый документ.

мдаа, НЕ НУЖНО!

зы 100500 Раз говорил уже: научитесь четко формулировать задачу, для этого надо в совершенстве владеть инструментом, с автолиспом это намного проще сделать, чем с другими языками.
зызы Зачем нужны такие телодвижения я так и не понял

[hwd]

Сообщение от Xara - как это сделать?

Есть разные способы... На вскидку могу перечислить такие:

1. Самый простой - добавить твой LISP в автозагрузку через всем известный "чемоданчик" (это очень просто сделать как вручную, так и программно, добавив запись в реестр):



2. Через файл acad.lsp, но нужно установить соответствующую галочку:



3. С помощью плагинов, которые грузятся в AutoCAD в контексте приложения, а не в контексте документа (как это делает Lisp) - т.е. воспользовавшись ObjectARX или .NET. Но думаю, что это не твой вариант, если не привык к подобному.

Судя по этому:

Сообщение от Xara 1. Проверить, все ли размеры нужного стиля; 2. Проверить, все ли тексты/мультитексты нужного стиля; 3. Проверить переменные в среде чертежа; 4. Проверить UNITS в каждом чертеже.

похоже, что ты пишешь что-то вроде модулей нормоконтроля. Полезное занятие

[Do$]

Сообщение от Xara Да, Алексей, это я знаю, а как же быть, если есть задача выполнить ряд действий с несколькими чертежами: 1. Проверить, все ли размеры нужного стиля; 2. Проверить, все ли тексты/мультитексты нужного стиля; 3. Проверить переменные в среде чертежа; 4. Проверить UNITS в каждом чертеже. Это, стало быть, невозможно?

Может достаточно будет делать проверку по стандарту? Я имею в виду файлы dws.

[hwd]

Сообщение от Do$ Может достаточно будет делать проверку по стандарту? Я имею в виду файлы dws.

Данный вариант имеет ряд минусов:

1. Пути к DWS файлам в DWG файлах прописываются в абсолютной форме. Относительная форма и использование в пути системных переменных, например %ProgramFiles%, %AppData% и т.п. не допускаются. К тому же у разных пользователей AutoCAD установлен в разные каталоги (зависит и от разрядности платформы). Отсюда постоянно вылезающие проблемы, что не у всех юзеров AutoCAD находит DWS файлы - порой приходится переназначать пути. Но переназначив под одну машину, автоматом "запортачишь" путь для другой.

2. Те модули нормоконтроля, которые входят в стандартную поставку AutoCAD являются очень ограниченными по возможностям и не имеют возможности конфигурировать их. Например - настроить правила формирования допустимых имён для слоёв чертежа.

3. Отсутствует большое количество необходимых модулей нормоконтроля (например - проверка стилей Таблиц).

4. "Родной " API для написания модулей нормоконтроля отвратительно документирован и качество его реализации оставляет желать лучшего. Можно было бы значительно упростить его и получить при этом гораздо бОльшую гибкость.

[ShaggyDoc]

если есть задача выполнить ряд действий с несколькими чертежами: 1. Проверить, все ли размеры нужного стиля; 2. Проверить, все ли тексты/мультитексты нужного стиля; 3. Проверить переменные в среде чертежа; 4. Проверить UNITS в каждом чертеже. Это, стало быть, невозможно?

Это элементарно.

1. Надо написать функцию, которая это всё делает (или всё, что угодно, требуемое в каждом чертеже). Назвать её, например (defun C:007 ()....)

2. Включить эту функцию в acaddoc.lsp (не в acad.lsp!). Этот файл автоматически загружается в каждый открытый dwg. Никаких "чемоданчиков" тут не нужно.
Можно в acaddoc.lsp не саму функцию записать, а загрузку её из какого-то файла.

3. Если надо эти действия выполнять автоматически, то сделать в acaddoc.lsp вызов этой функции на выполнение в конце файла. В виде (C:007). Если не автоматически - "повесить на кнопку". Или просто вызывать с клавиатуры: Command: 007

[gomer]

Все эт, конечно, потреотично, но в последствии оказывается хламом

[VVA]

Xara, Посмотри Последовательное применение lisp-функции к множеству файлов DWG
К неактивному чертежу можно обратиться с помощью ObjectDBX (п.5 по ссылке выше)

[Xara]

Спасибо, посмотрю... ObjectDBX для меня - темный лес, но я пытаюсь разобраться с ним... Как верно подметил hwd - "Но думаю, что это не твой вариант, если не привык к подобному"

Сообщение от hwd похоже, что ты пишешь что-то вроде модулей нормоконтроля. Полезное занятие

Да, именно так! Функция проверки файлов на соответствие стандарту для нормоконтролеров.

Сообщение от Do$ Может достаточно будет делать проверку по стандарту? Я имею в виду файлы dws.

Нет, результаты проверки через DWS не извлечь, а мне нужно на выходе получить отчет по каждому файлу, если в нем есть хоть одно несоответствие, или пометка, что все ОК.

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

[hwd]

Я использую своё решение, вместо предлагаемого Автодеском. Мне не нравятся ограничения, и костыли стандартного решения, да и реализовано так, что неудобно пользоваться. Результаты сохраняю в XML, который скармливаю генератору отчётов, а уж из него, в любой формат вывожу.

[Xara]

hwd, Какое конкретно решение? Можно поподробнее?

[hwd]

Сообщение от Xara hwd, Какое конкретно решение? Можно поподробнее?

Оно написано на C#, поэтому, если учитывать что

это не твой вариант

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

[Елпанов Евгений]

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

[Xara]

Сообщение от hwd и что тебе это даст?

Век живи - век учись. Почитаю, разберусь, научусь

Сообщение от Елпанов Евгений это можно довольно просто сделать, причем, запуск будет довольно быстрым

Можно хоть немного конкретики?))

[Елпанов Евгений]

Сообщение от Xara Можно хоть немного конкретики?))

http://www.cadtv.ru/aur-2012-avtomat...spol-zovaniem/

[hwd]

Сообщение от Елпанов Евгений запуск будет довольно быстрым...

А самое интересное будет как раз таки после троеточия... Правда, Женя?

Можно хоть немного конкретики?))

Можно. Сначала пишешь свой Check Standard Manager - это твой GUI, в котором у юзера запрашиваешь файлы, которые нужно обработать (там же предоставляешь выбор: файлы каталога, файлы подшивки, произвольный набор файлов, ну и т.д.). в этом же окне у тебя в виде TreeView сгруппированы модули нормоконтроля, с CheckBox напротив каждого. Установленная галочка означает проверку этим модулем. Сами модули лежат во вложенном каталоге modules по своим подкаталогам. Твой модуль загружая эти сборки, ищет в них классы, реализующие назначенный тобою интерфейс (у меня это IStandardModule). Каждый модуль содержит свой собственный визуальный контрол для работы, оптимально настроенный на решение задачи, под которую этот модуль написан. Этот контрол будет в ходе решения подставляться в окно твоего Manager.

Интерфейс может быть таким:

Код:

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

    /// <summary>
    /// Интерфейс модуля нормоконтроля.
    /// </summary>
    public interface IStandardModule {
        /// <summary>
        /// Целевой объект, подлежащий обработке.
        /// </summary>
        Target Target { get; }
        /// <summary>
        /// Наименование модуля нормоконтроля.
        /// </summary>
        String Name { get; }
        /// <summary>
        /// Краткое описание модуля.
        /// </summary>
        String Description { get; }

        /// <summary>
        /// Текст всплывающей подсказки.
        /// </summary>
        String Tooltip { get; }

        /// <summary>
        /// Автор продукта.
        /// </summary>
        String Author { get; }
        /// <summary>
        /// Компания, выпустившая продукт.
        /// </summary>
        String Company { get; }
        /// <summary>
        /// Сайт продукта.
        /// </summary>
        String Site { get; }
        /// <summary>
        /// Электронная почта для обратной связи с разработчиком.
        /// </summary>
        String Email { get; }
        /// <summary>
        /// Файл справочной системы.
        /// </summary>
        String HelpFile { get; }

        /// <summary>
        /// Проверка на то, содержит ли база данных чертежа объекты с нарушениями.
        /// </summary>
        /// <param name="db">База данных чертежа, подлежащая обработке.</param>
        /// <param name="ids">Коллеция идентификаторов тех объектов, которые содержат нарушения.</param>
        /// <returns>True - найдены, иначе - False.</returns>
        Boolean HasViolations(DbSrv.Database db, out DbSrv.ObjectIdCollection ids);

        /// <summary>
        /// Проверка на то, имеются ли в базе данных чертежа объекты с нарушениями, для 
        /// которых присутствует "исправление по умолчанию".
        /// </summary>
        /// <param name="db">База данных чертежа, подлежащая обработке.</param>
        /// <param name="ids">Коллеция идентификаторов тех объектов, для 
        /// которых присутствует "исправление по умолчанию".</param>
        /// <returns>True - найдены, иначе - False.</returns>
        Boolean HasDefaultVariants(DbSrv.Database db, out DbSrv.ObjectIdCollection ids);

        /// <summary>
        /// Применить "исправления по умолчанию" ко всем найденным "некорректным", для которых такие 
        /// предлагаемые исправления обнаружены.
        /// </summary>
        /// <param name="db">База данных чертежа, подлежащая обработке.</param>
        /// <returns>Коллеция идентификаторов тех объектов, для которых были применены 
        /// "исправления по умолчанию".</returns>
        DbSrv.ObjectIdCollection ApplyDefaultVariants(DbSrv.Database db);

        /// <summary>
        /// Получить визуальный элемент управления, предназначенный для 
        /// исправления выявленных нарушений.
        /// </summary>
        /// <param name="db">База данных чертежа, подлежащая обработке.</param>
        /// <returns></returns>
        winCont.UserControl GetGuiControl(DbSrv.Database db);

        /// <summary>
        /// Получить подробный отчёт обо всех обнаруженных нарушениях
        /// </summary>
        /// <param name="db">База данных чертежа, подлежащая обработке.</param>
        /// <returns>Результат проверки возвращается в виде объекта XElement.</returns>
        XElement GetXmlReport(DbSrv.Database db);
    }

Результат работы каждого модуля возвращается в виде XML объекта. Ты группируешь их по файлам и по завершению работы скармливаешь их генератору отчётов. Вот и вся песня.

Сообщение от Елпанов Евгений http://www.cadtv.ru/aur-2012-avtomat...spol-zovaniem/

Женя, каким боком это относится к нормоконтролю, о котором спрашивает автор?

[Елпанов Евгений]

Сообщение от hwd Женя, каким боком это относится к нормоконтролю, о котором спрашивает автор?

я про запуск его функции во всех файлах, для сбора статистики...

[Xara]

hwd, да, ты был прав... Ничего мне это не дало...

[gomer]

Сообщение от Xara да, ты был прав... Ничего мне это не дало...

Вот от таких, как Вы, Xara, я сделал программку для брикскада, которая пуржит файлы в заданной директории. Чтоб было понятно, в нем нет ни объектДБХ, ни нет, ни аркс, ни даже вба, то есть есть, но не для всех, а местный лисп справился на ура. Но вам я ее тоже не покажу
зы влом было переключать раскладку...
зызы ну, hwd - знатный троль...

[hwd]

Сообщение от Xara hwd, да, ты был прав... Ничего мне это не дало...

Об этом я тебя и предупреждал - смысл спрашивать, если не пишешь на .net?
Если объяснять на пальцах, то визуально (т.е. для пользователей), это безобразие выглядит например таким образом (у тебя может быть свой вариант безобразия):

[Xara]

Сообщение от gomer Но вам я ее тоже не покажу

Жадина

[gomer]

Сообщение от Xara Жадина

Это не от жадности, интересно, что будет, если на реакторы посадить пурж и нормоконтроль? Как долго проживет монитор...

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

На реакторах нельзя использовать команды. Поэтому штатный нормоконтроль сразу отпадает. Остальное реализовывалось не раз и не два.

[hwd]

Сообщение от Кулик Алексей aka kpblc На реакторах нельзя использовать команды. Поэтому штатный нормоконтроль сразу отпадает. Остальное реализовывалось не раз и не два.

Если под "штатным" подразумевается "родной автокадовский" нормоконтроль, то он как раз и использует "реакторы" (события в C#). И понятное дело, что в них он использует не командную строку автокада, а непосредственно работает с базой данных чертежа через API.

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

Я имел в виду вызов _checkstandards, а не внутренний механизм работы команды.

[hwd]

Я в своей реализации отказался от использования событий и жёсткого прописывания путей к DWS файлам (как это сделано в автокаде). Имхо удобней, когда проверка запускается только по требованию самого пользователя, а в именах к DWS файлам можно указывать относительные пути и системные переменные. Если автор вопроса не будет завязываться на реакторы, то и реализовать аналог на лиспе не составит особого труда.

[gomer]

Сообщение от Кулик Алексей aka kpblc На реакторах нельзя использовать команды

я имел ввиду самописные пурж и нормоконтроль + заминировать все это дело алертами
Xara, если вам свербит уж так это, используйте метод Add вместо Open, всего то делов на медный грош

[Xara]

Сообщение от gomer используйте метод Add вместо Open

Попробую...

Кто-нибудь может подсказать, как перебить функцию под этот метод, чтобы лисп работал с этими файлами?

Код:

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

 (defun _Checkfiles ()
  (foreach Item1 abc
    (setq file (vla-open (vla-get-documents (vlax-get-acad-object))
			 Item1
			 :vlax-false
			 ""
			 )
	  )
      
  ;;;;;;;;;;;;; НАЧАЛО ПРОВЕРОК ;;;;;;;;;;;;;
  
  ;;;;;;;;;;;;; ПРОВЕРКА 1 - ВСЕ ЛИ РАЗМЕРЫ В $-DIMS ;;;;;;;;;;;;;				;;
  (setq all$dims (ssget "_X" '((0 . "*DIMENSION"))))						;;
  (if (/= all$dims nil) (setq len$dims (sslength all$dims)))					;;
  (setq jjl 0											;;
	f$dims "")										;;
  (if (/= len$dims nil)										;;
    (while (and (> len$dims 0) (= f$dims ""))							;;
      (setq dim$ent (ssname all$dims (setq len$dims (1- len$dims)))				;;
	    layer$dim (cdr (assoc 8 (entget dim$ent))))						;;
      (if (/= layer$dim "$-DIMS") (setq f$dims "- Имеются размеры в недопустимых слоях\n"	;;
					kol$err (1+ kol$err)))					;;
      )												;;
    )												;;
  ; log f$dims											;;
  
  ;;;;;;;;;;;;; ПРОВЕРКА 2 - ВСЕ ЛИ ТЕКСТЫ SA-GENISO ;;;;;;;;;;;;;				;;		*** RED
  (setq all$text (ssget "_X" '((0 . "*TEXT") (0 . "*MTEXT"))))					;;
  (if (/= all$text nil) (setq len$text (sslength all$text)))					;;
  (setq jjl 0											;;
	f$text "")										;;
  (if (/= len$text nil)										;;
    (while (and (> len$text 0) (= f$text ""))							;;
      (setq text$ent (ssname all$text (setq len$text (1- len$text)))				;;
	    font$text (cdr (assoc 7 (entget text$ent))))					;;
      (if (/= font$text "SA-GENISO")								;;
	(setq f$text "- Имеются текстовые примитивы c использованием недопустимых шрифтов\n"	;;
	      kol$err (1+ kol$err)))								;;
      )												;;
    )												;;
  ; log f$text											;;
  
  ;;;;;;;;;;;;; ПРОВЕРКА 3 - СИСТЕМНЫЕ ПЕРЕМЕННЫЕ ;;;;;;;;;;;;;					;;
  (setq f$param "")										;;
  (if (/= (getvar "MEASUREMENT") 1) (setq f$param (strcat f$param "MEASUREMENT ")))		;;
  (if (/= (getvar "MIRRTEXT") 0) (setq f$param (strcat f$param "MIRRTEXT ")))			;;
  (if (/= (getvar "DIMASSOC") 2) (setq f$param (strcat f$param "DIMASSOC ")))			;;
  (if (/= (getvar "CMDDIA") 1) (setq f$param (strcat f$param "CMDDIA ")))			;;
  (if (/= (getvar "FILEDIA") 1) (setq f$param (strcat f$param "FILEDIA ")))			;;
  (if (/= f$param "")										;;
    (setq f$param (strcat "- Недопустимое значение системных переменных " f$param "\n")		;;
	  kol$err (1+ kol$err))									;;
    )												;;
  ; log f$param											;;
  
  ;;;;;;;;;;;;; ПРОВЕРКА 4 - ЕДИНИЦЫ ИЗМЕРЕНИЯ ;;;;;;;;;;;;;					;;
  (if (and (/= (getvar "insunits") 0) (/= (getvar "insunits") 4) (/= (getvar "insunits") 6))	;;
    (setq f$units "- Недопустимое значение единиц измерения"					;;
	  kol$err (1+ kol$err))									;;
    (setq f$units ""))										;;
  ; log f$units											;;
  
  ;;;;;;;;;;;;; СБОРКА LOG-ФАЙЛА  ;;;;;;;;;;;;;							;;		*** RED
  (if (and (/= f$dims "") (/= f$dims "") (/= f$dims "") (/= f$dims ""))
    (setq f$log (strcat "\n" f$dims f$text f$param f$units "\n\n"))
    (setq f$log (strcat "\n- Ошибок не найдено\n\n"))
    )
  
  ;;;;;;;;;;;;; ОКОНЧАНИЕ ПРОВЕРОК ;;;;;;;;;;;;;
  (setq loglist
	 (append loglist (list
			   (strcat "Чертеж " (getvar "dwgname")
				   " - проверка выполнена "
				   ;;;			       ourfilename
				   ;;;			       " at "
				   (strcat
				     (substr (rtos (getvar "cdate") 2 0) 7 2)
				     "."
				     (substr (rtos (getvar "cdate") 2 0) 5 2)
				     "."
				     (substr (rtos (getvar "cdate") 2 0) 1 4))
				   f$log)
			   )
		 )
	)
    (princ)
    (vla-Close file :vlax-true)
    )
  (princ)
  )

[DENBASS2004]

Сообщение от Кулик Алексей aka kpblc Xara, активация окна другого файла автоматически останавливает выполнение лиспа.

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

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

Молодец. Решение показывай. А заодно и можешь посмотреть http://autolisp.ru/2014/10/21/execut...t-opening-dwg/

[DENBASS2004]

Сообщение от Кулик Алексей aka kpblc Молодец. Решение показывай.

Ну, посмотрел, как то все там для меня тяжеловато читать.
У меня как то проще получилось, может конечно многим не подойдет, но для меня самый раз.
(command "_sdi" 1) ;здесь мы вынуждаем работать только с 1 файлом
(setq Ch1 (command "_open" "_no" (strcat papka1 "\\01-00.00.000 СБ-Опорные элементы.dwg") (strcat papka1 "\\01-01.00.002-Косынка.dwg"))) ;так как активный файл может быть один мы открывая другой файл принудительно сохраняя предыдущий закрываем, и открывшийся файл становиться активным.
затем я возвращаю (command "_sdi" 0) и программа дальше продолжает работать но уже с новым открытым файлом
Может конечно это совсем неграмотно, но у меня работает. Да и я еще новичок.

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

Ok. Делай таким образом:
Открываем новый экземпляр AutoCAD, ни один рабочий файл не загружен. Пустой файл создан и активирован. Переход в VLIDE и запуск функции test:

Код:

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

 (defun test (/ loc_var)
  (setvar "sdi" 1)
  (setq *glob_var* "Глобальная переменная"
        loc_var    "Локальная переменная"
        ) ;_ end of setq
  (command "_open"
           "_no"
           (strcat papka1 "\\01-00.00.000 СБ-Опорные элементы.dwg")
           (strcat papka1 "\\01-01.00.002-Косынка.dwg")
           ) ;_ end of command
  (setvar "sdi" 0)
  (alert (strcat "Переменные в новом файле:\n"
                 "\t*glob_var* : "
                 (cond
                   (*glob_var*)
                   (t " не определена")
                   ) ;_ end of cond
                 "\tloc_var    : "
                 (cond (loc_var)
                       (t "Не определена")
                       ) ;_ end of cond
                 ) ;_ end of strcat
         ) ;_ end of alert
  ) ;_ end of defun

И посмотри, чему в новом файле (если он вообще откроется) будут равны значения глобальной и локальной переменных. А заодно и проверь, определена ли вообще функция test.
P.S. Работа с нетекущим документом через lisp обсуждалась на форуме не раз и не два. И выводы постоянно были одни и те же.

[DENBASS2004]

Сообщение от Кулик Алексей aka kpblc Ok. Делай таким образом: Открываем новый экземпляр AutoCAD, ни один рабочий файл не загружен. Пустой файл создан и активирован. Переход в VLIDE и запуск функции test: Код: [Выделить все] (defun test (/ loc_var) (setvar "sdi" 1) (setq *glob_var* "Глобальная переменная" loc_var "Локальная переменная" ) ;_ end of setq (command "_open" "_no" (strcat papka1 "\\01-00.00.000 СБ-Опорные элементы.dwg") (strcat papka1 "\\01-01.00.002-Косынка.dwg") ) ;_ end of command (setvar "sdi" 0) (alert (strcat "Переменные в новом файле:\n" "\t*glob_var* : " (cond (*glob_var*) (t " не определена") ) ;_ end of cond "\tloc_var : " (cond (loc_var) (t "Не определена") ) ;_ end of cond ) ;_ end of strcat ) ;_ end of alert ) ;_ end of defun И посмотри, чему в новом файле (если он вообще откроется) будут равны значения глобальной и локальной переменных. А заодно и проверь, определена ли вообще функция test. P.S. Работа с нетекущим документом через lisp обсуждалась на форуме не раз и не два. И выводы постоянно были одни и те же.

Да Алексей ты прав. Файл то открылся, но значения глобальных и локальных он потерял. Да ,я в ступоре. Неужели ни как это не обойти. Мне ведь обязательно надо что бы открывался не дескриптер а сам файл. А возможно ли сделать например так. Отдельно написать программу для построения чертежа конкретной детали ,а после вставить ее в первую программу где будет открываться дескриптер? И все там сделается по программе но уже не видя как он это делает?

[trir]

Как известно Тор с вырезанным диском («проколотый») можно вывернуть наизнанку непрерывным образом (топологически, то есть серией диффеоморфизмов).

Конечно, всё можно сделать, но на лиспе это будет выглядеть как на иллюстрации выше, зато на dotNET всё просто...

[DENBASS2004]

Сообщение от trir Конечно, всё можно сделать, но на лиспе это будет выглядеть как на иллюстрации выше, зато на dotNET всё просто...

Ну, как выглядеть будет мне не важно, dotNET я не знаю. Раз можно как я хочу буду пытаться сделать так. Я вот только одно не понимаю, некоторые команды пишешь по книге, но он их вообще не хочет воспринимать. Например открыть дескриптер файла, по книге это (open "файл" "режим")
пишу (setq Ch1 (command "_open" (strcat papka1 "\\01-01.00.002-Косынка.dwg") "_w")) а он мне выдает что (strcat papka1 "\\01-01.00.002-Косынка.dwg") неизвестная команда. Пытался прописать именно путь, тоже самое

[frostmourn]

Сообщение от DENBASS2004 по книге это (open "файл" "режим") пишу (setq Ch1 (command "_open" (strcat papka1 "\\01-01.00.002-Косынка.dwg") "_w"))

Буковки-то одинаковые, да не совсем...

[DENBASS2004]

Сообщение от frostmourn Буковки-то одинаковые, да не совсем...

Подскажите что именно не совсем одинаково?

[frostmourn]

А как по-вашему, (open) и (command "_open") - одно и то же?

[DENBASS2004]

Сообщение от frostmourn А как по-вашему, (open) и (command "_open") - одно и то же?

ну, у меня без command, open просто пишет ошибка