[Dmitriy45257054]

Постоянно работаю с однолинейными схемами, нужно считать суммарную длину кабеля определенной марки и определенного сечения для спецификации. Кабели записаны по типу ВВГнг(А)-LS-5х10, 48м. Сейчас делаю следующим образом: Найти -> 5х10-> выдает список кабелей на чертеже>считаю длину вручную на калькуляторе. Хочу экспортировать в эксель, чтобы далее разбить по столбцам и функцией =СУММ() посчитать суммарную длину. Как это можно реализовать?

[AMDen]

Извлечение данных...

[Dinoxromniy]

Ну прямо сразу ._dataextraction не факт что получится, если у вас мтекст с форматированием, то теги форматирования выведутся, их лучше изначально стереть специализированным листом.
Потом через выгрузку получить для всего текста его содержимое, в экселе разделить данные по столбцам по разделителю "запятая", я бы еще пробелы все поиском и заменой исключил , а из столбца с длинами - метры. Потом отсортировать данные, отфильтровать то, что содержит марку кабеля, выделить и вставить сводную таблицу.
Она сама переберет все присутствующие марки кабелей и проссумирует длины.
Только это изначально неправильный подход.
Однолинейки должны строится по расчету в экселе, там длины должны забиваться для расчета падения напряжения и кз, однолинейки это по сути графическая интерпретация расчета. Вот с этим расчетом и надо работать.

[Автон]

Если под конкретную задачу можно сделать макрос на VBA для Autocad. Минимум проверок

Код:

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

Sub kabsumm()

Dim spec() As String
Dim specsumm() As Integer
ReDim spec(0)
ReDim specsumm(0)
'Выделяем объекты
Set pfss = ThisDrawing.PickfirstSelectionSet
pfss.SelectOnScreen
If pfss.Count = 0 Then
    MsgBox "Необходимо выделить тексты"
    Exit Sub
End If
'Из всех выделенных объектов ищем Текст или МТекст
 For Each Object In pfss
    tip = Object.ObjectName
    If tip = "AcDbText" Or tip = "AcDbMText" Then
        objtext = Object.TextString
        kabel = ""
        kabeldlina = 0
        'Ищем по шаблону
        If objtext Like "*, #м" Then kabel = Left(objtext, InStr(1, objtext, ",") - 1): kabeldlina = Mid(objtext, 2 + InStr(1, objtext, ","), 1)
        If objtext Like "*, ##м" Then kabel = Left(objtext, InStr(1, objtext, ",") - 1): kabeldlina = Mid(objtext, 2 + InStr(1, objtext, ","), 2)
        If objtext Like "*, ###м" Then kabel = Left(objtext, InStr(1, objtext, ",") - 1): kabeldlina = Mid(objtext, 2 + InStr(1, objtext, ","), 3)
        If kabel <> "" And kabeldlina <> 0 Then
        'Если шаблон верный, то сравниваем со списком
            flag = True
            For i = LBound(spec) To UBound(spec)
                If spec(i) = kabel Then specsumm(i) = specsumm(i) + kabeldlina: flag = False
            Next i
            'Если не нашли в списком, добавляем новый кабель
            If flag Then
                spec(UBound(spec)) = kabel
                specsumm(UBound(specsumm)) = kabeldlina
                ReDim Preserve spec(UBound(spec) + 1)
                ReDim Preserve specsumm(UBound(specsumm) + 1)
            End If
        End If
    End If
 Next
 Dim InstPnt As Variant
 InstPnt = ThisDrawing.Utility.GetPoint(, "Укажите точку вставки: ")
 'Выводим результат
 For i = 0 To UBound(spec) - 1
      Text = spec(i) & " = " & specsumm(i) & "м"
      Set TextObj = ThisDrawing.ModelSpace.AddText(Text, InstPnt, 3)
      InstPnt(1) = InstPnt(1) - 5
 Next i

End Sub

[name02]

Если нужно делать именно как автор поста писал, то попробуй такой лисп
TXT2EXL.lsp

[Сергей812]

а потом окажется, что

Сообщение от Dmitriy45257054 Кабели записаны по типу ВВГнг(А)-LS-5х10, 48м.

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

[baksconstructor]

Каждой линии кабеля в свойствах присваиваем название по типу Марка - "ВВГнг(А)-LS-5х10" и вписываем его длину Колво -"48"
Потом получаем готовую таблицу кабелей и их длин с суммацией. Причем автоматом ещё и ток через формулу.
А потом уже или в автокад или в эксель экспортируем.

[name02]

Сообщение от baksconstructor Каждой линии кабеля в свойствах

О каких свойствах идет речь? В голом автокаде у линий нет свойств типа "количество" или "марка"