Реклама i
Стань нашим партнером - зарабатывай с нами!
| Правила | Регистрация | Пользователи | Сообщения за день |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций)

Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций)

Ответ
Поиск в этой теме
Непрочитано 26.01.2008, 13:15
Расчет спецификаций из мтекстов
Red Nova
 
ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Торонто
Регистрация: 23.10.2007
Сообщений: 1,980

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

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

Последний раз редактировалось Red Nova, 13.03.2009 в 10:11.
Просмотров: 197228
 
Автор темы   Непрочитано 17.04.2008, 11:21
#401
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


На работе все заработало. Подозреваю что дома я оставил путь к старому файлу базы, и по этому были глюки, вечером посмотрю.

VVA,
1.У меня есть такое предложение.
Сейчас когда округление настроено на одну цифру после запетой, то если масса одной детали меньше чем 0,04 то масса одной детали записывается как 0. А масса всех деталей уже ощутимая цифра. Так случается к примеру с болтами. Можно ли сделать так, чтобы в случае когда масса одной детали очень мала, то вместо нуля записывалась скажем 0,006, то есть охватывая первую цифру не равную нулю.
2. Предлагаю ввести новую переменную, дающую возможность изменить цвет приблизительно рассчитываемых масс с синего на белый.
3. Так и не могу разобраться с чеч. листами. Смотри что у меня получается.
Вложения
Тип файла: dwg
DWG 2004
Спецификация вопрос2.dwg (60.9 Кб, 2196 просмотров)

Последний раз редактировалось Red Nova, 17.04.2008 в 11:52.
Red Nova вне форума  
 
Автор темы   Непрочитано 28.04.2008, 21:09
#402
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


VVA
Может с переводом на другой язык как-то подругому решить вопрос? А то лиспик у меня теперь только для русских проджектов.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 29.04.2008, 09:45
#403
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,992


Давай про перевод в другой теме.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 29.04.2008, 12:58
#404
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


Зачем? Мне ведь не просто перевод нужен, а интеграция перевода в SPEC5d.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 29.04.2008, 13:07
#405
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,992


Просто пока проблемы с самим переводом. Интеграция - чисто техническая часть. Да и dextron3 что-то высказывал пожелания про казахский
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 29.04.2008, 14:18
#406
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


Чесно говоря не пойму чем тут поможет переход вопроса на другую тему. Если пока проблемы с переводом, то может с этим вопросом подождать? А проблемы какие, по части программного решения? Помнишь я предпологал, что возможно можно в лиспе создать отдельную дирректорию, где будут находится парные слова перевода (Труба=truba....), это не вариант?
Прокомментируй пожалста пост #401, первые два вопроса если хочешь можешь и пропустить, а с третим хотелось бы понать.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 29.04.2008, 15:49
#407
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,992


Цитата:
Чесно говоря не пойму чем тут поможет переход вопроса на другую тему
Один вопрос - один ответ
Про пост #401 чуть позже. Сейчас катастрофически не хватает времени
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 29.04.2008, 16:07
#408
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


Цитата:
Чуть позже, Сейчас катастрофически не хватает времени
Храшо
__________________
Блог
Red Nova вне форума  
 
Непрочитано 03.05.2008, 14:29
#409
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,992


Версия 8. Добавлена настройка разделителя дробных и целых знаков (sumTSET), в TOKR добавлен запрос подавления незначащих нулей.
По поводу #401
1. Вроде сделал
2. Пока не делал
3. Это виноват сам. Пошел на поводу типа здесь длина есть, а строчкой ниже нет. Это огрехи работы анализатора пропущенных столбцов. Вообще есть большое желание вернуть все назад. Выбрал 5D - будь добр заполни графу длина. Сейчас поправил, но в дальнейшем править анализатор пропущенных стролбцов нет желания, т.к. у нас этим не занимаются. Пишут по ГОСТ, и все работает.

*Добавлено 07.05.2008*
Добавилась сортировка, округление малых чисел (если вес одной делали меньше 100 грамм, то она округляется с точностью до 4 знаков)
Внесены изменения в prokat.ves ! Добавлен прокат марки по для сортамента по умолчанию (сейчас это "Ст3сп")
Вложения
Тип файла: rar sumTV8.rar (360.0 Кб, 185 просмотров)
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 08.05.2008 в 10:12. Причина: Болты по ГОСТ 28778-90
VVA вне форума  
 
Автор темы   Непрочитано 03.05.2008, 17:02
#410
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


