• Sanek
  • Восстановленный участник
  • На форуме с 10 ноября 2005г.
  • Сообщений: 100
  • Спасибо: 0

Тема: Сделать активным окно файла акада

У меня есть полный путь  ввиде строки типа "с:\\Autolisp\\2.dwg". Как сделать активным этот чертеж(естесвенно он уже открыт).

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Сделать активным окно файла акада

obj.Activate()

  • Sanek
  • Восстановленный участник
  • На форуме с 10 ноября 2005г.
  • Сообщений: 100
  • Спасибо: 0

Re: Сделать активным окно файла акада

> kpblc
obj  - это что? Объект указывающий на файл акада?

  • kpblc
  • kpblc
  • Активный участник
  • Откуда: С.-Петербург
  • На форуме с 29 ноября 2004г.
  • Сообщений: 8,348
  • Спасибо: 24

Re: Сделать активным окно файла акада

Ага. В справке все описано.

  • Sanek
  • Восстановленный участник
  • На форуме с 10 ноября 2005г.
  • Сообщений: 100
  • Спасибо: 0

Re: Сделать активным окно файла акада

> Sanek
Примерно так:

Public pathplan As String
Public pathsx_v As String
Sub proba()
sysVarName = "USERS1"
pathsx_v = ThisDrawing.GetVariable(sysVarName)
sysVarName = "USERS2"
pathplan = ThisDrawing.GetVariable(sysVarName)
Set my_val = GetObject(pathplan)
my_val.Activate

С помощью программы лисп были занесены полные имена открытых файлов в переменные "USERS1", "USERS2".

> kpblc
Спасибо.

  • Q
  • Восстановленный участник
  • На форуме с 17 октября 2003г.
  • Сообщений: 28
  • Спасибо: 0

Re: Сделать активным окно файла акада

> Sanek
Круто. Очень круто. Не смог мимо пройти.

AutoCAD.Documents.Item("Имя файла.dwg").Activate

  • Sanek
  • Восстановленный участник
  • На форуме с 10 ноября 2005г.
  • Сообщений: 100
  • Спасибо: 0

Re: Сделать активным окно файла акада

> Q
Хороша ложка к обеду.
Ну > kpblc (2006-06-20 12:32:27) показал куда рыть, вот и нарыл.:).
Ну да ладно. Как говорится ученье свет....

  • Sanek
  • Восстановленный участник
  • На форуме с 10 ноября 2005г.
  • Сообщений: 100
  • Спасибо: 0

Re: Сделать активным окно файла акада

> Q
Тем более что-то не выходит.
Открыто 2 файла test1.dwg и test2.dwg(test2 - активен).
Так вот, это:

AutoCAD.Documents.Item("test1.dwg").Activate

- не проходит
И указание полного пути в имени файла, то же не катит. Так в чем дело?

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Сделать активным окно файла акада

Вот написал под конец рабочего дня, переделайте на свай лад и будет работать

Public Sub sss()
Dim i As Integer
For i = 0 To ThisDrawing.Application.Documents.Count - 1
 If UCase(ThisDrawing.Application.Documents.Item(i).FullName) = UCase("c:\147062O_M.dwg") Then
   ThisDrawing.Application.Documents.Item(i).Activate
 End If
Next
End Sub