Как сосчитать сумму цифр из отдельных мтекстов (и лисп для подсчета спецификаций) - Страница 16
Реклама i
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

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

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

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

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

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

Последний раз редактировалось Red Nova, 13.03.2009 в 10:11.
Просмотров: 203887
 
Непрочитано 03.04.2008, 19:38
#301
VVA

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


>LSN #294 В твоей записи посчитает как ромбическое рифление. Можно писать как в ГОСТе, распознает. Принцип поиска такой: если в названии есть *чечев*, то чечевичное рифление, иначе ромбическое.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 03.04.2008, 21:20
#302
dextron3

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


VVA, спасибо!!!
Буду завтра с утра пополнять базу, постараюсь самые ходовые, а то около 1000 разновидностей

Для гаек и шайбочек строчку, забыли добавить...(там не как у всех профилей там 4 текста, поэтому)
так сказать с примером для того чтобы самостоятельно пополнить,
а то я только со Spec5D работаю


PS Сделайте кнопочку обнулятор гипрессылок, а то как то не привычно когда текст со значками, не по себе как-то
__________________
инженер проектировшик с опттом программа авто гад образование высшие

Последний раз редактировалось dextron3, 03.04.2008 в 21:29.
dextron3 вне форума  
 
Непрочитано 03.04.2008, 21:38
#303
LSN


 
Регистрация: 19.04.2007
Сообщений: 200


Спасибо большое VVA. Завтра буду тестировать.
LSN вне форума  
 
Непрочитано 03.04.2008, 22:15
#304
dextron3

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


VVA, хотел спросить, вы ничего не подумайте конечно,
можно ли с помощью данного лиспа делать выборку однотипных элементов,
и суммировать их, одновременно с просчетом спецификации, т.е.
уже не по гостам а по схожести элементов допустим всю арматуру
Ф8 с Ф8 суммирует, а уголок 63x63x6 суммирует с уголком 63x63x6,


И в итоге мы получаем такой расклад, даже можно просто
в командной строке:

***Перечень и общая масса элементов. Выборка.***


"Д" 1 "ГОСТ 26020-83;ГОСТ26020-83" "Двутавры по ГОСТ 26020-83 с параллельными гранями полок"

"12Б1" Итого: 605 кг.
"30Б1" Итого: 126 кг.



"ШВЕЛЛЕРЫ ПО ГОСТ 8240-97 С УКЛОНОМ ВНТРЕННИХ ГРАНЕЙ ПОЛОК"


"18А" Итого: 5675 кг.


"Арматура по ГОСТ 5781-82"

"8" Итого: 46456 кг.
"14" Итого: 45432 кг.
"16" Итого: 909 кг.
"25" Итого: 13445 кг.
"28" Итого: 24575 кг.
"32" Итого: 46322 кг.

***Ведомость расхода стали готова!***
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 04.04.2008, 09:29
#305
VVA

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


Цитата:
Для гаек и шайбочек строчку, забыли добавить
Над этим буду еще думать. По поводу #304 в пределах ГОСТА ничего сложного нет.
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 04.04.2008 в 09:43.
VVA вне форума  
 
Непрочитано 04.04.2008, 10:25
#306
dextron3

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


VVA, а можно базу буду для массы 1000болтов делать, а вы в лиспе коэфициент впишите 0.001, и наче сума можно сойти?

PS В сотраменте дается для тысячи болтов, тоесть мне надо все цыфры перебить
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 04.04.2008, 12:09
#307
VVA

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


>#306 Набирай
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 04.04.2008, 12:27
#308
dextron3

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


VVA, нашел баг в лиспе не считает эту разновидность:
хотя в базе есть

Код:
[Выделить все]
("Д" 3 "ГОСТ 8239-89;ГОСТ8239-89&ДВУТ" "ДВУТАВРЫ ПО ГОСТ 8239-89 С УКЛОНОМ ВНУТРЕННИХ ГРАНЕЙ ПОЛОК" (("10" 9.46)("12" 11.5)("14" 13.7)("16" 15.9)("18" 18.4)("18А" 19.9)("20" 21.0)("20А" 22.7)("22" 24.0)("22А" 25.8)("24" 27.3)("24А" 29.4)("27" 31.5)("27А" 33.9)("30" 36.5)("30А" 39.2)("33" 42.2)("36" 48.6)("40" 57.0)("45" 66.5)("50" 78.5)("55" 92.6)("60" 108.0)))

