[swkx]

День добрый.

Есть чертеж 1.dwg. В нем запускается лисп, в результате выполнения которого создается новый чертеж, в котором выполняются различные построения.
И они-таки выполнняются, но вот в самом конце не выполняется команда ZOOM

И (vl-cmdf "_zoom" "_extents"), и (vla-ZoomExtents (vlax-get-acad-object)) срабатывают для 1.dwg независимо от того, активирую я 2-й чертеж или нет.

Подскажите, что делать и как жить дальше ??

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

Такими средствами нерешаемо, мне кажется. Можешь написать scr, который будет последовательно (потом) открывать файлы и работать с ними.
Но я этим давно уже не баловался, конкретного решения не подскажу

[swkx]

Алексей,

при всём уважении - не верю, что нет простого способа)) По сути, после активации 2.dwg нужно тыцнуть на кнопку.
Разве нельзя программно добраться до нужной кнопки в панели инструментов "Зумирование" ?
Панель-то одна на все чертежи...

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

swkx, лисп выполняется только в адресном пространстве текущего документа. Активация другого документа ставит лисп, запущенный в 1.dwg, "на паузу". Активировал обратно 1.dwg -> продолжение лиспа выполняется.

[hwd]

Сообщение от swkx нужно тыцнуть на кнопку... Разве нельзя программно добраться до нужной кнопки в панели инструментов "Зумирование" ?

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

[swkx]

kpblc и hwd,

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

[hwd]

Подскажите, что делать и как жить дальше ??

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

[swkx]

Сообщение от hwd Как вариант: написать небольшой код на языке, работающем в контексте приложения. В этом коде можешь в цикле перебирать чертежи, активируя их и запуская твой лисп. В этом случае всё будет работать. Либо, если нет желания заморачиваться с указанным мною вариантом, делать всё через скрипт, как уже советовал Алексей.

Если бы речь шла о чем-нибудь серьезном, я бы так и поступил, но в моём случае оно того не стОит.

[Дима_]

Сообщение от swkx вдруг какая-нибудь лазейка завалялась...

Ну "из мухи по воробьям" лазйка есть:

Код:

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

 (vl-load-com)
(defun zoomfile(path)
  ((lambda (acad)
     ((lambda (doc)
        (vlax-put-property acad 'Visible T)
        (vlax-invoke-method acad 'ZoomExtents)
        (vlax-invoke-method doc 'Save)
        (vlax-invoke-method acad 'Quit))
      (vlax-invoke-method (vlax-get-property acad 'Documents) 'Open path)))
   (vlax-create-object "autocad.application")))

[iskatel111]

а вот на VBA все без проблем

Код:

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

Sub docs()

Dim curdoc As AcadDocument
Dim newdoc As AcadDocument
Dim c(2) As Double

c(0) = 100: c(1) = 100: c(2) = 0


Set curdoc = Documents(ThisDrawing.Name)
Set newdoc = Documents.Add

curdoc.ModelSpace.AddCircle(c, 100).color = acRed
newdoc.ModelSpace.AddCircle(c, 100).color = acGreen

curdoc.SendCommand ("_.zoom _e ")
newdoc.SendCommand ("_.zoom _e ")

End Sub