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

Вернуться   Форум 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
 
Непрочитано 12.03.2008, 20:36
#181
VVA

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


Черновой вариант готов пока для спецификации КЖ. Есть возможность выбирать или 4 столбца (Обозначение Наименование Кол. Масса ед.кг)
или 3 (Наименование Кол. Масса ед.кг). Причем если выбираются 4 столбца, то не все строчки могут быть заполнены в графе "Обозначение".
Принцип такой:
если в графе "Обозначение" есть текст, то ГОСТ профиля берется из графы "Обозначение", иначе из графы "Наименование".
В общем сейчас без разницы, кто и как трактует ГОСТ на спецификации.
У кого требуют, тот пишет двухэтажные тексты, не требют - разносит по графам "Обозначение" и "Наименование". Пока не доконца понял с погонными метрами. Но это завтра. Если успею причесать, то завтра выложу пробную версию.
PS При навигации буду ориентироваться на зажженные факелы
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 12.03.2008, 21:20
#182
Diman111

промышл проектант
 
Регистрация: 26.05.2005
Изовсехщелей
Сообщений: 323


2VVA
а каким образом должен быть записан 2-х этажный текст?
простыми текстами в 2 этажа или 1 мтекстом?
Diman111 вне форума  
 
Непрочитано 12.03.2008, 22:09
#183
dextron3

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


VVA,
если (м.п.) то считается для 1000мм или для одного метра,ъ
по идеи можно писать просто L=1000мм, тоесть одно и тоже

а п.м. это традиция, ....

PS, а про болтики, гаечки и шайбочки никто не забыл?
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 12.03.2008, 22:20
#184
dextron3

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


Diman111, про М текст не напоминай,
м-текстами только бабушки проектировщицы пользуются

PS
ты пробовал в М-тексте лист общих данных набросать,
я пробовал поэтому М-текст вызывает оотварщение
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 12.03.2008, 22:24
#185
nikе

конструктор Лего
 
Регистрация: 21.10.2005
Краснодар
Сообщений: 204


Лучше в качестве базы использовать файл MtlProfiles.mdb из ProjectStudio CS. А диалоги написать на VC++.??
nikе вне форума  
 
Непрочитано 12.03.2008, 22:27
#186
nikе

конструктор Лего
 
Регистрация: 21.10.2005
Краснодар
Сообщений: 204


А текст спецификации удобнее оформить в виде блока с расширенными данными, для автоматизации составления ведомости расхода стали.И естественно текст-блок редактировать с помощью такой же программки.
nikе вне форума  
 
Непрочитано 13.03.2008, 11:13
#187
VetalBY


 
Регистрация: 16.05.2005
г. Минск
Сообщений: 276


Цитата:
Сообщение от Red Nova Посмотреть сообщение
Кроме того лисп и в правду станет уникальным, так как двустрочный вариант есть в VetCAD
В VetCAD++ возможен вариант и двустрочный и однострочный - все зависит от того как настроены базы. В инет я выложил вариант двустрочный, так как мы его пользуем. Перенастроить самому не проблема. Надо в папке DB в файле Прокат.txt заменить строки типа
/[№ПРОФИЛЯ]$ $[ГОСТ]
на
L$[№ПРОФИЛЯ]$ $[ГОСТ]
это вариант с префиксом для уголка
ширины столбцов тоже настраиваются

Цитата:
Сообщение от Red Nova Посмотреть сообщение
Что мне не нравится в VetCAD это то что там строчки загнаны в блоки. Чтобы просуммировать массу нескольких строчек надо по очереди на них тыкать.
а что мешает их (блоки) выделить рамкой?
VetalBY вне форума  
 
Непрочитано 13.03.2008, 11:42
#188
VVA

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


>nike Это уже сделано. Vetcad называется.
У кого есть ProjectStudio CS. Поделитесь здесь файликом MtlProfiles.mdb. Посмотреть хочется.
Цитата:
а каким образом должен быть записан 2-х этажный текст?
простыми текстами в 2 этажа или 1 мтекстом
1 мтекстом. как во вложении
По поводу погонных метров: там всегда есть строка L=ЧИСЛО п.м. (м.п.)?
Вложения
Тип файла: dwg
DWG 2004
Спецификация КЖ.dwg (38.4 Кб, 2414 просмотров)
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 13.03.2008, 11:46
#189
dextron3

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


