Создание видового экрана на новом листе

[Electric]

Пишу скрипт, который создает новые листы и в них программно видовые экраны  определенного размера.
Возникла проблема в строке активации модели в листе (vla-put-mspace ActiveDocument :vlax-true)

Код - Auto/Visual Lisp [Выбрать]

1. (setq PaperSpace (vla-get-paperspace ActiveDocument)   
2.         ; Координаты центра    
3.         center_x (+ 20 (* 0.5 395))            
4.         center_y (- 292 (* 0.5 header_height))  
5.                        
6.         ; Видовой экран
7.         Viewport (vla-AddPViewport PaperSpace (vlax-3d-point (list center_x center_y)) table_width header_height)
8. ) ; setq
9.                        
10. (vla-display Viewport :vlax-true)
11.                
12. ; Активизация модели в видовом экране   
13. (vla-put-mspace ActiveDocument :vlax-true)
14.  
15. (setq left_point (vlax-3d-point (list (x (- y header_height))))
16.                           right_point (vlax-3d-point (list ((+ x table_width) y))))
17.        
18.  ; Центровка зума экрана                      
19. (vla-ZoomWindow Application  left_point right_point)
20.  
21. ; Деактивизация модели в видовом экране
22. (vla-put-mspace ActiveDocument :vlax-false)

возвращает ошибку "; ошибка: Ошибка Automation. Нет активного видового экрана в пространстве модели. Переключение в пространство листа", хотя видовой экран на листе создан.

P.S. автоматическое создание видового экрана на новом листе  отключено (vla-put-LayoutCreateViewport Display :vlax-false)

[Александр Ривилис]

Electric,
Код выполняешь из пространства модели?

[Electric]

Electric,
Код выполняешь из пространства модели?

Да, команду запускаю из ModelSpace, выбираю нужные объекты и создаю листы с ВЭ.

[Александр Ривилис]

Да, команду запускаю из ModelSpace, выбираю нужные объекты и создаю листы с ВЭ.

Так почему ты решил, что:

Код - Auto/Visual Lisp [Выбрать]

1. ; Активизация модели в видовом экране    
2. (vla-put-mspace ActiveDocument :vlax-true)

?
Ты же не перешел в пространство листа:

[Electric]

Да, команду запускаю из ModelSpace, выбираю нужные объекты и создаю листы с ВЭ.

Так почему ты решил, что:

Код - Auto/Visual Lisp [Выбрать]

1. ; Активизация модели в видовом экране    
2. (vla-put-mspace ActiveDocument :vlax-true)

?
Ты же не перешел в пространство листа:

Ну я просто не стал приводить  сюда всю портянку неотрефакторенного кода.
Но до этого я создавал лист и переключался в него:

Код - Auto/Visual Lisp [Выбрать]

1. ; Создаем страницу
2. (setq page_name (strcat "Спец_" (itoa i)))                 
3. (setq Layout (vla-Add Layouts page_name))
4. (setvar "CTAB" page_name)

Или  этого было недостаточно.

[Александр Ривилис]

Electric,

Код - Auto/Visual Lisp [Выбрать]

1. (vla-put-ActiveSpace ActiveDocument acPaperSpace)