|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
Конструктор Регистрация: 06.04.2005
Из тех ворот-откуда весь народ.
Сообщений: 357
|
->Владимиру М
http://dwg.ru/dnl/213
__________________
"Мнение не бывает ни истинным, ни ложным, а лишь полезным в жизни или бесполезным. ",- Ауробиндо И не надо делать удивленных движений руками. |
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,854
|
Кого? arx этот? И не получится - надо перекомпилировать. Без вариантов. Вопросы - к автору.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Машиностроение, Проектирование Регистрация: 15.09.2003
Москва
Сообщений: 1,113
|
Цитата:
Если разговор не о прокате Василия, то kpЫс прав. |
|||
|
||||
- Регистрация: 24.07.2005
Москва
Сообщений: 1,335
|
Цитата:
|
|||
|
||||
- Регистрация: 31.07.2005
Ухта
Сообщений: 381
|
Добавил для английских версий:
"Профиль гнутый замкнутый сварной квадратный по ГОСТ 30245-03" "Профиль гнутый замкнутый сварной прямоугольный по ГОСТ 30245-03". Для обновления скопируйте данные файлы и вложите их в папку prokat с заменой старых. Рисует Прокат и Прокат3D Пользуйтесь! [ATTACH]1166956283.rar[/ATTACH]
__________________
Я не волшебник, я только учусь… |
|||
|
||||
инженер Регистрация: 05.08.2006
Самара
Сообщений: 258
|
Ну что сказать - молодец.
Теперь для русской версии. Нужно (если уж пошло...): - разбить сечения по главам (плохо скакать скролом по 20-30 значениям) - добавить тавры гнутосварные трубы по всем ТУ и ГОСТам профнастил Ну это уж так... Все равно спасибо... |
|||
|
||||
Машиностроение, Проектирование Регистрация: 15.09.2003
Москва
Сообщений: 1,113
|
Цитата:
Прокат он и есть прокат, а для остального может сделать другую и назвать "гнукат" ? . |
|||
|
||||
- Регистрация: 31.07.2005
Ухта
Сообщений: 381
|
Цитата:
А ТУ уже отменен! Ладно, квдратные по гОСТу можно и закончить, а круглые трубы нужны? Какие пишите...
__________________
Я не волшебник, я только учусь… |
|||
|
||||
Машиностроение, Проектирование Регистрация: 15.09.2003
Москва
Сообщений: 1,113
|
Ну, уж 2 окружности нарисовать-то, я думаю, можно и без программы!
А то так докатимся, что и на обычную линию будем программы писать! |
|||
|
||||
Engineer Регистрация: 05.09.2003
New-York
Сообщений: 10,288
|
Цитата:
|
|||
|
||||
- Регистрация: 31.07.2005
Ухта
Сообщений: 381
|
Вот и русская версия последних обновлений.
Если нужна полная загляните на http://dwg.ru/dnl/1825 Желаю удачи! [ATTACH]1167167540.rar[/ATTACH]
__________________
Я не волшебник, я только учусь… |
|||
|
||||
конструктор Лего Регистрация: 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) ) |
|||
|
||||
конструктор Лего Регистрация: 21.10.2005
Краснодар
Сообщений: 204
|
По-моему лучше файлы с данными прокатов хранить в стиле ini файлов. Пример баз данных см. VetCAD. Сейчас работаю над программой по составлению спецификаций и выборки стали по ней.На чистом лиспе для использования в IntelliCAD.Как допишу выложу. Но не знаю когда.Если хватит сил.Программы должны быть бесплатными.Нужно сделать народный сапр.Пора кончать со спекулянтами и ростовщиками всех мастей.
|
|||
|
||||
Армспорт Регистрация: 18.07.2006
Ейск
Сообщений: 355
|
Цитата:
Если бы программы были бесплатными, то не было бы и Автокада. Была бы бумага и карандаши (и те не бесплатные!). |
|||
|
||||
конструктор Лего Регистрация: 21.10.2005
Краснодар
Сообщений: 204
|
to Евгений А.
Недавно ехал в трамвае с одним программистиком. Его мечта написать программу однажды, и потом всю жизнь жить на процент от её продажи. Т.е. он , возможно, потом хотел перестать быть производителем благ, а являться только потребителем. Т.е. по установившейся практике такой возможный паразит сядет мне на шею. Это рабовладельческий строй в цивилизованной форме. Считаю, что должен оплачиваться только труд по факту, а не какие-то прежние “заслуги” и “права”. Если бы капиталисты достойно оплачивали труд пролетариата (проектировщиков в частности), то не нужны были бы ни льготы, ни их показушная благотворительность. А если не будет ACADa, то буду работать на безплатном ProgeCAD LT. А так , если критически посмотреть на ситуацию с авторскими правами, то тогда не нужно наказывать и мошенников – риэлтеров за продажу десятков ордеров на одну и ту же квартиру. А что касается Ильича то таких людей я уважаю. Но все же мне хочется стать таким как отец-основатель СССР И.В.Сталин. |
|||
|
||||
конструктор Лего Регистрация: 21.10.2005
Краснодар
Сообщений: 204
|
2 Profan
Интересно, кому надо меня замочить, да не просто пулей а каким-то древним "кошерным" способом? Хватит проливать кровь честных трудящихся! Хватит раскручивать известный маховик "Зуб за зуб". Лучше бы помог нам - честным труженикам Русской многонациональной цивилизации написать бесплатный модуль к будущему Народному САПРу. Знай что Бог на нашей стороне. Наше дело правое. Победа будет за нами. |
|||