[koui]

Создаю таблицу на основе извлечения данных. Выбираю объекты в том порядке, в каком они мне нужны в таблице. Среди данных Мтексты и полилинии. объекты сгруппированы, потому на предварительном просмотре я вижу, что сперва идёт Мтекст1, под ним полилиния 1.1, полилиния 1.2, далее Мтекст2, под ним полилиния 2.1, полилиния 2.2. Казалось бы всё хорошо. Но стоит мне сформировать таблицу (не имеет значения в чертеж или другой фейл) все данные перетасовываются и встают на непонятные места.
Отсюда два вопроса:
1. как сделать так, что б данные не тасовались?
2. по какому принципу они распределяются по умолчанию?

[VitalyAF]

Сообщение от koui 2. по какому принципу они распределяются по умолчанию?

В порядке создания.

Сообщение от koui 1. как сделать так, что б данные не тасовались?

см. "DrawOrder" с опциями.
Но группировка, я т.д. вносит свои особенности. Когда-то пробовал применять её, но вскоре отказался из-за множества неудобств, советую заменить её на что-то более современное.

[Сергей812]

поищите на форуме типа "порядок данных при извлечении", там есть разные предложения: по координатам и т.д.

[kp+]

Сообщение от koui по какому принципу они распределяются по умолчанию

Кажется, таблица извлечения данных принудительно сортируется по одному из столбцов. Можно выбрать, по какому имено, но нет галочки типа "не сортировать", чтобы объекты были показаны в порядке выбора или создания.

Ps
Здесь пытались замутить альтернативный вариант на лиспе, с блэкджеком и ш... Честно говоря, не запускал. Может, это то, что Вам подойдет, сразу или после доработки.

[VitalyAF]

Сообщение от koui Но стоит мне сформировать таблицу (не имеет значения в чертеж или другой фейл) все данные перетасовываются и встают на непонятные места.

Форматирование связано со стилем таблицы, пробовали создавать свой стиль, извлечь туда данные и перед форматированием сохранять (обновлять) его?
И куда сохраняете там тоже д.б. ваш стиль иначе автоматом обновится на Standard, предварительно надо как-то синхронизировать стили.
PS
Ещё есть ещё переменная DXEVAL
;; Set DXEVAL to 0
(command "dxeval" 0) по умолчанию - 12 - у меня отключает уведомление об обновление таблицы
Можно так же в ACADDOC.LSP прописать, чтобы не редактировать каждый раз

[Сергей812]

ну и есть такой костылеще из штатных средств - гиперссылка (хоткей -> Ctrl + K), отображаемое имя может быть задано как 001.1 для первого элемента из группы, 001.2 - для второго по порядку элемента из группы и т.д. А далее при извлечении отсортировать по отображаемым именам.

[VitalyAF]

Ещё из той же оперы, выбрал объекты специально вразнобой с опцией - Fence,
у меня на 22-м не сортируется, т.е. в том же порядке и не "перетаскивается" при форматировании и при открытии/сохранении

DE.dwg

[koui]

Сообщение от VitalyAF Форматирование связано со стилем таблицы, пробовали создавать свой стиль, извлечь туда данные и перед форматированием сохранять (обновлять) его? И куда сохраняете там тоже д.б. ваш стиль иначе автоматом обновится на Standard, предварительно надо как-то синхронизировать стили. PS Ещё есть ещё переменная DXEVAL ;; Set DXEVAL to 0 (command "dxeval" 0) по умолчанию - 12 - у меня отключает уведомление об обновление таблицы Можно так же в ACADDOC.LSP прописать, чтобы не редактировать каждый раз

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

[trir]

используй FDO

[Сергей812]

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

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

[VitalyAF]

Сообщение от koui представляешь, что может начаться, если в неком месте таблицыв пойдёт сбой, а ты отправишь заказчику

Тогда и подход должен быть соответствующий по надёжности, по всей цепочке от задумки до изготовления, софт в т.ч.
Offtop: Я же рассказывал, как знакомый - отличный программист наладил на лиспе расчёт торгового оборудования, вывод чертежей и таблиц...,
но вкралась ма-а-а-а-ленькая неточность и заказчику отправили две фуры нарезанного стекла и дорогого профиля НЕ по размеру...
Несколько лет выплачивал, частная контора, потом на Solid перешли...

[Oleg T]

Сообщение от koui Выбираю объекты в том порядке, в каком они мне нужны в таблице

В Брикскаде этот метод срабатывает. Но частично, объекты группируются по категориям.
Offtop: Кстати, давно заметил, что в нем и атрибуты при создании блока необходимо выбирать в нужном порядке,
т.к. их сортировка в блоке от времени создания не зависит. В отличие от того, к чему я когда-то привык в Автокаде.

[Сергей812]

а хотите полностью контролировать процесс извлечения данных - выкиньте стандартное средство извлечения данных. Все равно выделяете

Сообщение от koui Выбираю объекты в том порядке, в каком они мне нужны в таблице. Среди данных Мтексты и полилинии. объекты сгруппированы, потому на предварительном просмотре я вижу, что сперва идёт Мтекст1, под ним полилиния 1.1, полилиния 1.2, далее Мтекст2, под ним полилиния 2.1, полилиния 2.2.

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

Код:

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

Option Explicit

Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As LongPtr) As Integer


Private Function ExtGetEntity(ByRef aCurrDoc As AcadDocument, ByVal aPrompt As String, _
  ByVal aTypeEnt As String) As AcadEntity
  On Error Resume Next
  Dim lEnt As AcadEntity, lPick As Variant
  While True
    Set lEnt = Nothing
    aCurrDoc.Utility.GetEntity lEnt, lPick, vbCr & aPrompt
    If (lEnt Is Nothing) Then
      ' Выход по Esc
      If (GetAsyncKeyState(&H1B)) Then Exit Function
    Else
      If (lEnt.ObjectName = aTypeEnt) Then
        Set ExtGetEntity = lEnt
        Exit Function
      End If
    End If
  Wend
End Function


Public Sub GetInfoByUser()
  ' Получаем объект акада
  Dim lAcadApp As AcadApplication
  Set lAcadApp = GetObject(, "AutoCAD.Application")
  ' Получаем текущий чертеж
  Dim lCurrDoc As AcadDocument
  Set lCurrDoc = lAcadApp.ActiveDocument
  ' В бесконечном цикле
  Dim lEnt As AcadEntity, lMText As AcadMText
  Dim lPL1 As AcadLWPolyline, lPL2 As AcadLWPolyline
  While True
    Set lEnt = ExtGetEntity(lCurrDoc, "Выберите мультитекст: ", "AcDbMText")
    If (lEnt Is Nothing) Then Exit Sub
    Set lMText = lEnt
    Set lEnt = ExtGetEntity(lCurrDoc, "Выберите первую полилинию: ", "AcDbPolyline")
    If (lEnt Is Nothing) Then Exit Sub
    Set lPL1 = lEnt
    Set lEnt = ExtGetEntity(lCurrDoc, "Выберите вторую полилинию: ", "AcDbPolyline")
    If (lEnt Is Nothing) Then Exit Sub
    Set lPL2 = lEnt
    ' И когда собрался пазл из мультитекста и двух полилиний, можно выгрести из них
    ' все нужные данные и сохранить на лист экселя. Если еще сохранить и хэндлы
    ' примитивов - то потом можно будет обновлять данные: вместо выбора пользователя
    ' будет вызов HandleToObject
    
    
  Wend
  Set lCurrDoc = Nothing
  Set lAcadApp = Nothing
End Sub