• Alen
  • Восстановленный участник
  • На форуме с 2 июня 2004г.
  • Сообщений: 20
  • Спасибо: 0

Тема: AutoCAD main window is invisible

При попытке выполнить код из Help :
    Dim returnObj As AcadObject
    Dim basePnt As Variant
   ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"
выдается ошибка :  AutoCAD main window is invisible
В чем причина ?

  • 3dcad
  • Восстановленный участник
  • На форуме с 21 апреля 2004г.
  • Сообщений: 339
  • Спасибо: 0

Re: AutoCAD main window is invisible

Пример запускается из формы.
Ну, дак и скрой эту форму: form1.hide, где form1 - имя окна.

  • Alen
  • Восстановленный участник
  • На форуме с 2 июня 2004г.
  • Сообщений: 20
  • Спасибо: 0

Re: AutoCAD main window is invisible

> 3dcad
Скрытие формы тоже не помогает, получаю то же сообщение.
Запустил этот пример из Modul, сообщение об ошибке не появилось, но как продолжить работу в AutoCAD? Каждый раз поднимать AutoCAD из TaskBar? Как сделать что бы после запуска примера Autocad стал активным?

  • 3dcad
  • Восстановленный участник
  • На форуме с 21 апреля 2004г.
  • Сообщений: 339
  • Спасибо: 0

Re: AutoCAD main window is invisible

1) Посадите на новую кнопку меню в Acade:
^C^C-vbarun Пример.dvb!ВыборОбъекта
, где Пример.dvb - ваш dvb файл.
ВыборОбъекта - функция в ThisDrawing
2) Пишите в эту функцию запуск требуемого окна:
UserForm1.Show
3) На этой форме делаете кнопку: Button1
4) При нажатии этой кнопки - код: UserForm1.Hide
Ну и.т.д.