Спасибо за новую версию, щас потыкаем.
Цитата:
Пишут по ГОСТ, и все работает.
Ну это конечно–же правильно, но более трудоемко, надо ведь каждый раз разбирать и собирать мтекст в две строки. Пока как понимаю большинство именно 5D предпочитают
__________________
Блог
Red Nova вне форума  
 
Непрочитано 03.05.2008, 17:21
#411
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


VVA, что то не работает с 0.0001 числами всеравно прочерк выдает при округлении 2 знака после запятой,

а попорядку по возрастанию диаметр по прежнему не сортиует =(
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 03.05.2008, 17:59
#412
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


Протестировал.
1. Про подавление нулей.
Работает не корректно. Смотри приложенный файл. Тестировал при разном округлении.

2. Про ведомость

Вот пример


Код:
[Выделить все]
============= ИТОГ РАБОТЫ ==============

Класс : Прокат
ГОСТ 8509-93
     Уголок 75Х75Х6  -  66.0 кг.
     Уголок 50Х50Х5  -  16.8 кг.
     Уголок 40Х40Х4  -  3.2 кг.
-------------------------------------------------
ГОСТ 5781-82
     Арматура 22  -  4.6 кг.
     Арматура 18  -  110.6 кг.
-------------------------------------------------

     Труба круглая 127х4  -  72.8 кг.
     Лист 16  -  16.3 кг.
     Лист 12  -  12.2 кг.
     Фланец 140х12  -  1.5 кг.
     Лист 6  -  0.2 кг.
     Труба круглая 89х4  -  66.3 кг.
     Труба круглая 60х4  -  8.4 кг.
     Лист 10  -  78.4 кг.
     Фланец 139х12  -  1.4 кг.
-------------------------------------------------
Dextron уже сказал про сортировку по порядку.
Добавлю что фланец наверное правильнее прибавить к листам той же толщины.

3.
Цитата:
в TOKR добавлен запрос подавления незначащих нулей.
я не могу понять как это работает
Вложения
Тип файла: dwg
DWG 2004
Про подавление нулей.dwg (41.7 Кб, 2193 просмотров)
__________________
Блог
Red Nova вне форума  
 
Автор темы   Непрочитано 05.05.2008, 22:41
#413
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


Думаю лисп для расчета спецификации (“Война и мир том 1”) уже можно считать практически готовым (хотя признаюсь я пока работаю со старым и так и недоделанным вариантом SPEC), Теперь хотелось бы перейти к созданию Лиспа для расчета ведомости расхода стали (можно и продолжить наш лисп), как считаете? Я как-то уже выкладывал свой вариант алгоритма, но судя по реакции (от VVA реакция вообще нулевая) мой вариант особо никого не заинтересовал. Так может вы свой вариант предложите? В любом случае считаю расчет ведомости расхода стали важным продолжением разработки SPEC. Очень надеюсь на ваш энтузиазм.

P.S. Конечный продукт должен быть в форме чертежа. Коммандная строка не совсем то.
__________________
Блог

Последний раз редактировалось Red Nova, 05.05.2008 в 22:47.
Red Nova вне форума  
 
Непрочитано 06.05.2008, 08:20
#414
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


Я лично приспособился, и создал свою ведомость расхода, и тупо копирую из командной строки и все понятно, для такой замороки как у тебя я создал две кнопки округлитель до 2 знаков и до 4х, и когда надо просто щелкаю, и все в поряде, так что смотри скриншоты:
Миниатюры
Нажмите на изображение для увеличения
Название: Snap3.jpg
Просмотров: 165
Размер:	22.8 Кб
ID:	6117  
Изображения
Тип файла: jpg Snap2.jpg (2.2 Кб, 791 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 06.05.2008, 17:56
#415
Red Nova

ՃԱՐՏԱՐԱԳԵՏ, Տ.Գ.Թ.
 
Регистрация: 23.10.2007
Торонто
Сообщений: 1,980
Отправить сообщение для Red Nova с помощью Skype™


Дык есть же по ГОСТу вариант ведомости. Хоть чуток желательно к нему приблизиться.
А копировать из ком. строки считаю лишней работой. Ведь можно это запросто автоматизировать. Не так как я предлагал, так по другому. Заработает сам ведь перейдешь на него.
__________________
Блог
Red Nova вне форума  
 
Непрочитано 07.05.2008, 17:29
#416
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,992


Обновил версию 8 в #409.
Добавилась сортировка, округление малых чисел (если вес одной делали меньше 100 грамм, то она округляется с точностью до 4 знаков)
Внесены изменения в prokat.ves ! Добавлен прокат марки по для сортамента по умолчанию (сейчас это "Ст3сп")
Цитата:
в TOKR добавлен запрос подавления незначащих нулей.
я не могу понять как это работает
Пишешь текст со значением 1.2
Вызываешь TOKR, количество знаков округления - 2 , в ответ на запрос
Подавлять замыкающие незначащие нули [Да/Нет] <Да>: один раз отвечаешь "Да", второй "Нет". Сравниваешь результат.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 07.05.2008, 18:34
#417
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


VVA, спасибо!
у меня эта команда не одеквадно себя ведет,
^C^C_HYPD;_all; _Cancel,
все объекты превращает в объекты ссылки, которые были свободны,
посоветуйте чтонибудь

По деревянной спецификации:

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

Почему нет моего обновления:

(кстати у меня чтото перестало считать, тоже не могу сообразить)

;;; =============== Болты самоанкерующиеся распорные для строительства ГОСТ 28778-90 ====================
("БОЛТ" 40 "ГОСТ 28778-90;ГОСТ28778-90" "Болты самоанкерующиеся ГОСТ 28778-90" (("М6*[ Х]65." 0.03192) ("М8*[ Х]85." 0.06092) ("М10*[ Х]100." 0.09061) ("М12*[ Х]110." 0.13402) ("М16*[ Х]150." 0.19229) ("М20*[ Х]200." 0.4569) ("М22*[ Х]250." 0.7406) ("М24*[ Х]300." 1.15952)))
__________________
инженер проектировшик с опттом программа авто гад образование высшие

Последний раз редактировалось dextron3, 07.05.2008 в 18:41.
dextron3 вне форума  
 
Непрочитано 08.05.2008, 10:04
#418
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,992


1. HYPD исключил, т.к. есть стандартная команда Автокада. После загрузки sumT.lsp нажми F2 и почитай
Кнопка такая:
^C^C_-HYPERLINK;_Remove;_All;;
2.
Цитата:
как для деревянной спецификации 100грамм учитывает, у меня не работает
А никак. Я думал щепки считать не нужно
3. Я бы базу записал так
Цитата:
;;; =============== Болты самоанкерующиеся распорные для строительства ГОСТ 28778-90 ====================
("БОЛТ" 40 "ГОСТ 28778-90;ГОСТ28778-90" "Ст3сп" "Болты самоанкерующиеся ГОСТ 28778-90" (("6Х65" 0.03192) ("8Х85" 0.06092) ("10Х100" 0.09061) ("12Х110" 0.13402) ("16Х150" 0.19229) ("20Х200" 0.4569) ("22Х250" 0.7406) ("24Х300" 1.15952)))
Вместо "Ст3сп" вбей нужную марку стали для болтов
Запись по ГОСТ 28778-90 в спецификации:
БСР 8х85 У3 ГОСТ 28778-90

** Добавлено **
Обновил #409 с примерами для болтов по ГОСТ 28778-90
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 08.05.2008 в 10:13.
VVA вне форума  
 
Непрочитано 08.05.2008, 10:17
#419
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


VVA, для спек 5D марка стали особо не нужна,

а вот про щепки не включено эт зря, мы же разносторонне развиты и КД разделы делаем

PS хотел спросить можно ли опцию добавить:

============= ИТОГ РАБОТЫ ==============

Класс : Арматура А-III
ГОСТ 5781-82
Арматура d= 12 - 20.54 кг., или Lобщ.=30м.п.
-------------------------------------------------
Класс : Арматура А-I
ГОСТ 5781-82
Арматура d= 8 - 9.16 кг., или Lобщ.=40м.п.
-------------------------------------------------
Класс : Арматура ВР-I
ГОСТ 5781-82
Арматура d= 5 - 3.54 кг., или L=общ.10м.п.

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

Буду ждать обновки...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 08.05.2008, 15:24
#420
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,143


VVA, немного подправил кнопочку
^C^C_-HYPERLINK;_Remove;All;;*;
теперь работает на ура
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций)

Размещение рекламы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сейсмозащита и сейсмоизоляция существующих, построенных зд. IANationalInformAgentstvo Прочее. Архитектура и строительство 216 20.01.2015 16:51
Предложения по расчетным моделям сооружений aldt Расчетные программы 8 06.07.2009 17:53
Мониторы LCD CRT Разное 94 17.06.2008 10:51
ЮМОР 2006 =) Perezz!! Разное 1122 04.01.2007 00:46