[stessi2006]

Делаю гидравлический расчет газопроводов.
Есть огромная таблица с расчетами в excel + схема в автокаде.
В узлах на схеме мне надо расставить значения (конечные давления).
Обычно я перепечатываю в каждом узле давление из таблицы вручную.
Часто возникают какие-то изменения, все значения в расчете меняются, надо опять перепечатывать.

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

Красненьким выделено значение конечно давления в узле, вместо этого хочу ячейку вставить.

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

Вставляй блоки с атрибутами, потом _.attout, открыть в Excel, изменить значения и обратно _.attin

[stessi2006]

Где можно подробнее почитать?
Оч стыдно, но ничего не поняла.
На команды _.attout, _.attin - "неизв. команда"

[hudozhnik]

Сообщение от stessi2006 Где можно подробнее почитать? Оч стыдно, но ничего не поняла. На команды _.attout, _.attin - "неизв. команда"

Это команды из Express Tools - дополнение к стандартному Автокаду.

[stessi2006]

Express Tools установила.
Дальше непонятно.

----- добавлено через ~6 мин. -----
В автокаде есть функция "связь с данными" - не поможет?

[skkkk]

Сообщение от stessi2006 В автокаде есть функция "связь с данными" - не поможет?

Поможет, как вариант.
1. Создаем связь с данными. Указываем в ней нужный диапазон в excel.
2. Создаем таблицу на основе этой связи с данными.
3. Создаем поле (_.FIELD). Категория - Объекты, Имя - Ячейка. Указываем нужную ячейку, затем место вставки поля. Тут важно проследить, чтобы на всех этапах формат в ячейке был ЧИСЛОВЫМ!
4. После изменения и сохранения таблицы в excel в Автокаде появится сообщение об этом и предложение обновить связи.
5. Регенерация (_.REGENALL)
Всё.

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

Сообщение от skkkk Имя - Ячейка

По-моему, надо формулу выбирать ))

[skkkk]

Да-да, Формула, и тогда появится кнопка Ячейка. Писал по памяти, прошу прощения

[art_rrc]

Возможно, поможет эта тема http://forum.dwg.ru/showthread.php?p...2&#post1323602
ps Видео из поста #12 https://www.youtube.com/watch?v=wvZV_-xXxks

[stessi2006]

Как у меня получилось:
1. создаю связь (указываю одну ячейку в excel)
2. создаю таблицу (в параметрах вставки выбираю "на основе связи с данными")

Работает.

Единственное бесит, что ширину столбца не задать.

[art_rrc]

Сообщение от stessi2006 Единственное бесит, что ширину столбца не задать.

Можно.

[hudozhnik]

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

[art_rrc]

Сообщение от hudozhnik Я так понял все предложенные способы работают при неизменном количестве ячеек в таблице. Потому что, если в середине таблицы, допустим, появится новая ячейка, то связь "поедет".

Если брать данные напрямую из первоисточника, то да. В таком случае нужно иметь в Ехсе1 дополнительную таблицу данных. И связываться уже с ней, ведь ексель лишен такой проблемы:

Сообщение от hudozhnik появится новая ячейка, то связь "поедет".

[Сергей812]

Как вариант - можно обновлять мультитекст в AutoCAD из самого Excel. Далее приведен код для Excel!

Код:

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

Option Explicit

' Слой, на котором находятся обновляемые объекты MText
Const cNameLayerUpdateMText As String = "0"

' Получение значения мультитекста по его хэндлу
Private Function GetUpdateText(ByVal aHandle As String) As String
   Dim lCurrRow As Long
   Dim lHandle As String
   lCurrRow = 2
   lHandle = Trim(ActiveWorkbook.ActiveSheet.Cells.Range("A" & CStr(lCurrRow)).Value)
   While (Len(lHandle) > 0)
      If (lHandle = aHandle) Then
         GetUpdateText = Trim(ActiveWorkbook.ActiveSheet.Cells.Range("B" & CStr(lCurrRow)).Value)
         Exit Function
      End If
      lCurrRow = lCurrRow + 1
      lHandle = Trim(ActiveWorkbook.ActiveSheet.Cells.Range("A" & CStr(lCurrRow)).Value)
   Wend
   GetUpdateText = "Error!"
End Function


' Сграбить содержимое мультитекстов
Public Sub GrabberMText()
   Dim lAcadAppObj As AutoCAD.AcadApplication
   Dim lAcadDocObj As AutoCAD.AcadDocument
   On Error GoTo ErrConnectACAD
   Set lAcadAppObj = GetObject(, "AutoCAD.Application")
   On Error GoTo ErrConnectAcadDoc
   Set lAcadDocObj = lAcadAppObj.ActiveDocument
   On Error GoTo ErrGrabberMText
   Dim I1 As Long
   Dim lCountItem As Long
   Dim lCurrRow As Long
   lCurrRow = 1
   Dim lMText As AcadMText
   lCountItem = lAcadDocObj.ModelSpace.Count
   For I1 = 0 To lCountItem - 1
      ' Если мультитекст
      If (lAcadDocObj.ModelSpace.Item(I1).ObjectName = "AcDbMText") Then
         Set lMText = lAcadDocObj.ModelSpace.Item(I1)
         If (lMText.Layer = cNameLayerUpdateMText) Then
            lCurrRow = lCurrRow + 1
            ActiveWorkbook.ActiveSheet.Cells.Range("A" & CStr(lCurrRow)).Value = lMText.Handle
            ActiveWorkbook.ActiveSheet.Cells.Range("B" & CStr(lCurrRow)).Value = lMText.TextString
         End If
         Set lMText = Nothing
      End If
   Next I1
   MsgBox "Мультитекст был успешно сграблен!", vbOKOnly + vbInformation, "Завершено"
   Exit Sub
ErrConnectACAD:
   MsgBox "Не удалось подключиться к AutoCAD!", vbOKOnly + vbCritical, "Ошибка"
   On Error GoTo 0
   Exit Sub
ErrConnectAcadDoc:
   MsgBox "Не удалось получить текущий документ AutoCAD!", vbOKOnly + vbCritical, "Ошибка"
   On Error GoTo 0
   Set lAcadAppObj = Nothing
   Exit Sub
ErrGrabberMText:
   MsgBox "Ошибка в процессе сграбления мультитекста в AutoCAD!", vbOKOnly + vbCritical, "Ошибка"
   On Error GoTo 0
   Set lMText = Nothing
   Set lAcadDocObj = Nothing
   Set lAcadAppObj = Nothing
End Sub


' Обновить содержимое мультитекстов
Public Sub UpdateMText()
   Dim lAcadAppObj As AutoCAD.AcadApplication
   Dim lAcadDocObj As AutoCAD.AcadDocument
   On Error GoTo ErrConnectACAD
   Set lAcadAppObj = GetObject(, "AutoCAD.Application")
   On Error GoTo ErrConnectAcadDoc
   Set lAcadDocObj = lAcadAppObj.ActiveDocument
   On Error GoTo ErrUpdateMText
   lAcadDocObj.StartUndoMark
   Dim I1 As Long
   Dim lCountItem As Long
   Dim lMText As AcadMText
   lCountItem = lAcadDocObj.ModelSpace.Count
   For I1 = 0 To lCountItem - 1
      ' Если мультитекст
      If (lAcadDocObj.ModelSpace.Item(I1).ObjectName = "AcDbMText") Then
         Set lMText = lAcadDocObj.ModelSpace.Item(I1)
         If (lMText.Layer = cNameLayerUpdateMText) Then
            lMText.TextString = GetUpdateText(lMText.Handle)
            lMText.Update
         End If
         Set lMText = Nothing
      End If
   Next I1
   lAcadDocObj.EndUndoMark
   MsgBox "Мультитекст был успешно обновлен!", vbOKOnly + vbInformation, "Завершено"
   Exit Sub
