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

Вернуться   Форум 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.
Просмотров: 196238
 
Автор темы   Непрочитано 10.04.2008, 12:43
#361
Red Nova

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


dextron3, Подождем пока комменария от VVA.
По поводу #356. Спасибо, что выложил.
В файле word, там в последнем столбе это что, длина рулона? (1000,1500...)?
У тебя есть ссылка на калькулятор, которую я просил ранее?
Red Nova вне форума  
 
Непрочитано 12.04.2008, 17:54
#362
dextron3

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


Вот разобрался вид записи листов для чечевичного и ромбического рифления, для Spec5D

см. скриншот

PS я тут подумал может и рабицу таким же образом забить,
вот сижу жду от VVA указаний...
Изображения
Тип файла: jpg Snap1.jpg (14.9 Кб, 711 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 12.04.2008, 20:33
#363
Red Nova

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


Вот цитата из ГОСТА

Цитата:
Лист горячекатаный из стали марки ВСт3сп по ГОСТ 380—71 с односторонним ромбическим рифлением размером 3,0х1000х Х2000 мм, улучшенной плоскостности с катаной кромкой:

Лист ромб К-ПУ-3,0х1000х2000 БСтЗсп ГОСТ 8508—77

То же, с чечевичным односторонним рифлением:

Лист чечевица К-ПУ-3,0х1000х2000 БСтЗсп ГОСТ 8568—77

Рулонная горячекатаная сталь марки БСтЗсп по ГОСТ 380—71 с односторонним ромбическим рифлением размером 3,0х1000 мм, с катаной кроткой:

Рулон ромб К—3,0Х1000 БСтЗсп ГОСТ 8568—77

То же, с чечевичным односторонним рифлением:

Рулон чечевица К—3,0х1000 БСтЗсп ГОСТ 8568—77.
Вложения
Тип файла: rar gost_8568_77.rar (8.0 Кб, 146 просмотров)
Red Nova вне форума  
 
Непрочитано 12.04.2008, 20:41
#364
dextron3

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


Вот сетка рабица для базы но почемуто лисп не считает,

;;; =============== Сетка "Рабица" ГОСТ 5336-80 ====================

("Ромб." 40 "ГОСТ 5336-80;ГОСТ 5336-80&Ромб." "Сетка Рабица ГОСТ 5336-80" (("5х5%%c1.4" 4.52) ("6х6%%c1.4" 3.73) ("8х8%%c1.4" 2.78) ("8х8%%c1.6" 3.8) ("8х8%%c1.8" 3.8) ("10х10%%c1.4" 2.2) ("10х10%%c1.6" 3.0) ("10х10%%c1.8" 3.0) ("12х12%%c1.6" 2.48) ("12х12%%c1.8" 3.24) ("15х15%%c1.8" 2.57) ("15х15%%c2" 3.25)))

("Квадр." 41 "ГОСТ 5336-80;ГОСТ 5336-80&Квадр." "Сетка Рабица ГОСТ 5336-80" (("15х15%%c2.5" 3.6) ("25х25%%c2.5" 2.15) ("25х25%%c3" 3.36) ("35х35%%c2.5" 1.56) ("35х35%%c3" 2.44) ("45х45%%c3" 1.87) ("45х45%%c4" 2.7) ("50х50%%c4" 2.42) ("60х60%%c4" 2.0) ("80х80%%c5" 2.76) ("100х100%%c6" 3.4)))
__________________
инженер проектировшик с опттом программа авто гад образование высшие

Последний раз редактировалось dextron3, 12.04.2008 в 20:53.
dextron3 вне форума  
 
Непрочитано 13.04.2008, 22:36
#365
dextron3

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


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

спасибо
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 14.04.2008, 11:50
#366
VVA

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


Цитата:
Вот разобрался вид записи листов для чечевичного и ромбического рифления, для Spec5D
Для всех команд SPECXX выполняется один и тот же код. Разница только в формировании для этого кода массивов Обозначение, Наименований, Длин, Количеств и т.д. Поэтому примеры для команды Spec5 справедливы для всех команд. В файле Спецификация.dwg пример записи приведен.
Добавлен ГОСТ на сетку рабицу. Пример записи приведен в файле, см. также сам ГОСТ СЕТКИ СТАЛЬНЫЕ ПЛЕТЕНЫЕ ОДИНАРНЫЕ (ГОСТ 5336-80)
По поводу обнуления гиперссылок набери в командной строке _all или сделай кнопку ^C^CHYPD;_all;
Позже отключения гиперссылок добавлю в настройку.
Добавлена сортировка по классам арматуры. Классы арматуры описываются в базе (prokat.ves) здесь
Цитата:
("КЛАССАРМАТУРЫ" 37 "NOPATTERN" "Классы арматуры" ("А240" "А300" "АС300" "А400" "А600" "А800" "А1000" "А-III" "АIII" "А-II" "АII" "А-IV" "А-I" "АI" "Вр-I" "S240" "S400" "S500" "S800"))
Прокат сотритуется по ГОСТУ проката (не стали). Листы объединяются по их толщине.
*** Обновление от 15.04.2008
Изменения в коде, касающиеся выборки болтов, анализ выбранных столбцов в Spec5D, изменения в базе записи классов арматуры
Вложения
Тип файла: rar sumTV7.rar (370.4 Кб, 157 просмотров)
__________________
Как использовать код на Лиспе читаем здесь

Последний раз редактировалось VVA, 15.04.2008 в 18:41.
VVA вне форума  
 
Непрочитано 14.04.2008, 14:25
#367
dextron3

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


VVA, а для Spec5D как выглядить обозначение болта гайки и шайбы?

большое спасибо
__________________
инженер проектировшик с опттом программа авто гад образование высшие

Последний раз редактировалось dextron3, 14.04.2008 в 14:39.
dextron3 вне форума  
 
Непрочитано 14.04.2008, 16:48
#368
VVA

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


Цитата:
Поэтому примеры для команды Spec5 справедливы для всех команд. В файле Спецификация.dwg пример записи приведен.
Открой Спецификация.dwg и посмотри запись для SPEC5
Забыл совсем сказать, для Spec5D добавил обработку пропущенных количества, длины, но только чего-то одного. Пример в файле Спецификация.dwg для Spec5D
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 14.04.2008, 17:36
#369
Red Nova

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


Ура! VVA вернулся.
Прокомментируй пожалуйста #357 и #359.
Red Nova вне форума  
 
Непрочитано 14.04.2008, 18:35
#370
VVA

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


> Red Nova
по поводу #357 у меня таких багов нет, хотел анимированный gif сделать, но пока времени нет
по поводу #359 посмотри то, что уже есть. Выполни Spec5D для любой из таблицы своего ТЗ, нажми F2 и посмотри что есть. Учти только, что классов арматуры AI и AIII в базе нет, в базе они описаны как A-I и A-III
Нужно или поменять в спецификации или добавить описание в базу
Короче выполни Spec5D с учетом #366 #368. Вот мой листинг
Цитата:
============= ИТОГ РАБОТЫ ==============
Класс : Прокат
СТО АСЧМ 20-93
Двутавр 20К2 - 83.82 кг.
-------------------------------------------------
ГОСТ 10704-91
Труба круглая 60х4 - 48.76 кг.
Труба круглая 50х2 - 9.48 кг.
-------------------------------------------------
ГОСТ 8509-93
Уголок 75Х75Х6 - 66.0 кг.
Уголок 50Х50Х5 - 113.12 кг.
-------------------------------------------------
ГОСТ 19903-74
Лист 8 - 75.34 кг.
Лист 10 - 106.78 кг.
-------------------------------------------------
Класс : Арматура АI
ГОСТ 5781-82
Арматура 10 - 17.3 кг.
Арматура 6 - 10.55 кг.
Арматура 12 - 52.44 кг.
Арматура 8 - 0.89 кг.
Арматура 16 - 64.78 кг.
Арматура 20 - 67.2 кг.
-------------------------------------------------
Класс : Арматура ВР-I
ГОСТ 5781-82
Арматура 10 - 1.55 кг.
Арматура 8 - 11.4 кг.
Арматура 6 - 2.96 кг.
-------------------------------------------------
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 14.04.2008, 19:29
#371
dextron3

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


VVA, все равно с болтами не получается, может что то делаю не так?

Red Nova, а как ты записываешь болты для Spec5D?
Миниатюры
Нажмите на изображение для увеличения
Название: Snap1.jpg
Просмотров: 124
Размер:	31.5 Кб
ID:	5403  
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 14.04.2008, 19:45
#372
dextron3

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


VVA, почему А-III не считает? приписывает к А-I
Миниатюры
Нажмите на изображение для увеличения
Название: Snap2.jpg
Просмотров: 144
Размер:	10.7 Кб
ID:	5405  
Вложения
Тип файла: dwg
DWG 2004
Пример.dwg (257.1 Кб, 2095 просмотров)
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 14.04.2008, 20:43
#373
Red Nova

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


dextron3, А я пока болты не считал
Red Nova вне форума  
 
Автор темы   Непрочитано 14.04.2008, 22:35
#374
Red Nova

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


VVA,
1. По поводу Erevan-Moscow (к стати по английский Yerevan).
Про баг на рабочем компе я уже говорил.
Пробую дома, вообще не работает.

Цитата:
Command:
Command: erevan

Select objects: Specify opposite corner: 2 found

Select objects:
; error: no function definition: VLAX-ENAME->VLA-OBJECT

Command:
Вот.
А текст простой. И лисп без изменений, как ты выложил.

2. По поводу V7
Возникли некоторые вопросы. Поскольку примера нету, я сам попытался из примера для SPEC5D, переделать в SPEC5. Получилось вот что. (На чертеже А, В)

3. Спасибо за добавленную возможность избежать текста с прочерком.
Единственный вопрос тут в том, что для этого варианта обязателен ГОСТ, хотя для обычного варианта считает и так. Можно ли это добавить и без ГОСТА вариант?

4. По поводу ведомости расхода стали.
Конечно же это очень хорошая функция, когда в командной строке виден вес, но это в конечном итоге должно быть на чертеже. Предложенный мною вариант конечно же сложный, но если бы что-то подобное работало, то польза неоценимая. Если я чересчур усложнил задачу, то может подумаем про корректировку?
Вложения
Тип файла: rar Questions.rar (39.1 Кб, 117 просмотров)

Последний раз редактировалось Red Nova, 14.04.2008 в 22:56.
Red Nova вне форума  
 
Автор темы   Непрочитано 14.04.2008, 22:55
#375
Red Nova

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


VVA, Off Top.
У тебя в размерном стиле текст имеет маску.
Поделись пожалста где надо настройку дернуть.
Red Nova вне форума  
 
Непрочитано 15.04.2008, 11:43
#376
Рин

Проектируем
 
Регистрация: 03.04.2008
Sever Kavkaza
Сообщений: 122


У меня почемуто требует установки Express Tolls
Рин вне форума  
 
Непрочитано 15.04.2008, 15:49
#377
dextron3

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


я кажется понял в чем ошибка, в лиспе

тоесть когда A-III, лисп доходит до A-I и дальше не проверят, так как сразу перессылка идет,
соответсвенно и с A-II такая же ситуация

(но это только мои догадки, но все остальные марки определяет)

проблему решил поменяв базе строчку на эту

Код:
[Выделить все]
("КЛАССАРМАТУРЫ" 37 "NOPATTERN" "Классы арматуры" ("А240" "А300" "АС300" "А400" "А600" "А-III" "А-II" "А-IV" "А800" "А1000" "А-I" "Вр-I" "S240" "S400" "S500" "S800"))
обратите внимание на расположение классов А-III, А-II, А-I теперь они в обратном порядке,....


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

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

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


>Red Nova #374
1. Добавь в начало (vl-load-com)
2. Пока не смотрел
3. Думаю как сделать
4. Если то, что выводит в командную строчку правильно, то вывести в таблицу это дело техники.

>Рин Да, установи сейчас, не пожалеешь в будущем. Там используются некоторые функции Express Tools
>dextron #377 Молодца, проблема именно в этом. В программе идет поиск на вхождение подстроки в строку, естественно A-I как часть входит в A-III. Решается так, как ты и сделал. Вообще у нас (в Белоруссии) уже перешли на классы A240, A400,S240,S400
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 15.04.2008, 17:00
#379
dextron3

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


VVA, пока вы не ушли дайте мне правильное согласно
правилам обозначения для Spec5D: болтов, гаек и шайб,
с длинной L=? для болтов.

PS Вы получили в личку задачку по сортировке?

PS2
тоесть:
A240----A-I
A400----A-II
S240----A-III
S400----A-IV

Объясните для чего был сдлеан переход,
и какую функциаональность он несет,...
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Автор темы   Непрочитано 15.04.2008, 17:19
#380
Red Nova

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


VVA,
1. Добавил (vl-load-com), лисп заработал, но на домашнем компьютере тоже спец символы СПДС переводятся как вопросы
2. --------
3. --------
4. Я особо не проверял, (тут больше dextron3 в курсе) но вроде как все делом, если вывести это в таблицу и в правду дело техники, то жду с нетерпением.

Прокомментируй пожалуйста #375.
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