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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Обновление программы «Прокат» Василия Кондрата

Обновление программы «Прокат» Василия Кондрата

Ответ
Поиск в этой теме
Непрочитано 05.12.2006, 18:24
Обновление программы «Прокат» Василия Кондрата
Владимир М
 
-
 
Ухта
Регистрация: 31.07.2005
Сообщений: 381

Вот обновил базу данных проката для швеллеров и уголков *.dat; но вот в чем проблема!
Для швеллеров гнутых ГОСТ 8278-83 и уголков гнутых равнополочного ГОСТ 19771-93 и неравнополочного ГОСТ 19771-93 меняется номенклатура профиля для обычной и качественной стали, т.е к обновленной базе добавил еще дополнительную svlrgk.dat; ugrgk.dat; ugngk.dat. И поменял диалоговое окно, добавив опцию «выбор стали»
И вот не как не получается связать выбор с этими кнопками!
[ATTACH]1165331931.JPG[/ATTACH]
===
Добавлено 13.02.2009:
К сожалению, автор ветки последнее время на ней не появляется. Последняя актуальная сборка находится здесь.
Просьба разработчикам: при изменении писать мне или Солидворкеру в личку с указанием поста, где выложена сборка.
/kpblc/


Последняя работающая версия от VVA : http://forum.dwg.ru/showpost.php?p=352714&postcount=458
Версия от gomer : http://forum.dwg.ru/showpost.php?p=637272&postcount=568
Версия для BricsCAD : http://forum.dwg.ru/showpost.php?p=621028&postcount=545

При некорректной работе попробуйте совет из #777

Вложения
Тип файла: zip prokat_ru_Bricscad8-10.zip (183.6 Кб, 1060 просмотров)
Тип файла: rar Procat_N458 от 16.12.2009.rar (117.8 Кб, 1353 просмотров)
Тип файла: zip Prokat568.zip (114.5 Кб, 2003 просмотров)

__________________
Я не волшебник, я только учусь…

Последний раз редактировалось Кулик Алексей aka kpblc, 05.03.2015 в 09:02.
Просмотров: 382941
 
Непрочитано 19.12.2006, 16:25
#41
getr

Конструктор
 
Регистрация: 06.04.2005
Из тех ворот-откуда весь народ.
Сообщений: 356
<phrase 1=


->Владимиру М
http://dwg.ru/dnl/213
__________________
"Мнение не бывает ни истинным, ни ложным, а лишь полезным в жизни или бесполезным. ",- Ауробиндо
И не надо делать удивленных движений руками.
getr вне форума  
 
Непрочитано 19.12.2006, 17:01
#42
МВ


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


Господа, а на 7-й акад кто-нибудь ставил7
У меня не получилось.
МВ вне форума  
 
Непрочитано 19.12.2006, 17:05
#43
Кулик Алексей aka kpblc
Moderator

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


Кого? arx этот? И не получится - надо перекомпилировать. Без вариантов. Вопросы - к автору.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 19.12.2006, 17:05
#44
Геннадий aka PG

Машиностроение, Проектирование
 
Регистрация: 15.09.2003
Москва
Сообщений: 1,113
<phrase 1=


Цитата:
Сообщение от МВ
Господа, а на 7-й акад кто-нибудь ставил7
У меня не получилось.
Что пишет?
Если разговор не о прокате Василия, то kpЫс прав.
__________________
С уважением,
Геннадий aka PG
Геннадий aka PG вне форума  
 
Непрочитано 19.12.2006, 17:29
#45
Sleekka

-
 
Регистрация: 24.07.2005
Москва
Сообщений: 1,335


Цитата:
Нет не добавлял и считаю не везде нужно, думаю при необходимости нарисовать самому, хотя хороший вопрос. Может быть и на будущее учту.
Ну дык, удалить то всегда можно, а для нессиметричных элементов, - положение оси является параметром за которым нужно лезть в БД, так же как и за толщиной полки. Для этого программа создавалась, а уголок без осей конечно круто, но если можно то дополните пожалуйста.
Sleekka вне форума  
 
Автор темы   Непрочитано 20.12.2006, 18:46
#46
Владимир М

-
 
Регистрация: 31.07.2005
Ухта
Сообщений: 381
<phrase 1=


Могу сказать одно пишу обновление на профили стальные гнутые сварные - квадратные и прямоугольные по ГОСТ 30245-2003...
Думаю они актуальны!
__________________
Я не волшебник, я только учусь…
Владимир М вне форума  
 
Автор темы   Непрочитано 24.12.2006, 13:31
#47
Владимир М

-
 
Регистрация: 31.07.2005
Ухта
Сообщений: 381
<phrase 1=


