[serg01]

Добрый день!
В программировании я не силен, может кто поможет разобраться.
Написал мне программу один человек с caduser.ru
Тема обсуждения начальная тут:
http://www.caduser.ru/forum/index.ph...D=23&TID=46899
Суть проблемы следующая, нужно вставить блок или содержимое модели из неоткрытого файла во все layout текущего файла.
Сама программа выглядит вот так:

Код:

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

(vlax-for s
       (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
  (if (wcmatch (vla-get-Name s) "`*Paper_Space*")
    (vla-InsertBlock
      s
      (vlax-3D-point '(0.0 0.0 0.0))
      "d:\\Temp\\1.dwg"
      1
      1
      1
      0
    )
  )
)

Пытаюсь вставить файл 1.dwg. Файл сделан с помощью _wblock.
Работает хорошо, но почему то на конкретном файле (шаблоне test.dwt) не отрабатывает. Говорит (load "111.lsp") nil и все.
Если создать в шаблоне еще 1 лист, то на него вставляется без проблем.
Что может быть не подскажите?
Может быть кто у себя проверит если время есть? Спасибо.

Или быть может кто подскажет как переключиться на следующий layout? Если использовать -layout, то можно перейти на первый layout не зная имени. А как на следующий не знаю. Вышенаписанную задачу можно с помощью скрипта сделать, но вся загвоздка в переходе на следующий лист.

Как перейти на след. лист нашел. Буду теперь думать как победить
Вот код

Код:

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

(defun pl:lasw (rev / doc lays laylst act)
  (setq doc  (vla-get-activedocument (vlax-get-acad-object))
        lays (vla-get-layouts doc)
        act  (vla-get-taborder (vla-get-activelayout doc))
  ) ;_ end of setq
  (vlax-for x lays (setq laylst (cons x laylst)))
  (setq laylst
         (vl-sort laylst
                  (function (lambda (a b) (< (vla-get-taborder a) (vla-get-taborder b))))
         ) ;_ end of vl-sort
  ) ;_ end of setq
  (vla-put-activelayout
    doc
    (if rev
      (if (zerop act)
        (last laylst)
        (nth (1- act) laylst)
      ) ;_ end of if
      (if (= (1+ act) (length laylst))
        (car laylst)
        (nth (1+ act) laylst)
      ) ;_ end of if
    ) ;_ end of if
  ) ;_ end of vla-put-ActiveLayout
) ;_ end of defun
;;; Вызов:
;;; (pl:lasw nil) - листать вперёд
;;; (pl:lasw t)   - листать назад

[Makswell]

Попробуй так:

Код:

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

(vlax-for s
       (vla-get-Blocks (vla-get-ActiveDocument (vlax-get-acad-object)))
  (if (wcmatch (strcase (vla-get-Name s)) "`*PAPER_SPACE*")
    (vla-InsertBlock
      s
      (vlax-3D-point '(0.0 0.0 0.0))
      "d:\\Temp\\1.dwg"
      1
      1
      1
      0
    )
  )
)

[serg01]

Спасибо большое! Все работает!