ErrConnectACAD:
   MsgBox "Не удалось подключиться к AutoCAD!", vbOKOnly + vbCritical, "Ошибка"
   On Error GoTo 0
   Exit Sub
ErrConnectAcadDoc:
   MsgBox "Не удалось получить текущий документ AutoCAD!", vbOKOnly + vbCritical, "Ошибка"
   On Error GoTo 0
   Set lAcadAppObj = Nothing
   Exit Sub
ErrUpdateMText:
   MsgBox "Ошибка в процессе обновления мультитекста в AutoCAD!", vbOKOnly + vbCritical, "Ошибка"
   On Error GoTo 0
   Set lMText = Nothing
   Set lAcadDocObj = Nothing
   Set lAcadAppObj = Nothing
End Sub

Естественно, в Excel надо добавить в VBA редакторе: Tools->Reference - ссылки на библиотеки AutoCAD. По сути этот код - своего рода аналог _.attout, _.attin, только для мультитекста.

[trir]

Ну всё - код пошёл
А зачем тогда вообще Excel? Пишем код на dotNET, данные храним в XML или БД, а АкАд используем для визуализации...

[Сергей812]

Сообщение от trir А зачем тогда вообще Excel? Пишем код на dotNET, данные храним в XML или БД, а АкАд используем для визуализации...

Ну если это займет 5..10 минут - то можно и так) Если у человека уже есть какие-то наработки по расчету гидравлики в экселе (насколько понимаю), то их надо бросить и все переделывать под современные технологии?

[trir]

Ну не минут, дней. Но зато какой прирост КПД будет! Окупится за один раз!

[Сергей812]

Сообщение от trir Ну не минут, дней. Но зато какой прирост КПД будет! Окупится за один раз!

Угу. Заказчику-подождите, пожалуйста, дней 5..10. Сроки горят - да ну, какие глупости. Зато потом как за полдня сделаем

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

[skkkk]

Сообщение от Сергей812 покупать профессиональные универсальные решения

А если таких просто не существует? Для гидравлики есть еще, конечно, "Гидравлический калькулятор". Но профессиональным его назвать язык не поворачивается. Универсальным... Ну не знаю. Сколько знаю его позакупили, по крайней мере, из моих знакомых, три фирмы, - всё равно все они сидят по-старинке в Автокаде с Экселем. А делать? Конкретно под одну организацию - ей дорого обойдется, а всем не угодить. Еще и методик расчета этой гидравлики - целый воз. Каждый мочит как хочет)). У меня есть куча мыслей, как это всё в разы упростить, но нет катастрофически времени на реализацию.

Удручает более всего то, что приходится работать в разных средах и в каждую из сред заново вводить все исходные данные, прорисовывать трассу. В самых изощренных вариантах данные вообще вводятся каждый раз заново в каждый из сотен (!) документов в Ворде. Хорошо хоть каждый заново, с нуля не печатается - многие в этом видят венец компьютеризации. В общем, пока лично я вижу такую картину: большинство до сих пор используют Автокад просто как электронный кульман. Это, несомненно, прогресс, но прирост скорости в основном только за счет того, что можно легко подтереть что-то раз сто, на размазав грязи на ватмане, да выноски и блоки можно взять из прошлого проекта (шаблона), "чуть" изменив цифры и буквы. В остальном - почти полностью ручной труд. Есть и те, кто пытаются что-то оптимизировать, ищут, внедряют, но Заказчику действительно не объяснишь, почему сроки сорваны, а денег кому-то платить жалко и неоткуда. Эти бедняги ночами и в выходные что-то изобретают, но этого времени мало, и может, на закате карьеры что-то стоящее уже и родится, когда никому это будет уже не нужно... Печаль

[trir]

А если таких просто не существует?

http://www.politerm.com.ru/zuluhydro/index.htm