Добавил для английских версий:
"Профиль гнутый замкнутый сварной квадратный по ГОСТ 30245-03"
"Профиль гнутый замкнутый сварной прямоугольный по ГОСТ 30245-03".
Для обновления скопируйте данные файлы и вложите их в папку prokat с заменой старых.
Рисует Прокат и Прокат3D
Пользуйтесь!
[ATTACH]1166956283.rar[/ATTACH]
__________________
Я не волшебник, я только учусь…
Владимир М вне форума  
 
Непрочитано 24.12.2006, 16:52
#48
ppv

инженер
 
Регистрация: 05.08.2006
Самара
Сообщений: 258


Ну что сказать - молодец.
Теперь для русской версии.

Нужно (если уж пошло...):
- разбить сечения по главам (плохо скакать скролом по 20-30 значениям)
- добавить
тавры
гнутосварные трубы по всем ТУ и ГОСТам
профнастил

Ну это уж так... Все равно спасибо...
ppv вне форума  
 
Непрочитано 25.12.2006, 09:11
#49
Геннадий aka PG

Машиностроение, Проектирование
 
Регистрация: 15.09.2003
Москва
Сообщений: 1,113
<phrase 1=


Цитата:
Сообщение от ppv
Нужно (если уж пошло...):
- разбить сечения по главам (плохо скакать скролом по 20-30 значениям)
- добавить
тавры
гнутосварные трубы по всем ТУ и ГОСТам
профнастил

Ну это уж так... Все равно спасибо...
А по-моему увлекаться не стоит, а то монстр получиться.
Прокат он и есть прокат, а для остального может сделать другую и назвать "гнукат" ? .
__________________
С уважением,
Геннадий aka PG
Геннадий aka PG вне форума  
 
Автор темы   Непрочитано 25.12.2006, 18:21
#50
Владимир М

-
 
Регистрация: 31.07.2005
Ухта
Сообщений: 381
<phrase 1=


Цитата:
ppv ... профнастил
Профнастил, говоришь? Это уже не прокат, а гнукат или гнулист какой-то. Согласен с Геннадий aka PG.
А ТУ уже отменен!
Ладно, квдратные по гОСТу можно и закончить, а круглые трубы нужны? Какие пишите...
__________________
Я не волшебник, я только учусь…
Владимир М вне форума  
 
Непрочитано 25.12.2006, 21:09
#51
Геннадий aka PG

Машиностроение, Проектирование
 
Регистрация: 15.09.2003
Москва
Сообщений: 1,113
<phrase 1=


Ну, уж 2 окружности нарисовать-то, я думаю, можно и без программы!
А то так докатимся, что и на обычную линию будем программы писать!
__________________
С уважением,
Геннадий aka PG
Геннадий aka PG вне форума  
 
Непрочитано 25.12.2006, 21:22
#52
Vova

Engineer
 
Регистрация: 05.09.2003
New-York
Сообщений: 10,288


Цитата:
Сообщение от Alan
Цитата:
Сообщение от Никита В.
ОФФ ТОПИК
А расскажите чего такого хорошего в программном создании профилей проката - не проше ли закатать все это в блоки и вставлять с тул палетс! :? :? :? :? :?
>Никита В.
Вы (ты?) хоть и земляк, но истина дороже!
Прикидывали сколько блоков нужно сделать для этой библиотеки, как её организовать по параметрам сечений, как оттуда их выбирать?
Или у Вас есть готовое решение? В студию!
Програмное создание (тем более вставленные элементы собираются программно же в блоки), проще, чище, оперативнее и т.д. и т.п.
ЯТД
Динамические блоки проката, которые есть в эталоне тул-палет 2006, могут ли они заменить то, что делает программа?
Vova вне форума  
 
Автор темы   Непрочитано 27.12.2006, 00:12
#53
Владимир М

-
 
Регистрация: 31.07.2005
Ухта
Сообщений: 381
<phrase 1=


Вот и русская версия последних обновлений.
Если нужна полная загляните на http://dwg.ru/dnl/1825
Желаю удачи!
[ATTACH]1167167540.rar[/ATTACH]
__________________
Я не волшебник, я только учусь…
Владимир М вне форума  
 
Автор темы   Непрочитано 30.12.2006, 00:09
#54
Владимир М

-
 
Регистрация: 31.07.2005
Ухта
Сообщений: 381
<phrase 1=


Что нужно и как сделать чтобы при повторном выборе проката оставалось предыдущее сохранение выбора элемента проката :?:
__________________
Я не волшебник, я только учусь…
Владимир М вне форума  
 
Непрочитано 30.12.2006, 02:21
#55
nikе

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