Код:
[Выделить все]
По поводу погонных метров: там всегда есть строка L=ЧИСЛО п.м. (м.п.)?
нет просто (м.п.) без ничего
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 13.03.2008, 11:57
#190
dextron3

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


Вот файл из проджект студио
чтото я не понял как им пользоваться,
Вложения
Тип файла: rar MtlProfiles.rar (183.3 Кб, 145 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 13.03.2008, 14:06
#191
nikе

конструктор Лего
 
Регистрация: 21.10.2005
Краснодар
Сообщений: 204


MtlProfiles.mdb из ProjectStudio CS это файл базы данных MS ACCESS. В ProjectStudio есть еще и др. файлы, например с арматурой. Где то на форумах встречал библиотеки lisp для работы с базами данных через ADO. Но диалог по чтению и выбору сортамента из баз данных наверно легче будет написать на VC++ используя классы ADO. Хочется самому такое написать, но я только учусь этому С++. Для Брикса давно писал на чистом лиспе программу по заполнению спецификаций, используя VetCADовские текстовые базы данных. Теперь хочется переделать немного, диалог переписать на arx, т.к. ребята из Bricsys полностью заменили движок DCL (теперь эти DCL диалоги стали растягивающимися).
nikе вне форума  
 
Автор темы   Непрочитано 13.03.2008, 19:36
#192
Red Nova

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


VetalBY Надо-же сам автор мне ответил. Первый плюс от перемещения форума в раздел программирование . Мда признаюсь, что пробовал только "синий" выбор, тогда не получалось, а с "зеленным" получилось.
Цитата:
Перенастроить самому не проблема. Надо в папке DB в файле Прокат.txt заменить строки типа
/[№ПРОФИЛЯ]$ $[ГОСТ]
на
L$[№ПРОФИЛЯ]$ $[ГОСТ]
Хорошо, что настроить можно. За подсказку спасибо. А почему ты эту возможность не сделал более доступной. Было бы удобнее если бы эта возможность была в настройках. (ИМХО смо сбой)

Последний раз редактировалось Red Nova, 13.03.2008 в 20:22.
Red Nova вне форума  
 
Автор темы   Непрочитано 13.03.2008, 23:00
#193
Red Nova

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


VVA, Гост это конечно нужно. Но не забывай пожалуйста что весь разговор начался с ТЗ с использованием СПДС шрифта, очень надеюсь что я и этот “неправильный” вариант спецификации дождусь с профилями. Напомню для работы на моем предприятии мне надо только уголки, трубы, да двутавры и швеллера с уклонными полками, все как в самом первом ТЗ, только вместо приближенных формул для труб и уголков можно прицепить сортамент. Может я и перейду на гост, но пока что мне очень хочется наконец попользоваться моим вариантом SPEC в полную силу. А то получается что арматуру и листы я моги считать а профили нет (прямо слюнки текут). Прошу не забудь про меня. А то форум плавно повернулся в сторону госта, а мой первоначальный вопрос так и не решился. Мда.
Red Nova вне форума  
 
Непрочитано 14.03.2008, 09:44
#194
VVA

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


При разборе "Наименования" используется следующий алгоритм:
1. Текст из "Наименования" разбивается на 2. Признактм разбития служит 1-я цифра.
2. Если текст начинается с UNIKOD символов (\U+), то п.1 выполняется с 8 символа, пропуская \U+XXXX
1-я часть текста (та что до цифры) и служит признаком профиля
Для строки "Двутавр 20Б1" это будет "ДВУТАВР"
Для строки "\U+E725" (швеллер по шрифту CS) - "\U+E725"
Вот пример "разбора"
Код:
[Выделить все]
 
;;;======= ШВЕЛЛЕР + 
                   ((vl-position (car WHAT) '("ШВЕЛЛЕР" "ШВЕЛЕР" "[" "\U+E725")) ;_Швеллер
Я даже добавил слово "ШВЕЛЕР", мало ли кто ошибется
Это я к тому, что признаком проката в тексте из столбца "Наименование" может быть и "Мама мыла раму". Нужно только ее добавить в список.
Сейчас очень большая загрузка по работе, поэтому ни вчера, ни сегодня продолжить ее не смогу. Попробую выкроить часик-другой на выходных, но не обещаю.
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 14.03.2008, 09:54
#195
Павлов Андрей

Инженер-строитель
 
Регистрация: 27.05.2004
Республика Беларусь
Сообщений: 67


Здравствуйте .
Задумки и реализация в пограмме очень понравились , хоть и не по ГОСТ , но позволяет считать спецификации . Только , я думаю , свести это в конечном счете в техническую спецификацию стали придется все-равно "ручками" . Или у кого-нибудь есть задумки ,как автоматизировать создание ТСС ? Пока сам пользуюсь вариантом вставки таблиц EXCEL в пространство модели (в модели тормозит меньше) , как OLE-объект , сохраняя связь с EXCEL . В excel подключаю внешний сортамент , сортирую данные по строкам и колонкам и в конечном итоге получаю полуавтоматически ТСС .
__________________
Andrey
Павлов Андрей вне форума  
 
Непрочитано 14.03.2008, 10:01
#196
VetalBY


 
Регистрация: 16.05.2005
г. Минск
Сообщений: 276


Цитата:
Сообщение от Red Nova Посмотреть сообщение
Хорошо, что настроить можно. За подсказку спасибо. А почему ты эту возможность не сделал более доступной. Было бы удобнее если бы эта возможность была в настройках. (ИМХО смо сбой)
То, что удобно, не всегда универсально к сожалению.
Сделал так и пока не пожалел. Эта строка отвечает за формирование "наименования". Пользователь сам может настроить так, как ему надо - с ГОСТом или без, в 2 строки или одну, префикс для профилей под используемый шрифт и т. д. И не так уж это сложно (в хелпе описано).
VetalBY вне форума  
 
Непрочитано 14.03.2008, 10:17
#197
dextron3

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


VVA, будем ждать, проектирование в городе остановилось
все ждем лиспа
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 14.03.2008, 11:06
#198
VetalBY


 
Регистрация: 16.05.2005
г. Минск
Сообщений: 276


Цитата:
Сообщение от Павлов Андрей Посмотреть сообщение
Или у кого-нибудь есть задумки ,как автоматизировать создание ТСС ?
В VetCAD++ будет ТСС. Уже кое-что сделано в этом направлении и работает. Пока делается для РБ (по СТБ 21.504-2005). Но в бесплатный пакет она полностью не войдет и когда выйдет в свет, сказать не могу пока...
VetalBY вне форума  
 
Непрочитано 19.03.2008, 12:54
#199
VVA

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


Ну вот я и объявился снова

Пример команд SpecKM и SpecKG.

Попытался сделать универсально. Для определения типа проката можно пользоваться шрифтами (типа CS_gost), можно писать буквами, можно писать двухэтажные тексты, можно однострочные, разнося обозначение и наименование по разным столбцам.

Обе команды требуют выбора 3-х столбцов, позиции Массы ед и Массы всего задаются рамкой любой ячейки.

Во вложении лисп, пример dwg и необходимые шрифты. Если двухэтажный текст вылезет за пределы - не обращать внимания, просто нет нужных шрифтов.

Файл prokat.ves должен находится в путях поиска автокада.
Вложения
Тип файла: rar sumTv2.rar (259.5 Кб, 162 просмотров)
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 19.03.2008 в 14:07.
VVA вне форума  
 
Непрочитано 19.03.2008, 16:25
#200
dextron3

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


с арматурой что то не в порядке
Миниатюры
Нажмите на изображение для увеличения
Название: Snap3.jpg
Просмотров: 165
Размер:	27.2 Кб
ID:	4446  
__________________
инженер проектировшик с опттом программа авто гад образование высшие
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