[Red Nova]

Я не пользуюсь таблицами AutoCADа, черчу ячейки, в них по мтексту. Вопрос как оперативно соcчитать сумму цифр их содержимого. Слышал есть такой калькулятор, по моему calcacad называется, но на 2008-й Cad не идет. Что делать?

Добавлено.
Постепенно форум перешел в разработку липа для расчета спецификаций из мтекстов, и расчет суммы из мтекстов стал просто полезной добавкой к расчету спецификации. Последний вариант программы находится тут

[Red Nova]

dextron3, Переименуй архив, а-то при закачке я к примеру случайно переписал вместо архива с поста #273, название тоже, не хорошо получается.
Раз уж начал, то давай и менюшку делай, с разными иконками, на все команды.

[VVA]

Обновил код в #273
1.Подумал, подумал и согласился с предложением Red Nova #279
(в Spec3 запрос изменен на запрос точки середины колонки)
2. Добавлена обработка профилей по ГОСТ 24045-94
3. Мoи варианты кнопок к командам

[dextron3]

Добавил в базу весь спектр равнополочных уголков, а также дополнительные ТУ в для гнутых прямоугольных и квадратных профилей,


PS оказывается базы пополнять настолько нудная работа...

из предыдущего поста скопировать только ГОСТ 24045-94


VVA, а профлист в метрах квадратных считает (м.кв.) или как отдельные листы???

[dextron3]

VVA, у Вас профлист в погонных метрах,
хотя часто его считают в квадратных.
Вот для м.кв. :

Код:

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

;;;ПРОФИЛИ СТАЛЬНЫЕ ЛИСТОВЫЕ ГНУТЫЕ С ТРАПЕЦИЕВИДНЫМИ ГОФРАМИ ДЛЯ СТРОИТЕЛЬСТВА ГОСТ 24045-94
("ПЛИСТ" 25 "ГОСТ 24045-94;ГОСТ24045-94" "Профили стальные листовые гнутые с трапециевидными гофрами для строительства ГОСТ 24045-94" (("Н57-750-0.6" 7.5)("Н57-750-0.7" 8.7)("Н57-750-0.8" 9.8)("Н60-845-0.7" 8.8)("Н60-845-0.8" 9.9)("Н60-845-0.9" 11.1)("Н75-750-0.7" 9.8)("Н75-750-0.8" 11.2)("Н75-750-0.9" 12.5)("Н114-600-0.8" 14.0)("Н114-600-0.9" 15.6)("Н114-600-1.0" 17.2)("Н114-750-0.8" 12.5)("Н114-750-0.9" 14.0)("Н114-750-1.0" 15.4)("НС35-1000-0.6" 6.4)("НС35-1000-0.7" 7.4)("НС35-1000-0.8" 8.4)("НС44-1000-0.7" 8.3)("НС44-1000-0.8" 9.4)("С10-899-0.6" 5.7)("С10-899-0.7" 6.6)("С10-1000-0.6" 5.6)("С10-1000-0.7" 6.5)("С18-1000-0.6" 6.4)("С18-1000-0.7" 7.4)("С15-800-0.6" 6.0)("С15-800-0.7" 6.9)("С15-1000-0.6" 6.4)("С15-1000-0.7" 7.4)("С21-1000-0.6" 6.4)("С21-1000-0.7" 7.4)("С44-1000-0.7" 7.4)))

PS Хотел болты и гайки забить в сортамент, не могу сообразить как болты забить ведь у них по мимо диаметра и длинна разная
тоесть около 1000 разновидностей получается, тут формулу нужно выводить...
гайки с шайбами то понятно...

[VVA]

Я предполагал, что профлист ситается по погонным метрам
Запись должна быть типа: ГОСТ 24045-94 Н75-750-0.8 L=1000
Алгоритм программы составлен так, что найденный вес в базе умножается на длину, если длина не определена, то она считается 1000 мм.
Можно изменить вес в базе на м.кв и изменить алгоритм расчета профлиста, где кол-во будет обозначать м.кв, но тогда по профнаслил будет считаться только по погонным метрам.
Короче нужно определиться с профнастилом:
или погонные метры или квадратные метры?
>dextron3
Приведи пример строки спецификации для болтов.

[LSN]