2 Владимир М
Например использовать для хранения ini файл. Такая функция есть в DOSlib, но лучше использовать чистый лисп.
Например так:
;;; INI-EDIT.LSP contains functions to create and edit
;;; Windows-Style INI files, and to retrieve data from
;;; this files.
;;;
;;; INI-EDIT is freeware by
;;; Thomas Berger
;;; imago mundi CAD Systemhaus GmbH
;;;
;;; You may use and misuse this file
;;; and the included functions as you like.
;;; You may copy and distribute this file
;;; in whole or in parts freely.
;;; No warranties of course!
;;;
;;; If you like you may send me an email and tell me where
;;; you included this functions.
;;;
;;; CIS: Thomas Berger, 100326,2312
;;; Internet: [email protected]
;;; http://ourworld.compuserve.com/homepages/imago
;;;
;;;
;;; FUNCTIONS
;;;
;;; (INI_WRITEENTRY inifile section variable value)
;;; inifile - string, a valid filename
;;; section - string, a section name ("[" and "]" brackets will be added automatically!)
;;; variable - string, a name of a variable in a INI file section
;;; value - string, the value for the variable
;;;
;;; This function creates a new or modifies an existing section entry. If the INI
;;; file does not exist it will be craeted automatically.
;;; [section]
;;; variable=value
;;;
;;; Example:
;;; (ini_writeentry "c:/test.ini" "NEWSECTION" "NEWVALUE" "100")
;;; creates a new ini file with content:
;;; [NEWSECTION]
;;; NEWVALUE=100
;;;
;;;
;;; (INI_READENTRY inifile section variable)
;;; inifile - string, a valid filename
;;; section - string, a section name ("[" and "]" brackets will be added automatically!)
;;; variable - string, a name of an variable in a INI file section
;;;
;;; This function returns the value of an existing section entry as a string:
;;;
;;; Example:
;;; (ini_readentry "c:/test.ini" "NEWSECTION" "NEWVALUE")
;;; returns "100"
;;;
;;;
;;; (INI_READSECTION inifile section)
;;; inifile - string, a valid filename
;;; section - string, a section name ("[" and "]" brackets will be added automatically!)
;;;
;;; This function returns an assoc list with all variables and values of a complete
;;; ini file section
;;;
;;; Example:
;;; (ini_readsection "c:/test.ini" "NEWSECTION")
;;; returns (("NEWVALUE" "100") ("NEXTVALUE" "SAMPLE"))
;;;
;;;
;;; (INI_READINI inifile)
;;; inifile - string, a valid filename
;;;
;;; This function returns an assoc list of the complete ini file.
;;;
;;; Example:
;;; (ini_readini "c:/test.ini")
;;; returns (("[NEWSECTION]" ("NEWVALUE" "100") ("NEXTVALUE" "SAMPLE")) ("[NEXTSECTION]" ("INIPATH" "C:\\TEST.INI")))
;;;
;;;
;;; (INI_INILINE line separator)
;;; line - a string as delivered by (read-line ..)
;;; separator - a string of a single char
;;;
;;; Example:
;;; (ini_iniline "NEWVALUE=100" "=")
;;; returns ("NEWVALUE" "100")

