Как программно сделать окно активным?

Xara · 11.01.2013, 13:26

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

Код:

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

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

Елпанов Евгений · 14.01.2013, 17:56

Цитата:

Сообщение от Xara

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

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

hwd · 14.01.2013, 18:05

Цитата:

Сообщение от Елпанов Евгений

запуск будет довольно быстрым...

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

Цитата:

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

Можно. Сначала пишешь свой 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/

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

Елпанов Евгений · 14.01.2013, 19:05

Цитата:

Сообщение от hwd

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

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

Xara · 17.01.2013, 16:28

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

gomer · 17.01.2013, 19:05

Цитата:

Сообщение от Xara

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

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

зы влом было переключать раскладку...
зызы ну, hwd - знатный троль...

hwd · 18.01.2013, 16:19

Цитата:

Сообщение от Xara

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

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

Xara · 18.01.2013, 16:44

Цитата:

Сообщение от gomer

Но вам я ее тоже не покажу

Жадина

gomer · 18.01.2013, 16:57

Цитата:

Сообщение от Xara

Жадина

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

Кулик Алексей aka kpblc · 18.01.2013, 16:59

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

hwd · 18.01.2013, 17:02

Цитата:

Сообщение от Кулик Алексей aka kpblc

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

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

Кулик Алексей aka kpblc · 18.01.2013, 17:07

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

hwd · 18.01.2013, 17:13

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

gomer · 18.01.2013, 17:49

Цитата:

Сообщение от Кулик Алексей aka kpblc

На реакторах нельзя использовать команды

я имел ввиду самописные пурж и нормоконтроль + заминировать все это дело алертами

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

Xara · 24.01.2013, 11:47

Цитата:

Сообщение от 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 · 11.07.2015, 09:50

Цитата:

Сообщение от Кулик Алексей aka kpblc

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

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

Кулик Алексей aka kpblc · 11.07.2015, 15:25

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

DENBASS2004 · 11.07.2015, 16:16

Цитата:

Сообщение от Кулик Алексей 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 · 11.07.2015, 21:21

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 · 13.07.2015, 07:53

Цитата:

Сообщение от Кулик Алексей 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 · 13.07.2015, 08:33

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

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
OpenDCL vs C#.NET	Sleekka	.NET	18	02.07.2013 22:31
AutoCAD Automation: как правильно программно прервать Utility.GetPoint (выполняется в другом потоке)	IvanShkuropadsky	Программирование	2	17.08.2011 11:10
Как сделать окно Autocad активным при запуске из VBA Excel?	AlexV	Программирование	1	20.08.2009 12:40
BricsCAD 8.2.8	Кулик Алексей aka kpblc	Другие CAD системы	17	24.04.2008 17:01
Текстовое окно не появляется при нажатии F2	Боныч	AutoCAD	3	09.04.2008 16:21

11.01.2013, 13:26
Как программно сделать окно активным? Xara Помидорка Регистрация: 03.02.2012 Сообщений: 135 Всем привет! Подскажите пожалуйста, как через LISP сделать окно чертежа активным, которое открывается через функцию: Код: [Выделить все] (vla-open (vla-get-documents (vlax-get-acad-object)) Item1 ;имя файла :vlax-false "" ) А то открыть-то он открывает, а активный чертеж тот, что уже был открыт... __________________ Боишься - не делай. Делаешь - не бойся.
Просмотров: 13664

Опции темы	Поиск в этой теме
	Поиск в этой теме: Расширенный поиск