[SilvioManuel]

Есть длинный трубопровод на который нужно посчитать по длине весь - но нужно складывать длины участков. Приходится "мотать" чертёж вдоль трубы и складывать на калькуляторе. Есть ли такой кодик, что "прочитает" выбранные текстовые объекты и циферкой где нибудь выдаст сумму ?(произведение или пр. арифм. операции). Проблема ещё в том, что у длин есть префиксs (L, L=), а в других чертежах и суффиксы (м, п. м.), а в разных чертежах есть и МТекст и Текст.

[Profan]

Как ты вовремя спросил. Вот код, рассчитанный на стиль текста с фиксированной высотой:

Код:

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

;; ********************** сумма.lsp ********************
;; Сумма чисел из текстов вида L=5м.
;;  Автор Владимир Громов.
(defun C:СУММА ( / echo типт namobj entp rmnr ssl ssn1 pp n сумчис mld строка 
                 номдо стрдо номпосле число сумчис текстдлин)
(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(initget "В М Д Т D V L N")
(setq типт (getkword "\n Что выберем для суммы длин [Выноски/Мтексты/Дтексты/Тексты]<Выноски>: "))
(if (or (= типт "В") (= типт "D") (= типт nil)) (setq namobj "MULTILEADER"))
(if (or (= типт "М") (= типт "V")) (setq namobj "MTEXT"))
(if (or (= типт "д") (= типт "L")) (setq namobj "DTEXT"))
(if (or (= типт "Т") (= типт "N")) (setq namobj "TEXT"))
;; **** Ликвидация предыдущего (текущего) набора
(command "_point" "0,0")
(setq entp (ssget "_L"))
(setq entp nil)
(entdel (entlast))
;; *********************************************
(initget "Р H С C")
(setq rmnr (getkword "\nВыбор объектов с помощью [Рамка/Секрамка]<Рамка>: "))
(if (or (= rmnr "Р") (= rmnr "H") (= rmnr nil))
    (progn
    (princ "Первый угол рамки: ")
    (terpri)
    (command "_Select" "_W" pause)
    (setq ssl (ssget "_P"))
    ) ; progn
) ; if
(if (or (= rmnr "С") (= rmnr "C"))
    (progn
    (princ "Первый угол секущей рамки: ")
    (terpri)
    (command "_Select" "_C" pause)
    (setq ssl (ssget "_P"))
    ) ; progn
) ; if
(if ssl
    (progn
    (setq ssn1 (sslength ssl) n 0 сумчис 0)
    (repeat ssn1
            (setq pp (ssname ssl n))
            (if (= (cdr (assoc 0 (entget pp))) namobj)
                (progn
                (setq mld (vlax-ename->vla-object pp))
                (setq строка (vlax-get-property mld 'TextString))
                (if (vl-string-search "L=" строка)
                    (progn 
                    (princ "\nИсходная строка: ") (princ строка)
                    (setq номдо (vl-string-search "=" строка))
                    (setq стрдо (substr строка (+ номдо 2)))
                    (princ "\nОбрезанная слева ") (princ стрдо)
                    (setq номпосле (vl-string-search "м" стрдо))
                    (setq число (atof (substr стрдо 1 номпосле)))
                    (princ "\nОбрезанная справа ") (princ число)
                    (setq сумчис (+ сумчис число))
                    ) ; progn
                    (princ "\nНет текста с длиной L=")
                ) ; if
                (princ "\nЭто не текст.")
                ) ; progn
            ) ; if
            (setq n (+ n 1))
    ) ; repeat
    (princ "\nСумма длин = ") (princ сумчис) (princ " м")
    (setq текстдлин (strcat " Lсуммарная=" (rtos сумчис 2 1) "м"))
    (princ "\nУкажите точку вставки текста: ")
    (vl-cmdf "_TEXT" pause "0" текстдлин)
    ) ; progn
    (princ "\nОбъекты не выбраны.")
) ; if
(setvar "CMDECHO" echo)
(princ "\nГотово.")
(princ)
)

[SilvioManuel]

Спасибо за код, но я не понял до конца как он работает. Для примера я создал несколько произвольных текстовых объектов (МТекст), включающих числа (типа "иывпорорир56" или"ждлд115прлтд"), выбрал их и после подтверждения выбора программа пригласила меня написать текст.
Забыл отметить ещё, каюсь, что числа имеют не целочисленный характер (если это важно) - типа L15,67 или L4,7

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

SilvioManuel, вопрос задан в разделе AutoCAD. Следовательно, решение должно использовать штатные возможности программы. ИМХО - тебе придется использовать поле с DIESEL-выражением.

[sasha_lif]

а сам трубопровод нарисован? Полилиниями ? Может просто глянуть длину полилинии или там что-то не так ?

[SilvioManuel]

Сообщение от sasha_lif а сам трубопровод нарисован? Полилиниями ? Может просто глянуть длину полилинии или там что-то не так ?

далеко не так. можно сказать приходится считать по схемам, где всё не в масштабе