[viner]

Здравствуйте, сколько уже сижу и бьюсь над задачей и не могу выполнить, знаний мало. Ситуация такая, есть у меня таблица в экселе в которой проводяться расчеты на нескольких листах, для меня только один лист в котором я работаю, вот эти данные мне нужно вывести, может специальная программа есть или лисп или еще что ? Мне нужно не просто вывести данные (я это умею) а в отдельных блоках.

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

А вот теперь еще раз, но с самого начала и по-русски. Таблицу вставить надо? Расставить блоки по координатам и углам поворота, рассчитанным в таблице? Для дин.блоков установить какие-то параметры? Чего надо-то?

[trir]

http://isicad.ru/ru/articles.php?article_num=20607

[viner]

Сообщение от Кулик Алексей aka kpblc А вот теперь еще раз, но с самого начала и по-русски. Таблицу вставить надо?

1) как бы это понятнее объяснить,делаю однолинейку и хочу уменьшить время забивания таблицы из экселя в автокад и убрать человеческий фактор и ошибки. Мне просто таблицу перенести не нужно (это я могу) ,а значения из таблицы расставить в блоки. Но блоки разные. Всего блоков 3 вида.
Пример 1-й блок -1 столбец и 7 строк
2-й блок - 2 столбца и 7 строк
3-й блок -3 столбца и 7 строк
блоки не динамические, обычные, хотя можно наверное и динамические.

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

Ну тогда генерируй через Excel хоть строку команд, хоть scr-файл, который и подгружай в ACAD. В любом случае это не будет использованием штатных средств ACAD (хоть чуть-чуть, но программирование понадобится).

[viner]

Сообщение от Кулик Алексей aka kpblc хоть чуть-чуть, но программирование понадобится)

в том то и дело программирование для меня темный лес, может есть более простые методы? или хотя бы скажите с чего начать?

[Сергей Юрьевич]

Сообщение от viner в том то и дело программирование для меня темный лес, может есть более простые методы? или хотя бы скажите с чего начать?

Если бы вы привели пример таблицы с нужными данными и блоков, которые нужно вставить в чертёж - было бы проще подсказать

[Сергей812]

Сообщение от viner или хотя бы скажите с чего начать?

изучайте, у вас для подобного все под рукой есть)
ну и для справки - на английском, правда.

[viner]

Сообщение от Сергей Юрьевич Если бы вы привели пример таблицы с нужными данными и блоков, которые нужно вставить в чертёж - было бы проще подсказать

вот пример (эксель лист 3(2) и автокад, прошу обратить внимание в экселе есть столбец D в нем значения а в с. По ним определяется в какой блок в автокаде прописываются значения,если "а в с" то в блок где три столбца, если "а в" то там где 2 столбца, а если "а" то там где один столбец

[Сергей812]

Сообщение от viner в том то и дело программирование для меня темный лес

а макрос в экселевском файле откуда появился тогда?)

----- добавлено через ~6 мин. -----
второй вопрос - где атрибуты в блоках?
или так и будет - имитация таблицы в блоке и мультитекст сверху неприкаянный?

[viner]

Сообщение от Сергей812 а макрос в экселевском файле откуда появился тогда?)

не понял? я его не делал, я его только перенес

[trir]

безымянные блоки - facepalm

[Сергей812]

Сообщение от trir безымянные блоки

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

[viner]

Сообщение от trir безымянные блоки - facepalm

можно и с именем блоки создать, я их на быструю руку создал так как меня попросили вид (пример) того что я хочу

Сообщение от Сергей812 динодушно отправили изучать программирование)

я так понимаю программирование изучается за 1,5 мес, интересно почему в универах учиться по 5лет? . Это если бы вы пришли покупать автомобиль , а вам бы дали ссылку на его конструкцию. На этом форуме только ссылки дают, если да ну тогда больше вопросов нет

[Сергей Юрьевич]

Сообщение от viner я так понимаю программирование изучается за 1,5 мес, интересно почему в универах учиться по 5лет?

в универах помимо программирования ещё кучу всякого разного изучают (вышку, философию, физкультуру и ещё тысячу часов всякого очень важного)
а чтобы базу освоить в пределах необходимого вам функционала - наверное и пары недель хватило бы

[Сергей812]

Сообщение от viner я так понимаю программирование изучается за 1,5 мес, интересно почему в универах учиться по 5лет? .

а вам не нужен такой уровень владения, если только не собрались из проектирования в ИТ валить) Первую ссылку из поста №8 даже не открывали, насколько понимаю - а там как раз наглядно показано, как из VBA экселя ломануться в акад. Посмотрите на количество строк кода в примерах - вы это собираетесь 5 лет изучать?)

[CalcProg]

за месяц можно освоить азы любого ЯП.
ваша проблема в том, что вы не желаете этого делать. а подсказок вам дали предостаточно.

[trir]

я так понимаю программирование изучается за 1,5 мес

да

[Сергей812]

кстати, сейчас на первых курсах университетов на технических специальностях продолжают давать азы программирования или упростили учебную программу?

[CalcProg]

Сообщение от Сергей812 кстати, сейчас на первых курсах университетов на технических специальностях продолжают давать азы программирования или упростили учебную программу?

наверное. когда я учился нам преподовали турбо паскаль 7.0 и макросописание под эксель. и ещё ряд спецефических программ изучали, конкретно по нашей специальности.

[trir]

На этом форуме только ссылки дают

а вы хотели БКК?

[Сергей Юрьевич]

Сообщение от Сергей812 кстати, сейчас на первых курсах университетов на технических специальностях продолжают давать азы программирования или упростили учебную программу?

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

[Сергей812]

ну а задача ТС не сильно сложнее лабораторных, имхо. Нюансы подсказали бы в процессе. Но ему даже нормальный блок с атрибутами лень сделать)

[trir]

https://habr.com/ru/post/322042/

[Сергей812]

Сообщение от trir https://habr.com/ru/post/322042/

trir, да чего вы ему .Net пихаете всё - пускай хотя бы на VBA начнет для начала)

[trir]

лучше сразу начинать с хорошего, там у автора тоже по коду видно, что он с VBA начинал - жуть полная

[Сергей812]

trir, все начинали с кривого корявого кода, не надо сказки рассказывать) А в VBA гораздо проще получить какой то видимый результат и тем самым не потерять интерес к самому процессу автоматизации в самом начале. И все под рукой - ни надо ничего согласовывать с руководством, с отделом ИТ - нажал в экселе ALT+F11 и пошел экспериментировать.

[Константин Д]

Раз уж Вы блоки делаете - может attout/attin?

[avatarez]

Если непринципиально блоки или таблицы, то в полуавтоматическом режиме при помощи моей надстройки для экселя можно сделать так:
- скачать надстройку https://dwg.ru/dnl/14892
- закрыть эксель, установить надстройку

- создать новый лист
- скопировать таблицу
- вставить на созданный лист через Специальная вставка - Значения с галочкой Транспонировать. Если уже есть объединенные ячейки, то еще вставить Специальная вставка - Форматы с галочкой Транспонировать
- объединить что надо, удалить что не надо, сделать выравнивание, выставить размер ячеек в см в режиме Вид - Разметка страницы
- с помощью надстройки вставлять в автокад

[viner]

Сообщение от Сергей812 Но ему даже нормальный блок с атрибутами лень сделать

мне не лень, я так понял что вопрос стоял показать вид блока и экселя без структуры

Сообщение от Константин Д Константин Д

да атрибуты есть

Сообщение от avatarez avatarez

спасибо за конкретику , а не ссылки на вба и на абстрактные примеры, попробую ваши надстройки

----- добавлено через ~46 мин. -----

Сообщение от avatarez avatarez

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

[trir]

хорошая надстройка,не загружает компьютер, но к сожалению не подходит

спасибо за конкретику

я одного не пойму, в статье на хабре ваша задача решена от и до - бери и пользуйся, что мешает?

[viner]

Сообщение от trir я одного не пойму, в статье на хабре ваша задача решена от и до - бери и пользуйся, что мешает?

вы про это "Автоматизация рутинных операций между Excel и AutoCAD при помощи VBA"?
или это "Скрипты в AutoCAD. Самое недооцененное оружие"