(defun ini_readentry (inifile section entry )
(if (and (= 'STR (type section)) (/= "[" (substr section 1 1))) (setq section (strcat "[" section "]")))
(setq section (ini_readsection inifile section))
(cadr (assoc entry section))
)

(defun ini_writeentry (inifile section entry val / ofile ini sec)
(if (not (findfile inifile)) (progn (setq ofile (open inifile "w")) (close ofile)))
(if (and (= 'STR (type section)) (/= "[" (substr section 1 1))) (setq section (strcat "[" section "]")))
(if (setq ofile (findfile inifile))
(progn
(setq ini (ini_readini inifile))
(cond
((setq sec (assoc section ini))
(if (assoc entry (cdr sec))
(setq sec (cons section (subst (list entry val) (assoc entry (cdr sec)) (cdr sec))))
(setq sec (cons section (reverse (cons (list entry val) (reverse (cdr sec))))))
)
(setq ini (subst sec (assoc section ini) ini))
(setq ofile (open ofile "w"))
(if ofile (progn
(mapcar
'(lambda (x)
(write-line (car x) ofile)
(mapcar
'(lambda (x)
(write-line (strcat (car x) "=" (cadr x)) ofile)
)
(cdr x)
)
(write-line "" ofile)
)
ini
)
(close ofile)
))
)
(T
(setq ofile (open ofile "a"))
(if ofile
(progn
(write-line section ofile)
(write-line (strcat entry "=" val) ofile)
(close ofile)
)
)
)

)
)
)

)

(defun ini_readsection (inifile section / ofile line result )
(if (and (= 'STR (type section)) (/= "[" (substr section 1 1))) (setq section (strcat "[" section "]")))
(if (findfile inifile)
(cdr (assoc section (ini_readini (findfile inifile))))
(alert (STRCAT inifile "\nnicht gefunden!"))
)
)

(defun ini_readini (inifile / ofile line section result)
(if (findfile inifile)
(progn
(setq ofile (open (findfile inifile) "r"))
(if ofile (progn
(while (and (setq line (read-line ofile)) (/= "[" (substr line 1 1))))
(while (and line (= "[" (substr line 1 1)))
(setq section (list line))
(while (and (setq line (read-line ofile)) (/= "[" (substr line 1 1)))
(if (and (/= ";" (substr line 1 1)) (/= "" line))
(setq section (cons (ini_iniline line "=") section))
)
)
(setq result (cons (reverse section) result))
)
(close ofile)
))
)
(alert (STRCAT inifile "\nnicht gefunden!"))
)
(reverse result)
)

(defun ini_iniline (line sep / line str1 str2 )
(if (= 'STR (type line))
(progn
(setq str1 "" str2 "")
(while (and (/= "" line) (/= sep (substr line 1 1)))
(setq str1 (strcat str1 (substr line 1 1)) line (substr line 2))
)
(if (= sep (substr line 1 1))
(setq str2 (substr line 2))
)
)
)
(list str1 str2)
)
nikе вне форума  
 
Непрочитано 30.12.2006, 02:31
#56
nikе

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


По-моему лучше файлы с данными прокатов хранить в стиле ini файлов. Пример баз данных см. VetCAD. Сейчас работаю над программой по составлению спецификаций и выборки стали по ней.На чистом лиспе для использования в IntelliCAD.Как допишу выложу. Но не знаю когда.Если хватит сил.Программы должны быть бесплатными.Нужно сделать народный сапр.Пора кончать со спекулянтами и ростовщиками всех мастей.
nikе вне форума  
 
Непрочитано 30.12.2006, 13:10
#57
Евгений А.

Армспорт
 
Регистрация: 18.07.2006
Ейск
Сообщений: 355


Цитата:
Сообщение от nikе
...Программы должны быть бесплатными.Нужно сделать народный сапр.Пора кончать со спекулянтами и ростовщиками всех мастей.
Да что ты говоришь ?!! Тогда и проектировщики должны бесплатно проектировать, а строители бесплатно строить и колбаску в магазине нам будут давать бесплатно и в любых колличествах!!! Вы случайно не Владимир Ильич???
Если бы программы были бесплатными, то не было бы и Автокада. Была бы бумага и карандаши (и те не бесплатные!).
Евгений А. вне форума  
 
Непрочитано 30.12.2006, 17:19
#58
nikе

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


to Евгений А.
Недавно ехал в трамвае с одним программистиком. Его мечта написать программу однажды, и потом всю жизнь жить на процент от её продажи. Т.е. он , возможно, потом хотел перестать быть производителем благ, а являться только потребителем. Т.е. по установившейся практике такой возможный паразит сядет мне на шею. Это рабовладельческий строй в цивилизованной форме. Считаю, что должен оплачиваться только труд по факту, а не какие-то прежние “заслуги” и “права”. Если бы капиталисты достойно оплачивали труд пролетариата (проектировщиков в частности), то не нужны были бы ни льготы, ни их показушная благотворительность.
А если не будет ACADa, то буду работать на безплатном ProgeCAD LT.
А так , если критически посмотреть на ситуацию с авторскими правами, то тогда не нужно наказывать и мошенников – риэлтеров за продажу десятков ордеров на одну и ту же квартиру.
А что касается Ильича то таких людей я уважаю. Но все же мне хочется стать таким как отец-основатель СССР И.В.Сталин.
nikе вне форума  
 
Непрочитано 30.12.2006, 17:36
#59
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,627


Для nikе.
Цитата:
Но все же мне хочется стать таким как отец-основатель СССР И.В.Сталин.
Значит, тебе уже сейчас надо забить осиновый кол в грудь, как упырю.
Profan вне форума  
 
Непрочитано 30.12.2006, 19:06
#60
nikе

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


2 Profan
Интересно, кому надо меня замочить, да не просто пулей а каким-то древним "кошерным" способом? Хватит проливать кровь честных трудящихся! Хватит раскручивать известный маховик "Зуб за зуб".

Лучше бы помог нам - честным труженикам Русской многонациональной цивилизации написать бесплатный модуль к будущему Народному САПРу.
Знай что Бог на нашей стороне. Наше дело правое. Победа будет за нами.
nikе вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Обновление программы «Прокат» Василия Кондрата

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск