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

Вернуться   Форум 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.
Просмотров: 196211
 
Непрочитано 22.09.2014, 12:17
#621
sdv79

Инженер ЭОМ
 
Регистрация: 05.03.2009
Москва
Сообщений: 215
Отправить сообщение для sdv79 с помощью Skype™


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

Последний раз редактировалось sdv79, 22.09.2014 в 13:20.
sdv79 вне форума  
 
Непрочитано 23.09.2014, 03:40
#622
skkkk


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


О каком именно коде идет речь? И как подсвечивать? Пунктиром? Цветом? Пунктиром слагаемые, вроде, и так подсвечиваются.
skkkk вне форума  
 
Непрочитано 23.09.2014, 10:18
#623
sdv79

Инженер ЭОМ
 
Регистрация: 05.03.2009
Москва
Сообщений: 215
Отправить сообщение для sdv79 с помощью Skype™


Копировал из шапки http://forum.dwg.ru/showpost.php?p=359575&postcount=564, sumT.rar. Если есть другие варианты или кто то поддерживает актуальную версию, дайте ссылку.
Не принципиально как подсвечивать, главное видно. Подсветку или временная рамка до регенерации/кнопка esc/повтор команды, осуществить после расчета, дабы видеть выбранный результат, в качестве проверки знать что не упустил.
sdv79 вне форума  
 
Непрочитано 20.08.2015, 10:49
#624
Gvion-pin


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


Привет всем. У меня проблема решил в файл prokat.ves добавить ГОСТ 8645-68 проката трубы прямоугольной, а макрос продолжать считать по формуле.
Я не против его расчетов, если бы они соответствовали ГОСТу, как заставить макрос взять из базы веса стандарта?
Gvion-pin вне форума  
 
Непрочитано 20.08.2015, 10:58
#625
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Gvion-pin, чего-чего?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 20.08.2015, 11:23
#626
Gvion-pin


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


Речь идет про макрос sumT
Изменил в файле prokat.ves строчку "("П" 18 "ГОСТ 8645-68;ГОСТ 8645-68" "Вст3кп2" "Трубы стальные прямоугольные по ГОСТ 8645-68" (("15х10х1" 0.348)........))"

Но макрос все равно считает сам по формуле, и получается результат не корректный(((((
Вложения
Тип файла: rar prokat.rar (14.6 Кб, 50 просмотров)
Gvion-pin вне форума  
 
Непрочитано 21.08.2015, 09:20
#627
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Gvion-pin,
Цитата:
Сообщение от Gvion-pin Посмотреть сообщение
Речь идет про макрос sumT
А где ссылка на "макрос"? Или ты предлагаешь рыскать по всему форуму (допускаю, что не только по этому форуму), чтобы его найти?
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 21.08.2015, 10:47
#628
Gvion-pin


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




Этот макрос в шапке темы вот по этому не подумал выложить отдельно((((

вот ссылка на макрос http://forum.dwg.ru/showpost.php?p=359575&postcount=564
Gvion-pin вне форума  
 
Непрочитано 16.05.2016, 12:44
#629
Franco13


 
Регистрация: 11.08.2007
Москва
Сообщений: 48


Подскажите по макросу SumT.
Вопрос по подсчету массы арматуры.
В файле prokat.ves есть базы арматуры с весами. В строках спецификации, которые не попадают в значения базы или с другим обозначением, масса арматуры считается по формуле. В формуле используется значение пи, которое принимается равным 3,14. Можно ли както изменить значение пи, т.к. корректный вес получается при пи=3,14159. Пробовал менять в лиспе sumt.lsp "pi" на "3,14159" - результата нет.

Сейчас посмотрел - лисп автоматически округляет значения пи до 2-х знаков. Как снять это округление - не знаю.

Последний раз редактировалось Franco13, 16.05.2016 в 13:49. Причина: Потестировал варианты
Franco13 вне форума  
 
Непрочитано 16.05.2016, 13:36
#630
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Вообще-то в lisp'e pi - константа.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 16.05.2016, 14:46
#631
Franco13


 
Регистрация: 11.08.2007
Москва
Сообщений: 48


Я ошибся, лисп все считает точно, дело в округлении линейной массы арматуры.
Код:
[Выделить все]
          (setq Errcod 4 ves_det_1 (* pi 0.25 Diam Diam DLN *STAL*)
             ves_det_1   (if (_get_sumT_Ves1)(atof(rtos ves_det_1 2 (_get_sumT_Okr))) ves_det_1)
             ves_det_all (* count ves_det_1))
Тогда возникает вопрос:
Можно ли в формуле округлить это значение до трех знаков - pi 0.25 Diam Diam *STAL*, и затем умножить на DLN.
Franco13 вне форума  
 
Непрочитано 16.05.2016, 14:55
#632
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


См.справку по rtos
И на форуме (кажется, в "Готовых программах" был код по правильному округлению значений.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 16.05.2016, 15:49
#633
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Franco13 Посмотреть сообщение
Я ошибся, лисп все считает точно, дело в округлении линейной массы арматуры
Задай с помощью команды sumTSet требуемую точность
Цитата:
sumTSet - установки округления и высоты новых текстов
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 16.05.2016, 15:59
#634
Franco13


 
Регистрация: 11.08.2007
Москва
Сообщений: 48


Цитата:
Сообщение от VVA Посмотреть сообщение
Задай с помощью команды sumTSet требуемую точность
Нет, это я конечно знаю, что с помощью этой команды я могу округлять массу единицы и общую массу.
Мне нужно, чтобы в этой формуле (* pi 0.25 Diam Diam DLN *STAL*) произведение ( pi 0.25 Diam Diam *STAL*) всегда округлялось до трех знаков (независимо от команды sumTSet) - это будет линейная масса которая будет совпадать со значениями ГОСТа.
Franco13 вне форума  
 
Непрочитано 16.05.2016, 18:24
#635
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Franco13 Посмотреть сообщение
в этой формуле (* pi 0.25 Diam Diam DLN *STAL*) произведение ( pi 0.25 Diam Diam *STAL*) всегда округлялось до трех знаков (независимо от команды sumTSet) -
Цитата:
Сообщение от Franco13 Посмотреть сообщение
Можно ли в формуле округлить это значение до трех знаков - pi 0.25 Diam Diam *STAL*, и затем умножить на DLN.
Если я правильно понял, то замени
Код:
[Выделить все]
(* pi 0.25 Diam Diam DLN *STAL*)
на
Код:
[Выделить все]
(* (atof(rtos (* pi 0.25 Diam Diam *STAL*) 2 3)) DLN)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 16.05.2016, 20:59
#636
Franco13


 
Регистрация: 11.08.2007
Москва
Сообщений: 48


Не получается, пробовал разные варианты. Почему то в результатах ставит прочерки.
Franco13 вне форума  
 
Непрочитано 17.05.2016, 14:05
#637
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от Franco13 Посмотреть сообщение
Не получается
Нужен код или ссылка на пост, где он опубликован и dwg файл с примером
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 17.05.2016, 15:51
#638
Franco13


 
Регистрация: 11.08.2007
Москва
Сообщений: 48


VVA, макрос в посте #564 (без сварки).
Пример файла ниже.
Вложения
Тип файла: dwg
DWG 2010
Пример.dwg (175.6 Кб, 37 просмотров)
Franco13 вне форума  
 
Непрочитано 20.05.2016, 03:35
#639
gomer

строю, ломаю
 
Регистрация: 03.04.2008
Украина
Сообщений: 5,515


Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Вообще-то в lisp'e pi - константа.
вообще-то это не так
(setq pi 4) прекрасно работает
gomer вне форума  
 
Непрочитано 20.05.2016, 08:03
#640
Franco13


 
Регистрация: 11.08.2007
Москва
Сообщений: 48


Решил проблему немного по другому.
Поменял в базе данных prokat.ves строку, добавил промежуточные диаметры, поставил обозначение 1, 2.
Спасибо за лисп.
Franco13 вне форума  
Ответ
Вернуться   Форум 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