[Сергей812]

Сообщение от viner а не ссылки на вба и на абстрактные примеры, попробую ваши надстройки

т.е. вы всерьез рассчитывали - что выдав имитацию таблицы и блока, получите готовое решение?) Т.е. на время окружающих вам вообще наплевать...

[avatarez]

Сообщение от viner хорошая надстройка,не загружает компьютер, но к сожалению не подходит, она вставляет таблицу в том виде в каком в экселе, а мне нужно разделять на отдельные элементы

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

[trir]

вы про это "Автоматизация рутинных операций между Excel и AutoCAD при помощи VBA"? или это "Скрипты в AutoCAD. Самое недооцененное оружие"

Электрические схемы в Autocad с помощью .NET

[viner]

Сообщение от trir Электрические схемы в Autocad с помощью .NET

да видел я это, и даже пытался применить,там структура другая

[trir]

там структура другая

там есть исходники - берёшь и переписываешь

[viner]

Поздравляю всех с новым годом господа! Возвращаюсь все с тем же вопросом. Нашел более мене для меня подходящий код, удалил не нужное, но программа не работает, выделяет 3 строку "Dim AP As Excel.Application"? Что в этом коде не правильно?

Код:

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

Sub insertBlock()
Dim BlockRef As AcadBlockReference
Dim name As String
Dim pp As Variant
Dim AP As Excel.Application
Dim WB As Excel.Workbook
Dim WS As Excel.Worksheet
On Error Resume Next

'подключаемся к Excel
Set AP = Excel.Application
Set WB = AP.Workbooks.Open("C:\Users\......")
Set WS = WB.Worksheets.Open("Лист№... ")

'получаем точку вставки блока
pp = ThisDrawing.Utiliti.GetPoint(, "точка вставки блока:")

'вставка блока
name = "имя блока"
Set BlockRef = ThisDrawing.ModelSpace.insertBlock(pp, name, 1, 1, 1, 0)

Next
End If

'получение атрибутов
If BlockRef.HasAttributes = True Then
att = BlockRef.GetAttributes
For I = LBound(att) To UBound(att)
If att(I).TagString = "Атрибут" Then
att(I).TexString = Cells(3, 1)

End If
Next
End If

'выход из Excel
AP.Quit

End Sub

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

Отсутствуют ссылки на соответствующие библиотеки Excel. Проверяй Tools - References, если мне не изменяет память.

[viner]

Сообщение от Кулик Алексей aka kpblc Отсутствуют ссылки на соответствующие библиотеки Excel. Проверяй Tools - References, если мне не изменяет память.

немного по подробнее объясните пожалуйста что проверить? у меня в автокаде Tools - References серый, т.е я не могу его открыть
выдает ошибку "User-defined type not defined"

----- добавлено через ~2 ч. -----
подключил библиотеку" microsoft excel 16.0 object library, подправил код все равно не работает

Код:

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

Sub insertBlock()
Dim BlockRef As AcadBlockReference
Dim name As String
Dim pp As Variant
Dim AP As Excel.Application
Dim WB As Excel.Workbook
Dim WS As Excel.Worksheet
On Error Resume Next

'подключаемся к Excel
Set AP = Excel.Application
Set WB = AP.Workbooks.Open("C:\Users\....")
Set WS = WB.Worksheets("Лист№")

'получаем точку вставки блока
pp = ThisDrawing.Utility.GetPoint(, "точка вставки блока:")

'вставка блока
name = "имя атрибута"
Set BlockRef = ThisDrawing.ModelSpace.insertBlock(pp, name, 1, 1, 1, 0)



'получение атрибутов
If BlockRef.HasAttributes = True Then
att = BlockRef.GetAttributes
For I = LBound(att) To UBound(att)
If att(I).TagString = "Атрибут" Then
att(I).TexString = Cells(3, 1)

           End If
       Next
End If

'выход из Excel
AP.Quit

End Sub

скажите что в точке вставки блока прописать?

[Сергей812]

пост №8 ссылка №2 - в pdf работает текстовой поиск.