Вставка листов Excel в листы AutoCad с помощью VBA

> alex
Чуствуется, что это вопль.
Я только что из Курил (три месяца без интернета)
На AutoCAD, на мой взляд, листы из Excel перенести можно только растром из буфера.
Когда-то, давным-давно, я на VBA сделал программку, которая в AutoCAD, средсвами AutoCAD чертит таблицы из Excel (соблюдаются все размеры, что в Excel). Копируются, так же и значеия в ячейках, но только тремя самыми распростаненными шрифтами. Программа сырая - нет времени довести (работа, сон - 4 часа в сутки), но иногда ей пользуюсь и она меня выручает. Могу выслать (бесплатно). Мой e-mail: churaev_s@mail.ru

> Saor
Спасибо за отклик, хоть он и не прибавил оптимизма. Похоже в AutoCAD средствами VBA OLE-объекты действительно нельзя модифицировать (а жаль). С помощью AutoLISP получил имя объекта в базе и координаты его углов, а это уже зацепка, да тоже времени нет продолжить изыскания.
Интересно было бы взглянуть на Вашу программку. Если можно, вышлите исходники на agiarspmu@yahoo.com буду очень признателен.

> alex,
Fatty
Я опять только, что из командировки. На этот раз г. Макаров (о.Сахалин).
Если сказал "А", то, естественно, говори "Б".
Алгорим моей программы очень простой. Так как у одинаковых объектов AutoCAD и Excel на VBA свойства, методы, шрифты, координаты и т.п., и т.д. не совпадают (мягко сказано), то приходится брать ячейку в Excel, как объект, изучить ее и перевести в AutoCAD. Работа нудная (техника), но мне пришлось ее сделать. Тогда Excel я знал не плохо, а вот в AutoCADе был почти ноль. Я перед Вами похвастался программкой, нашел ее попробовал запусть, а она требует библиотеку, которую я сходу найти не смог. У меня сейчас новый софт - может-быть поэтому? Ну нет у меня сейчас времени разбираться с ней. Программа работает из Excel, поэтому код сюда выкладывать бессмыслено. Я ее вышлю Вам екселевским файлом на адреса.
Думаю, что Fatty сможет ее сократить на 2/3, так как считаю его одним из монстров VBA (когда-то он мне давал советы, правда под другим ником)
К стати, Fatty, я был на Итурпе. Но Кунашир, о. Шикотан, о. Зеленый, о. Юрий то же, иногда, посещаю.

> Saor
Спасибо за программу, буду разбираться
Я примерно такую сделал для одного перца
из Малайзии, только там еще добавлен event
для открытия чертежа, имя которого записано
в ячейке
Сейчас не в форме..., позже отпишусь
Успехов, завидую путешественникам :)
~'J'~

Кхм...я тут влезаю, потому что тема похожа...
Нужно вбить в акад 2006 ячейки из экселя, с сохранением связи, которые будут расбросаны по всему черчежу... Так как таких ячеек на чертеж будет более 200...надо чтобы забивались они путем перетаскивания... или методом "наводки" то есть с прописыванием пути по шаблону, примерно так
лист1/столбец15/строка10/
лист1/столбец15/строка21/
лист1/столбец15/строка31/
И тд...
Заранее спасибо =)

> tim
Не совсем понял насчет связей
К примеру, если это блоки, а в ячейках значения
атрибутов, тогда есть варианты, как это можно
сделать малой кровью
~'J'~

> Любознательный
Вообще-то я разобрался в том, как короче реализовать эту операцию в AutoCad, а именно:

Set LayFirst = ThisDrawing.Layouts.Item("Лист1")
Set LayNext = ThisDrawing.Layouts.Add("Лист" & CStr(N))
LayNext.CopyFrom LayFirst

Правда при этом копируются только настройки листа и печати, но меня это устраивает.
Относительно глюков макроса могу пока предложить два варианта:
1. Если установлен антивирус Касперского - запустить макрос при отключенной постоянной защите. В последнее время Касперский не дружит с VBA макросами. Я на это уже нарывался.
2. Гдето я читал, что некоторые версии Excel не позволяют копировать лист в последнюю позицию, хотя в моем Office 2003 он это беспрекословно делает. Попробуй переписать свой макрос так:

Sheets("Лист0").Copy Before:=Sheets(N)
Sheets(N + 1).Move After:=Sheets(N)

Спасибо.