VVA, ты правильно считаешь. У тех листов, которые у тебя в базе (проф. листов) идет стандартная ширина. Но есть листы рифленые, с ромбическим и чечевичным рифлением, может и другие есть. Так вот у них вес в сортаменте в кв. м. ГОСТ 8568-77*.
Сам попробывал переделать твой старый код. Может и для нового пойдет, не пробывал пока:
1. LISP:
;;;======= ЛИСТЫ СТАЛЬНЫЕ С РОМБИЧЕСКИМ РИФЛЕНИЕМ ГОСТ 8568-77* (ЛИСТ или ПОЛОСА) +
((vl-position (car WHAT) '("РИФ" "РИФ.")) ;_Сталь листовая
(setq L (vl-string-translate "X" "Х" (car(str-str-lst (cadr what) " ")))) ;;;_ Заменяем английское X на русское Х на у первых символов до пробела
(setq L (str-str-lst L "Х"))

;;;Диаметр - большее число, толщина - меньнее
(setq L (mapcar 'atof L))
(setq Sh (apply 'max L) ;_ ширина
kF (apply 'min L) ;_ толщина
)
(setq L (find-prokat-ves "Р" (itoa (fix kF)) obz))
(if (= (length L) 1)
;;;Нашли вес по базе
(setq ves_det_1 (* (car L) Sh Dlina 0.000001)
ves_det_all (* col ves_det_1))
;;;Вес арматуры определяем как Пи умножить на 0.5 диаметра в квадрате умножить на длину и на *STAL*
(setq ves_det_1 5 ves_det_all 5 ))


)

2. Prokat
("Р" 16 "ГОСТ 8568-77" "ЛИСТЫ СТАЛЬНЫЕ С РОМБИЧЕСКИМ РИФЛЕНИЕМ ГОСТ 8568-77*" (("3" 25.1) ("4" 33.5) ("5" 41.8) ("6" 50) ("8" 66.6) ("10" 83) ("12" 99.3)))

[dextron3]

поз. 16 у нас так обычно профлист в квадратах считается, ну как бы укрупненно, как раньше в СССР чтобы считали я не встречал.

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

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


это я дал для Spec5D, которую используют у нас частенько

[dextron3]

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

[Red Nova]

VVA, А можно меню добавить к кнопкам. Я бы сам сделал, но как-то пробовал сделать custom и сохранить, и нечего толкового не вышло (загружаю меню, а там пусто)?
Можно сделать две панели инструментов. Одну полную, со всеми кнопками, а другую тоже со всеми кнопками, только загнанными под flyout.

[VVA]

>Я с этими куями не заморачиваюсь, делаю панели в блокноте в mns файле и через _menuload импортирую. Будет время сделаю панель.

[dextron3]

VVA, помнишь лисп Spec который считал пластины
обозначенные типа: 200x150x5, соответсвтенно длина отсутствовала,
можно ли его внедрить в основной лисп к команде Spec5D, чтобы
при обнаружении госта пластины считался по формулам лиспа Spec,
ГОСТ19903-74 - этот гост,

PS Объясню почему, обычно при обозначении пластины затрагиваем сразу
две переменные, длинна и ширина, в отличие от всех других элементов
сортамента, когда это в одном тексте написано легче перебить,
а так как щас я должен сначало вбить ширину, закрыть текст,
открыть другой с длинной L= и вбить длину, время тратиться уйма.

[VVA]

Я уже это исправил. Чуть позже выложе новую версию
Думаю над чечевичным и ромбическим рифлением.

[dextron3]

VVA, я нашел баг в просчитывании пог. метров. в арматуре,
не могу понять что делаю не так, или что то в самом алгоритме,
тоесть когда погонные метры считает нужно в массе 1ед, вбивать
массу 1 п.м. арматуры, напрямую, а у вас две одинаковые цыфры
получаются, смотрите скриншо:

ЗЫ Команда Spec5D

[LSN]

Сообщение от dextron3 LSN, покажите как это будет в спецификации выглядеть, уже в автокаде скриншотом, не могу сообразить для чего лисп еще добавлять, если по марке можно вес найти..

Там просто от толщины зависит. Обозначение Риф. может быть не совсем правильное, т.к. в ГОСТе два наименования таких листов.

[dextron3]

LSN, нажми расширенный режим управление вложениями и загрузи картинку, а не напрямую через тег

[Red Nova]

Если кто-то будет добавлять в базу данных профили, то прошу выкладывать и сопровождающий файл пример (добавленные строчки к файлу от VVA), Так больше шансов что про это узнают.
dextron3, Это я по поводу твоей добавки вспомнил.
VVA, Прошу полезные добавки в сортамент от других пользователей добавлять в свой файл, чтобы при следующем обновлении ничего не потерять. (И файл примера тоже прошу пополнять этими возможностями, ведь про возможные функции пользователь в первую очередь именно из файла примера узнает)

[KAI]

Я с этими куями не заморачиваюсь

Классно! И по (бело)русски!
А еще лучше не в mns а в mnu.

[VVA]

> Red Nova #296 Я так и делаю. Пока добавки dextrona не смотрел, но уголки равнополочные и не равнополочные добавил тоже. Потом сравню.
Придумал как различать ромбическое и чечевичное рифление по ГОСТ 8568-77, а заодно листы просечно-вытяжные по ТУ 36.26.11.-5.89, Дюбели-шпильки распорные строительно-монтажные ГОСТ 28457-90. Пока беру паузу на отладку кода.

[dextron3]

VVA, а для болтов, гаек и шайб, чтонибудь придумали?

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

[VVA]

Следующая версия. Про кое-какие улучшения рассказал в redme.txt.
Распознает листы по ГОСТ 8568-77 с ромбическим или чечевичным рифлением, для ГОСТ 24045-94 распознает погонные или квадратные метры, для ГОСТ 19425-74 отличает Швеллер 20С от Двутавра 20С
Придумал как распознавать БОЛТЫ по ГОСТ 7798-70. Пару примеров внес в базу, окончательное наполнение по образу и подобию за dextron3