[protorgovec]

Наконец нашел время для новой попытки автоматизировать свою работу. Суть проблемы осталась прежней. Не могу заставить создать в неактивном документе вкладку по шаблону. Обчитался CopyObject, но так и не могу понять. Может кто пропишет как это сделать? Как создать в неактивном документе вкладку листа по шаблону? Очень нужно, но своих мозгов не хватает!

----- добавлено через ~4 ч. -----

Сообщение от protorgovec Наконец нашел время для новой попытки автоматизировать свою работу. Суть проблемы осталась прежней. Не могу заставить создать в неактивном документе вкладку по шаблону. Обчитался CopyObject, но так и не могу понять. Может кто пропишет как это сделать? Как создать в неактивном документе вкладку листа по шаблону? Очень нужно, но своих мозгов не хватает!

Хорошо, давайте по другому. За какую сумму кто нибудь из вас готов мне помочь? Прописать этот злополучный CopyObject.

[P_S]

Если проблема ещё существует:
По-моему, достаточно было внимательно прочитать Help и внимательно отследить формат данных.

Код:

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

 ;Итак, имеем два открытых DBX-документа: odbx - шаблон и odbx1 - файл, куда он будет вставляться
(setq lay(vla-Item(vla-get-Layouts odbx)2); Получаем нужный нам layout - шаблон
;(Item - это так, для примера, можно расписать функцию для выбора нужного)
      lay_obj_copied(car(vlax-safearray->list(vlax-variant-value;вынимаем из возвращаемого методом CopyObjects
					                        ;значения (safearray) vla-object (layout)
(vla-CopyObjects odbx; Откуда копируем
  (vlax-safearray-fill(vlax-make-safearray vlax-vbObject '(0 . 0))(list lay)); Что копируем (safearray)
   (vlax-make-variant (vla-get-Layouts odbx1) vlax-vbObject); Куда копируем (variant); owner скопированого -
                                                            ;коллекция Layouts в целевом файле
  ID); IDPair - они нам не пригодятся
))))
(vla-saveas odbx1 inp_file)
(vlax-release-object odbx1)
(setq odbx1 nil)
(vlax-release-object odbx)
(setq odbx nil)

[protorgovec]

Сообщение от P_S Если проблема ещё существует: По-моему, достаточно было внимательно прочитать Help и внимательно отследить формат данных. Код: [Выделить все] ;Итак, имеем два открытых DBX-документа: odbx - шаблон и odbx1 - файл, куда он будет вставляться (setq lay(vla-Item(vla-get-Layouts odbx)2); Получаем нужный нам layout - шаблон ;(Item - это так, для примера, можно расписать функцию для выбора нужного) lay_obj_copied(car(vlax-safearray->list(vlax-variant-value;вынимаем из возвращаемого методом CopyObjects ;значения (safearray) vla-object (layout) (vla-CopyObjects odbx; Откуда копируем (vlax-safearray-fill(vlax-make-safearray vlax-vbObject '(0 . 0))(list lay)); Что копируем (safearray) (vlax-make-variant (vla-get-Layouts odbx1) vlax-vbObject); Куда копируем (variant); owner скопированого - ;коллекция Layouts в целевом файле ID); IDPair - они нам не пригодятся )))) (vla-saveas odbx1 inp_file) (vlax-release-object odbx1) (setq odbx1 nil) (vlax-release-object odbx) (setq odbx nil)

Спасибо огромное! Надеюсь разберусь и дальше уже продолжу свое творение. Читал Help, просто наверное я не программист и может поэтому не допедриваю. Для меня язык программирования, только на уровне народного языка, более что то умное в выражениях, и я как в темном лесу может со временем изучу все термины. А пока пишу на уровне прямых примеров и копированием того, что уже сам прописал. Каждую строчку комментирую что непосредственно делает та или иная команда еще раз огромное спасибо!