см. скриншот из твоего файла Спецификация.dwg
Изображения
Тип файла: jpg Snap1.jpg (11.1 Кб, 649 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 04.04.2008, 12:33
#309
dextron3

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


VVA, Набрал, только не спрашивайте сколько это нервных клеток истратил, и как я это сделал:


Только это все для 1000 болтов, как я и обещал
Вложения
Тип файла: rar База.rar (2.5 Кб, 119 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 04.04.2008, 14:44
#310
skkkk


 
Регистрация: 20.03.2008
Сообщений: 2,680


Можно вернуться к посту #16 данной темы? Этот лисп у меня не работает с мтекстами с измененными свойствами (курсив, жирный, другой стиль текста). Такие измененные мтексты он принимает за ноль. Подскажите пожалуйста, что же делать? И еще как сделать, чтоб он писал в ответе два знака после запятой? У меня 2008 КАД
skkkk вне форума  
 
Непрочитано 04.04.2008, 19:23
#311
VVA

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


Цитата:
Подскажите пожалуйста, что же делать? И еще как сделать, чтоб он писал в ответе два знака после запятой?
У нас сначала "Кто виноват", а уже потом "Что делать"
Вариант 1:
Скачать код с поста #300. Задать округление до 2 знаков командой SumTSet, для суммирования воспользоваться SumTE или SumTN, для округления существующих текстов воспользоваться TOKR
Вариант 2:
дополнить код из #16 функцией, убирающей форматирование mtext'a
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 04.04.2008, 19:37
#312
LSN


 
Регистрация: 19.04.2007
Сообщений: 200


Вот набил в базу болты с массой единицы.
Может понадобится?
Вложения
Тип файла: rar prokatSBoltami.rar (12.4 Кб, 111 просмотров)
LSN вне форума  
 
Непрочитано 04.04.2008, 19:54
#313
skkkk


 
Регистрация: 20.03.2008
Сообщений: 2,680


VVA, дополнить код из #16 функцией, убирающей форматирование mtext'a ....можно поподробнее на этом моменте?? И хотелось бы лисп на №16 дополнить округлением до двух знаков - очень уж он хорош и подходит для моих действий
skkkk вне форума  
 
Непрочитано 04.04.2008, 20:09
#314
skkkk


 
Регистрация: 20.03.2008
Сообщений: 2,680


VVA, если я правильно понял, Вы предлагаете вариант возвращения текста к стандартным параметрам??(дополнить код из #16 функцией, убирающей форматирование mtext'a) Но ведь мне же нужно, чтоб он был курсивом, т. е. хотелось бы чтоб лисп с #16 видел любой формат....Надеюсь, Вы это имели ввиду??
skkkk вне форума  
 
Автор темы   Непрочитано 05.04.2008, 10:56
#315
Red Nova

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


dextron3,
Цитата:
VVA, хотел спросить, вы ничего не подумайте конечно,
можно ли с помощью данного лиспа делать выборку однотипных элементов,
и суммировать их, одновременно с просчетом спецификации, т.е.
уже не по гостам а по схожести элементов допустим всю арматуру
Ф8 с Ф8 суммирует, а уголок 63x63x6 суммирует с уголком 63x63x6,
Читаешь мои мысли. Только я ждал чтобы с одним делом закончили, и потом начали с этим. А называется это ведомость стали.

P.S. А форум то разогнался. У меня один день не было доступа к инету, и столько новых сообщений. Трудно поспеть.
Red Nova вне форума  
 
Автор темы   Непрочитано 06.04.2008, 22:56
#316
Red Nova

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


Кто нибудь знает по какому госту арматура А500с и Ас1?
Red Nova вне форума  
 
Непрочитано 07.04.2008, 10:38
#317
VVA

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


Цитата:
Сообщение от skkkk Посмотреть сообщение
VVA, если я правильно понял, Вы предлагаете вариант возвращения текста к стандартным параметрам??(дополнить код из #16 функцией, убирающей форматирование mtext'a) Но ведь мне же нужно, чтоб он был курсивом, т. е. хотелось бы чтоб лисп с #16 видел любой формат....Надеюсь, Вы это имели ввиду??
Нет, я предлагаю прежде, чем перевести из текста в число, очистить его от форматирования.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 07.04.2008, 14:46
#318
Red Nova

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


VVA, Наконец нашел время и опроборовал 4-ую версию. Работал только с Spec5d. Все вопросы выкладываю в файле.
Вложения
Тип файла: dwg
DWG 2004
Вопросы.dwg (59.3 Кб, 2278 просмотров)
Red Nova вне форума  
 
Непрочитано 07.04.2008, 16:08
#319
dextron3

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


Red Nova,

1. Что такое фланец? не могу сообразить
2. На второй вопрос используй Spec5 без D
3. Про прочерк пришлось тоже его использовать или Spec5 используй
4. Про рифленый и просечной VVA выложит специально HELP,...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 07.04.2008, 16:22
#320
Red Nova

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


dextron3,
Фланец это круглый лист. В принципе по госту такого нету. По старинке привык обозначать.

Цитата:
используй Spec5 без D
Ну так нам же надо чтобы все в одном было. Не считать ведь одну спеку двумя прогами. По моему добавить эту возможность вполне реально (хотя я конечно же в программировании 0 и могу ошибаться). А пользу от этого трудно переоценить.
Red Nova вне форума  
Ответ
Вернуться   Форум 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