Возможно ли такое в DCL и лиспе

Возможно ли такое в DCL и лиспе · 31.08.2018, 13:52

Добрый день. Подскажите, возможно ли вообще такое. Если да, то подскажите как.
Есть одно диалоговое окно:

Код:

 KolichestvoNaimenovaniiShtycerov: dialog {label = "Количество наименований штуцеров"; // название диалогового окна

    : spacer{height=1;} // вставка пустой строки

    : boxed_row {

    : row {
    : text {label = "Количество строк в таблице штуцеров"; alignment = centered;}
    : edit_box {key = "KolNaimShtyc"; edit_width=5;}
    }
    }
    
    : spacer{height=1;}   // вставка пустой строки

    ok_cancel;   // добавление кнопок ОК и Отмена
}  // окончание диалога

Вызываю его:

Код:

[Выделить все]

 (setq dcl_filename_full "U:\\Автоматизация проекта\\Lisp\\Проект колонны\\Корпус колонны\\Количество наименований штуцеров.dcl"
              fs_dcl_id (load_dialog dcl_filename_full)
              KolNaimShtyc "0"
    )
        (if (not fs_dcl_id)
            (progn
                (alert "Ошибка загрузки DCL файла!")
                (exit)
            )
            (progn
                (if (not (new_dialog "KolichestvoNaimenovaniiShtycerov" fs_dcl_id))
                    (progn
                        (alert "Ошибка загрузки DCL файла!")
                        (exit)
                    )
                    (progn
                        (action_tile "OK" "(done_dialog 1)")
                        (action_tile "Cancel" "(done_dialog 2)")
		        (action_tile "KolNaimShtyc" "(setq KolNaimShtyc $value)")
                        (setq diag_result (start_dialog))
                        (unload_dialog fs_dcl_id)
		        (setq KolNaimShtyc (atoi KolNaimShtyc))
                    ) 
                )
            )
        )

И есть второе диалоговое окно

Код:

[Выделить все]

 TablicaShtycerov : dialog {
                label = "Таблица штуцеров"; //название диалогового окна
                
                //первый блок
                    : boxed_row {
                            height = 2;
                                    width = 10;
                                    : text  {
                                            label = "Обозначение";
                                            width = 12;
                                            alignment = centered;
                                            }
                                    : text_part {
                                            label = "Наименование";
                                            width = 40;
                                            alignment = centered;
                                            }
                                    : text_part {
                                            label = "Количество";
                                            width = 10;
                                            alignment = centered;
                                            }
                                    : text_part {
                                            label = "Dy, мм";
                                            width = 10;
                                            alignment = centered;
                                            }
                                    : text_part {
                                            label = "Py, МПа";
                                            width = 10;
                                            alignment = centered;
                                            }
                                    : text_part {
                                            label = "Вылет";
                                            width = 10;
                                            alignment = centered;
                                            }
                                            }
                          
//второй блок
                    : boxed_row {
                            height = 2;
                            : row {
                                    : edit_box {
                                            key = "ShtycerOboznachenie";
                                            edit_width = 12;
                                            alignment = centered;
                                            list = "";
                                             }
                                    : edit_box {
                                            key = "ShtycerNaimenovanie";
                                            edit_width = 40;
                                            alignment = centered;
                                            list = "";
                                             }
                                    : edit_box {
                                            key = "ShtycerKolichestvo";
                                            edit_width = 10;
                                            list = "";
                                             }
                                    : edit_box {
                                            key = "ShtycerDy";
                                            edit_width = 10;
                                            list = "";
                                             }
                                    : edit_box {
                                            key = "ShtycerPy";
                                            edit_width = 10;
                                            list = "";
                                             }
                                    : edit_box {
                                            key = "ShtycerVilet";
                                            edit_width = 10;
                                            list = "";
                                             }
                                             }
                                             }
                              
                    ok_cancel;
            }

Вызов для него

Код:

[Выделить все]

 (setq dcl_filename_full "U:\\Автоматизация проекта\\Lisp\\Проект колонны\\Корпус колонны\\Таблица штуцеров.dcl"
              fs_dcl_id (load_dialog dcl_filename_full)
              ShtycerOboznachenie "0"
              ShtycerNaimenovanie "0"
              ShtycerKolichestvo "0"
              ShtycerDy "0"
              ShtycerPy "0"
              ShtycerVilet "0"
    )
        (if (not fs_dcl_id)
            (progn
                (alert "Ошибка загрузки DCL файла!")
                (exit)
            )
            (progn
                (if (not (new_dialog "TablicaShtycerov" fs_dcl_id))
                    (progn
                        (alert "Ошибка загрузки DCL файла!")
                        (exit)
                    )
                    (progn
                        (action_tile "OK" "(done_dialog 1)")
                        (action_tile "Cancel" "(done_dialog 2)")
		        (action_tile "ShtycerOboznachenie" "(setq ShtycerOboznachenie $value)")
		        (action_tile "ShtycerNaimenovanie" "(setq ShtycerNaimenovanie $value)")
		        (action_tile "ShtycerKolichestvo" "(setq ShtycerKolichestvo $value)")
		        (action_tile "ShtycerDy" "(setq ShtycerDy $value)")
		        (action_tile "ShtycerPy" "(setq ShtycerPy $value)")
		        (action_tile "ShtycerVilet" "(setq ShtycerVilet $value)")
                        (setq diag_result (start_dialog))
                        (unload_dialog fs_dcl_id)
		        (setq ShtycerKolichestvo (atoi ShtycerKolichestvo))
		        (setq ShtycerDy (atoi ShtycerDy))
		        (setq ShtycerPy (atof ShtycerPy))
		        (setq ShtycerVilet (atoi ShtycerVilet))
                    ) 
                )
            )
        )

Вопрос такой. Во втором диалоговом окне, один блок для ввода данных.
Возможно ли сделать, что бы при вводе в первом диалоговом окне количества строк, например 10, во втором диалоговом окне появлялись 10 блоков для ввода данных.
И так далее.
Можно конечно сделать кучу вариантов DCL, и прописать условия ,что если в первом окне ввели 5, то открываем DCL где 5 блоков для ввода.
Но может есть иной вариант!
Заранее благодарю!

CalcProg · 31.08.2018, 14:15

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

Кулик Алексей aka kpblc · 31.08.2018, 14:37

А кто мешает dcl создавать "на лету"?

protorgovec · 31.08.2018, 14:44

Цитата:

Сообщение от Кулик Алексей aka kpblc

А кто мешает dcl создавать "на лету"?

Что значит на лету?
Увидел сколько строк нужно и тут же создал? Мне так не пойдет, я не смогу объяснить другим людям что такое DCL

----- добавлено через ~2 мин. -----

Цитата:

Сообщение от CalcProg

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

2 формы, то что у меня высвечивается в диалоговых окнах. Во втором окне, для ввода данных одна строчка. А должно быть столько, сколько пользователь введет в первом диалоговом окне.

Кулик Алексей aka kpblc · 31.08.2018, 14:50

protorgovec, я же тебе показывал, кажется, уже код, где dcl создается самим лиспом. В чем трудность-то?

CalcProg · 31.08.2018, 14:51

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

----- добавлено через ~2 мин. -----

Цитата:

Сообщение от Кулик Алексей aka kpblc

protorgovec, я же тебе показывал, кажется, уже код, где dcl создается самим лиспом. В чем трудность-то?

в том, что он делает первые шаги в разработке программ.

Кулик Алексей aka kpblc · 31.08.2018, 15:04

Код:

[Выделить все]

 (defun tt (/ main_file main_handle main_id main_res main_range dcl_file dcl_handle dcl_id dcl_res)
  (setq main_file   (strcat (vl-string-right-trim "\\" (getenv "temp")) "\\dlg_main.dcl")
        main_handle (open main_file "w")
        ) ;_ end of setq
  (foreach item '("dlg_main:dialog{label=\"Первое окно\";"
                  "	:edit_box{key=\"range\";label=\"Количество полей\";}"
                  "	ok_cancel;"
                  "	}"
                  )
    (write-line item main_handle)
    ) ;_ end of foreach
  (close main_handle)
  (setq main_id (load_dialog main_file))
  (new_dialog "dlg_main" main_id)
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (set_tile "range" "1")
  (setq main_range 1)
  (action_tile "range" "(setq main_range $value)")
  (setq main_res (start_dialog))
  (unload_dialog main_id)
  (if (and (= main_res 1) (> (setq main_range (atoi main_range)) 0))
    (progn (setq dcl_file   (strcat (vl-string-right-trim "\\" (getenv "temp")) "\\dlg.dcl")
                 dcl_handle (open dcl_file "w")
                 ) ;_ end of setq
           (foreach item (append '("dlg:dialog{label=\"Второе окно\";")
                                 ((lambda (/ i lst)
                                    (setq i 0)
                                    (while (< i main_range)
                                      (setq i   (1+ i)
                                            lst (cons (strcat ":edit_box{key=\"txt" (itoa i) "\";label=\"Поле " (itoa i) "\";}") lst)
                                            ) ;_ end of setq
                                      ) ;_ end of while
                                    (reverse lst)
                                    ) ;_ end of LAMBDA
                                  )
                                 '("	ok_cancel;" "	}")
                                 ) ;_ end of append
             (write-line item dcl_handle)
             ) ;_ end of foreach
           (close dcl_handle)
           (setq dcl_id (load_dialog dcl_file))
           (new_dialog "dlg" dcl_id)
           (action_tile "accept" "(done_dialog 1)")
           (action_tile "cancel" "(done_dialog 0)")
           (setq dcl_res (start_dialog))
           (unload_dialog dcl_id)
           ) ;_ end of progn
    (alert "Эт как?")
    ) ;_ end of if
  ) ;_ end of defun

----- добавлено через 37 сек. -----

Цитата:

Сообщение от CalcProg

за выходные сделаю и скину небе на почту. адрес своей почты скинь мне вличку.

Остальные недостойны получить сие сакральное знание?

protorgovec · 31.08.2018, 15:18

Цитата:

Сообщение от CalcProg

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

----- добавлено через ~2 мин. -----

в том, что он делает первые шаги в разработке программ.

Я сейчас не успею, уже домой. Да и тебе лучше отдыхать в выходные, не буду воровать личное время. В понедельник напишу!

CalcProg · 31.08.2018, 15:59

Цитата:

Сообщение от Кулик Алексей aka kpblc

К сожалению, это невозможно в вашем браузере.

Кулик Алексей, я с мобилы. Тут мне не выложить. А пальцем набивать уйдет много времени.

----- добавлено через ~3 мин. -----

Цитата:

Сообщение от protorgovec

Я сейчас не успею, уже домой. Да и тебе лучше отдыхать в выходные, не буду воровать личное время. В понедельник напишу!

в выходные у меня есть время, а в понедельник может не быть.

Сергей812 · 01.09.2018, 22:42

Цитата:

Сообщение от protorgovec

Возможно ли сделать, что бы при вводе в первом диалоговом окне количества строк, например 10, во втором диалоговом окне появлялись 10 блоков для ввода данных.
И так далее.

еще можно просто сделать одну форму для ввода данных блока и вызывать ее в цикле требуемое число раз.. только заголовок предусмотреть типа "ввод 3 значения из 10". Насколько понимаю, вопрос об юзабилити уже не стоит.

CalcProg · 02.09.2018, 06:00

Кулику Алексею. Ни чего секретного. Воспользуемся этим решением :
http://forum.dwg.ru/showthread.php?t=6459
опубликованном в 2006 году.

protorgovec · 03.09.2018, 07:03

[quote=Кулик Алексей aka kpblc;1751655]

Код:

[Выделить все]

 (defun tt (/ main_file main_handle main_id main_res main_range dcl_file dcl_handle dcl_id dcl_res)
  (setq main_file   (strcat (vl-string-right-trim "\\" (getenv "temp")) "\\dlg_main.dcl")
        main_handle (open main_file "w")
        ) ;_ end of setq
  (foreach item '("dlg_main:dialog{label=\"Первое окно\";"
                  "	:edit_box{key=\"range\";label=\"Количество полей\";}"
                  "	ok_cancel;"
                  "	}"
                  )
    (write-line item main_handle)
    ) ;_ end of foreach
  (close main_handle)
  (setq main_id (load_dialog main_file))
  (new_dialog "dlg_main" main_id)
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (set_tile "range" "1")
  (setq main_range 1)
  (action_tile "range" "(setq main_range $value)")
  (setq main_res (start_dialog))
  (unload_dialog main_id)
  (if (and (= main_res 1) (> (setq main_range (atoi main_range)) 0))
    (progn (setq dcl_file   (strcat (vl-string-right-trim "\\" (getenv "temp")) "\\dlg.dcl")
                 dcl_handle (open dcl_file "w")
                 ) ;_ end of setq
           (foreach item (append '("dlg:dialog{label=\"Второе окно\";")
                                 ((lambda (/ i lst)
                                    (setq i 0)
                                    (while (< i main_range)
                                      (setq i   (1+ i)
                                            lst (cons (strcat ":edit_box{key=\"txt" (itoa i) "\";label=\"Поле " (itoa i) "\";}") lst)
                                            ) ;_ end of setq
                                      ) ;_ end of while
                                    (reverse lst)
                                    ) ;_ end of LAMBDA
                                  )
                                 '("	ok_cancel;" "	}")
                                 ) ;_ end of append
             (write-line item dcl_handle)
             ) ;_ end of foreach
           (close dcl_handle)
           (setq dcl_id (load_dialog dcl_file))
           (new_dialog "dlg" dcl_id)
           (action_tile "accept" "(done_dialog 1)")
           (action_tile "cancel" "(done_dialog 0)")
           (setq dcl_res (start_dialog))
           (unload_dialog dcl_id)
           ) ;_ end of progn
    (alert "Эт как?")
    ) ;_ end of if
  ) ;_ end of defun

----- добавлено через 37 сек. -----

Алексей, добрый день.
А можно получить построчный комментарий к твоей программе? Некоторые строки для меня не понятны!

----- добавлено через 51 сек. -----

Цитата:

Сообщение от CalcProg

Кулик Алексей, я с мобилы. Тут мне не выложить. А пальцем набивать уйдет много времени.

----- добавлено через ~3 мин. -----

в выходные у меня есть время, а в понедельник может не быть.

Добрый день. Актуально ли еще скидывать в личку? Или сегодня комп под рукой и тут все что нужно есть?

CalcProg · 03.09.2018, 08:24

да.
подготовил простейший пример.

----- добавлено через ~52 мин. -----
(defun c:menu_1( /open_fail_name open_fail_d str_0 str_1 str_2 str_3 str_4 )
(startapp "d:/lispmenu1/menu_1.exe" "error open file" )
;Останавливаем выполнее программы, пока пользователь не закончит работу с внешним диалрговым окном
(write-line "Нажми для продолжения Enter")
(setq str_0 (read-line))
; Открытие файла
(setq open_file_name "d:/lispmenu1/listmenu1.txt")
(setq open_file_d (open open_file_name "r"))
;Чтение файла
(setq str_1 (read-line open_file_d))
(princ "Нажата кнопка номер:")
(princ str_1)
(princ "\n")
(setq str_2 (read-line open_file_d))
(princ "Текст:")
(princ str_2)
(princ "\n")

;Закрытие файла
(close open_file_d)
)

----- добавлено через ~59 мин. -----
на яп Лазарус создаем новый проект
сохраняем как Menu_1
На форме размещаем компаненты: Edit1 - текстовое поле;
comboBox1 - комбинированный список;
Memo1 - многострочное поле ввода текста;
Button1, Button2 - Кнопки.

----- добавлено через ~1 ч. -----
Для кнопок на вкладке события в инспекторе объектов выбираем события OnClick
Для формы событие OnCreate

----- добавлено через ~2 ч. -----
Var NameFile: ansistring; // Глобалная переменная хранит имя файла
//При создании формы устанавливаем нач знач глоб переменных и меняем свойства компанентов
Procedure TForm1.FormCreate (sender: tobject);
begin
// программно меняем свойства компанентов
form1.caption:='пример меню';
Memo1.viseble:=false;
button1.caption:='Передать данные';
button1.caption:='Отмена";
Edit1.text:='проба';
ComboBox1.items.add('Text1');
comboBox1.items.add('Текст2');
comboBox1.items.add('вгд3');
//нач знач
NameFile:='d:\lispmenu1\listmenu1.txt';
// папка d:\lispmenu1 должна быть создана за ранее
end;
// процедура обработки нажатия кнопки отмена
procedure TForm1.Button2Click(sender: tobject);
begin
memo1.clear;
memo1.lines.add('0');
Try
memo1.lines.saveToFile (Utf8ToAnsi(nameFile));
except
showMessage ('Ошибка при записи ');
end;
close;
end;
// Процедура обработки нажати кнопки передача данных
procedure TForm1.Button1Click(sender:TObject);
begin
memo1.Clear;
memo1.Lines.Add('1');
memo1.Lines.Add(Utf8ToAnsi(Edit1.Text));
memo1.Lines.Add(Utf8ToAnsi(ComboBox1.Text));
memo1.Lines.Add(IntToStr(ComboBox1.ItemIndex));
tru
memo1.Lines.SaveToFile(utf8ToAnsi(NameFile));
except
showMessage ('ошибка');
end;
close;
end;

protorgovec · 03.09.2018, 11:42

Цитата:

Сообщение от CalcProg

на яп Лазарус создаем новый проект

Я так понял что это про программу Lazarus?

----- добавлено через ~2 мин. -----

Цитата:

Сообщение от protorgovec

на яп Лазарус создаем новый проект

Какую лучше версию скачать? Или без разницы?

Кулик Алексей aka kpblc · 03.09.2018, 11:48

Вы либо в ЛС и продолжайте общаться, либо создавайте новую тему в разделе "Программирование" и там обсуждайте.

CalcProg · 03.09.2018, 11:54

Цитата:

Сообщение от Кулик Алексей aka kpblc

Вы либо в ЛС и продолжайте общаться, либо создавайте новую тему в разделе "Программирование" и там обсуждайте.

а что с этой не так? DCL - не относится к теме программирование?

----- добавлено через ~1 мин. -----

Цитата:

Сообщение от protorgovec

Я так понял что это про программу Lazarus?

----- добавлено через ~2 мин. -----

Какую лучше версию скачать? Или без разницы?

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

trir · 03.09.2018, 12:15

дичь, всё тоже самое далеается на dotNET и сильно проще
ставь Visual Studio Community

Кулик Алексей aka kpblc · 03.09.2018, 12:20

CalcProg, еще раз: либо ведется обсуждение lisp и dcl с этой теме, но гласно. Либо организовываете междусобойчик и там говорите о чем хотите. Либо начинаете обсуждать Lazarus - но он к lisp/dcl не имеет прямого отношения, поэтому добро пожаловать в новую ветку.

CalcProg · 03.09.2018, 12:24

Цитата:

Сообщение от trir

дичь, всё тоже самое далеается на dotNET и сильно проще
ставь Visual Studio Community

супер! главное ставь вижуал студию! а учить ей пользоваться, кто будет?
то что проще в ней спору нет.
а лазарус проще для понимания.
пока он в твоей вижуальной студии разберется, оно и уже не требо буде.

----- добавлено через ~4 мин. -----

Цитата:

Сообщение от Кулик Алексей aka kpblc

CalcProg, еще раз: либо ведется обсуждение lisp и dcl с этой теме, но гласно. Либо организовываете междусобойчик и там говорите о чем хотите. Либо начинаете обсуждать Lazarus - но он к lisp/dcl не имеет прямого отношения, поэтому добро пожаловать в новую ветку.

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

trir · 03.09.2018, 12:31

Цитата:

а лазарус проще для понимания.

сомнительное утверждение, а Visual Studio полезней будет - есть NET API

CalcProg · 03.09.2018, 12:52

Сергей812 · 03.09.2018, 14:31

Offtop: имхо, пускай ТС еще набьёт "шишек" на реализации динамических интерфейсов на базе связки lisp+DCL. Это лет 20 назад компьютер для большинства пользователей был "таинством" и можно было любой интерфейс лепить в программу - все равно работали с большими глазами и повышенным вниманием. А сейчас люди избалованы, у многих в кармане смартфоны с интуитивным интерфейсом и с возможностями компьютеров тех лет. И когда они увидят этот "суперпродукт" от ТС с интерфейсом 15..20 летней давности, а потом еще и попользуются - у них возникнут определенные вопросы. А там уже как начальство себя поведет - по уму или традиционно положив на проблему..)

protorgovec · 05.09.2018, 08:58

Цитата:

Сообщение от protorgovec

на яп Лазарус создаем новый проект

Тут проблемка, наши админы не дают мне установить эту прогу. Так что придется дома поставить, поизучать

----- добавлено через ~1 ч. -----

Цитата:

Сообщение от Кулик Алексей aka kpblc

Код:

[Выделить все]

 (defun tt (/ main_file main_handle main_id main_res main_range dcl_file dcl_handle dcl_id dcl_res)
  (setq main_file   (strcat (vl-string-right-trim "\\" (getenv "temp")) "\\dlg_main.dcl")
        main_handle (open main_file "w")
        ) ;_ end of setq
  (foreach item '("dlg_main:dialog{label=\"Первое окно\";"
                  "	:edit_box{key=\"range\";label=\"Количество полей\";}"
                  "	ok_cancel;"
                  "	}"
                  )
    (write-line item main_handle)
    ) ;_ end of foreach
  (close main_handle)
  (setq main_id (load_dialog main_file))
  (new_dialog "dlg_main" main_id)
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (set_tile "range" "1")
  (setq main_range 1)
  (action_tile "range" "(setq main_range $value)")
  (setq main_res (start_dialog))
  (unload_dialog main_id)
  (if (and (= main_res 1) (> (setq main_range (atoi main_range)) 0))
    (progn (setq dcl_file   (strcat (vl-string-right-trim "\\" (getenv "temp")) "\\dlg.dcl")
                 dcl_handle (open dcl_file "w")
                 ) ;_ end of setq
           (foreach item (append '("dlg:dialog{label=\"Второе окно\";")
                                 ((lambda (/ i lst)
                                    (setq i 0)
                                    (while (< i main_range)
                                      (setq i   (1+ i)
                                            lst (cons (strcat ":edit_box{key=\"txt" (itoa i) "\";label=\"Поле " (itoa i) "\";}") lst)
                                            ) ;_ end of setq
                                      ) ;_ end of while
                                    (reverse lst)
                                    ) ;_ end of LAMBDA
                                  )
                                 '("	ok_cancel;" "	}")
                                 ) ;_ end of append
             (write-line item dcl_handle)
             ) ;_ end of foreach
           (close dcl_handle)
           (setq dcl_id (load_dialog dcl_file))
           (new_dialog "dlg" dcl_id)
           (action_tile "accept" "(done_dialog 1)")
           (action_tile "cancel" "(done_dialog 0)")
           (setq dcl_res (start_dialog))
           (unload_dialog dcl_id)
           ) ;_ end of progn
    (alert "Эт как?")
    ) ;_ end of if
  ) ;_ end of defun

----- добавлено через 37 сек. -----

Остальные недостойны получить сие сакральное знание?

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

Сергей812 · 05.09.2018, 10:01

Цитата:

Сообщение от protorgovec

Так что придется дома поставить, поизучать

Поставьте лучше бесплатную студию - дельфи вы не знаете, насколько понимаю. И нет смысла на его изучение время тратить, имхо - лучше сразу на тот же .Net переходить. trir уже ссылку давал ранее - как на .Net через [LispFunction] создавать диалоги и потом вызывайте из своей основной программы как обыкновенную lisp функцию. Главное - сделайте модальные диалоги в .Net, чтобы выполнение основной программы остановилось на время вызова.

trir · 05.09.2018, 10:51

Цитата:

Тут проблемка, наши админы не дают мне установить эту прогу

ну, что бы собрать приложение на c# - даже не надо ставить VS

ShaggyDoc · 05.09.2018, 14:41

Цитата:

Сообщение от protorgovec

Тут проблемка, наши админы не дают мне установить эту прогу.

Обратитесь к БольшомуБоссу. Доложите, что для роста производства и прибыли лично БольшогоБосса крайне необходимо конструирование диалогов в "этой проге".
Пущай БольшойБосс вменит в обязанности админам разрабатывать по вашим заданиям и в кратчайшие сроки всё необходимое, а не ставить палки в колеса. Онижепрограммисты. Зря что-ли их кормят?

Завтра же "эта прога" и любая другая появится у вас.

И я тоже советую - не тратьте время на DCL. Быстрее освоить любую современную систему разработки.

Сергей812 · 05.09.2018, 14:58

Offtop:

Цитата:

Сообщение от ShaggyDoc

Обратитесь к БольшомуБоссу. Доложите, что для роста производства и прибыли лично БольшогоБосса крайне необходимо конструирование диалогов в "этой проге".
Пущай БольшойБосс вменит в обязанности админам разрабатывать по вашим заданиям и в кратчайшие сроки всё необходимое, а не ставить палки в колеса. Онижепрограммисты. Зря что-ли их кормят?

чтобы такие заявления делать - надо иметь достаточный опыт и понимание своих реальных возможностей. Иначе можно хорошо подставить самого себя - особенно, если в цепочке к ББ окажется желающие "примазаться" к результатам и потом понадобится козел отпущения - когда результаты разойдутся с реальностью.

protorgovec · 05.09.2018, 15:14

Цитата:

Сообщение от Кулик Алексей aka kpblc

Код:

[Выделить все]

 (defun tt (/ main_file main_handle main_id main_res main_range dcl_file dcl_handle dcl_id dcl_res)
  (setq main_file   (strcat (vl-string-right-trim "\\" (getenv "temp")) "\\dlg_main.dcl")
        main_handle (open main_file "w")
        ) ;_ end of setq
  (foreach item '("dlg_main:dialog{label=\"Первое окно\";"
                  "	:edit_box{key=\"range\";label=\"Количество полей\";}"
                  "	ok_cancel;"
                  "	}"
                  )
    (write-line item main_handle)
    ) ;_ end of foreach
  (close main_handle)
  (setq main_id (load_dialog main_file))
  (new_dialog "dlg_main" main_id)
  (action_tile "accept" "(done_dialog 1)")
  (action_tile "cancel" "(done_dialog 0)")
  (set_tile "range" "1")
  (setq main_range 1)
  (action_tile "range" "(setq main_range $value)")
  (setq main_res (start_dialog))
  (unload_dialog main_id)
  (if (and (= main_res 1) (> (setq main_range (atoi main_range)) 0))
    (progn (setq dcl_file   (strcat (vl-string-right-trim "\\" (getenv "temp")) "\\dlg.dcl")
                 dcl_handle (open dcl_file "w")
                 ) ;_ end of setq
           (foreach item (append '("dlg:dialog{label=\"Второе окно\";")
                                 ((lambda (/ i lst)
                                    (setq i 0)
                                    (while (< i main_range)
                                      (setq i   (1+ i)
                                            lst (cons (strcat ":edit_box{key=\"txt" (itoa i) "\";label=\"Поле " (itoa i) "\";}") lst)
                                            ) ;_ end of setq
                                      ) ;_ end of while
                                    (reverse lst)
                                    ) ;_ end of LAMBDA
                                  )
                                 '("	ok_cancel;" "	}")
                                 ) ;_ end of append
             (write-line item dcl_handle)
             ) ;_ end of foreach
           (close dcl_handle)
           (setq dcl_id (load_dialog dcl_file))
           (new_dialog "dlg" dcl_id)
           (action_tile "accept" "(done_dialog 1)")
           (action_tile "cancel" "(done_dialog 0)")
           (setq dcl_res (start_dialog))
           (unload_dialog dcl_id)
           ) ;_ end of progn
    (alert "Эт как?")
    ) ;_ end of if
  ) ;_ end of defun

----- добавлено через 37 сек. -----

Остальные недостойны получить сие сакральное знание?

Алексей, добрый день.
На основании твоего примера сделал следующее:

Код:

[Выделить все]

 (defun tt (/ main_file main_handle main_id main_res main_range dcl_file dcl_handle dcl_id dcl_res)
 (setq main_file   (strcat (vl-string-right-trim "\\" (getenv "temp")) "\\dlg_main.dcl")
       main_handle (open main_file "w")
       ) ;_ end of setq
 (foreach item '("dlg_main:dialog{label=\"Количество наименований штуцеров\";"
                 " :edit_box{key=\"range\";label=\"Количество строк в таблице штуцеров\";}"
                 " ok_cancel;"
                 " }"
                 )
   (write-line item main_handle)
   ) ;_ end of foreach
 (close main_handle)
 (setq main_id (load_dialog main_file))
 (new_dialog "dlg_main" main_id)
 (action_tile "accept" "(done_dialog 1)")
 (action_tile "cancel" "(done_dialog 0)")
 (set_tile "range" "1")
 (setq main_range 1)
 (action_tile "range" "(setq main_range $value)")
 (setq main_res (start_dialog))
 (unload_dialog main_id)
 (if (and (= main_res 1) (> (setq main_range (atoi main_range)) 0))
   (progn (setq dcl_file   (strcat (vl-string-right-trim "\\" (getenv "temp")) "\\dlg.dcl")
                dcl_handle (open dcl_file "w")
                ) ;_ end of setq
          (foreach item (append '("dlg:dialog{label=\"Таблица штуцеров\";"

" :boxed_row {height = 2; width = 10;"
" : text  {label = \"Обозначение\"; width = 12; alignment = centered;}"
" : text  {label = \"Наименование\"; width = 40; alignment = centered;}"
" : text  {label = \"Количество\"; width = 10; alignment = centered;}"
" : text  {label = \"Dy, мм\"; width = 10; alignment = centered;}"
" : text  {label = \"Py, мм\"; width = 10; alignment = centered;}"
" : text  {label = \"Вылет\"; width = 10; alignment = centered;}"
"}"
				  

				  
				  )
                                ((lambda (/ i lst)
                                   (setq i 0)
                                   (while (< i main_range)
                                     (setq i   (1+ i)
					   
                                           ;lst (cons (strcat ":edit_box{key=\"txt" (itoa i) "\";label=\" " (itoa i) "\";}") lst)

lst (cons (strcat
":boxed_row {"
":row {	"	  
":edit_box{key=\"ShtycerOboznachenie" (itoa i) "\"; edit_width = 12; alignment = centered; list = \" " (itoa i) "\";}"
":edit_box{key=\"ShtycerNaimenovanie" (itoa i) "\"; edit_width = 40; alignment = centered; list = \" " (itoa i) "\";}"
":edit_box{key=\"ShtycerKolichestvo" (itoa i) "\"; edit_width = 10; alignment = centered; list = \" " (itoa i) "\";}"
":edit_box{key=\"ShtycerDy" (itoa i) "\"; edit_width = 10; alignment = centered; list = \" " (itoa i) "\";}"
":edit_box{key=\"ShtycerPy" (itoa i) "\"; edit_width = 10; alignment = centered; list = \" " (itoa i) "\";}"
":edit_box{key=\"ShtycerVilet" (itoa i) "\"; edit_width = 10; alignment = centered; list = \" " (itoa i) "\";}"

"}" ;end row
"}" ; end boxed_row

		  ) lst)


					   
                                           ) ;_ end of setq
                                     ) ;_ end of while
                                   (reverse lst)
                                   ) ;_ end of LAMBDA
                                 )
                                '("    ok_cancel;" "   }")
                                ) ;_ end of append
            (write-line item dcl_handle)
            ) ;_ end of foreach
          (close dcl_handle)
          (setq dcl_id (load_dialog dcl_file))
          (new_dialog "dlg" dcl_id)
          (action_tile "accept" "(done_dialog 1)")
          (action_tile "cancel" "(done_dialog 0)")
          (setq dcl_res (start_dialog))
          (unload_dialog dcl_id)
          ) ;_ end of progn
   (alert "Эт как?")
   ) ;_ end of if
 ) ;_ end of defun

Убрал нумерацию, мне она не нужна.
Но появилось 2 вопроса, надеюсь поможешь!
Первый. Вводя количество штуцеров 20 и более, он выдает что размер диалогового окна не влазиет. Как можно это сделать? Очень часто количество наименований штуцеров бывает больше 20, и за 30 иногда бывает.
Второй вопрос. Я ввожу все данные, но он их совсем не запоминает. Я не могу понять как заставить запоминать все данные, введенные в ячейках.
Надеюсь подскажешь!
Заранее благодарю.

Кулик Алексей aka kpblc · 05.09.2018, 15:24

Вариантов несколько.
1. Организовывать перечень полей не только в колонки, но и в строки
2. Сделать несколько диалогов с кнопками "вперед-назад"
3. Уйти с dcl в сторону C# / VB.NET ...
А для запоминания посмотри в сторону т.н. callback-функций (насколько я помню, в справке по load_dialog они описывались).

protorgovec · 05.09.2018, 15:24

Цитата:

Сообщение от ShaggyDoc

Обратитесь к БольшомуБоссу. Доложите, что для роста производства и прибыли лично БольшогоБосса крайне необходимо конструирование диалогов в "этой проге".
Пущай БольшойБосс вменит в обязанности админам разрабатывать по вашим заданиям и в кратчайшие сроки всё необходимое, а не ставить палки в колеса. Онижепрограммисты. Зря что-ли их кормят?

Завтра же "эта прога" и любая другая появится у вас.

И я тоже советую - не тратьте время на DCL. Быстрее освоить любую современную систему разработки.

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

----- добавлено через ~2 мин. -----

Цитата:

Сообщение от Кулик Алексей aka kpblc

1. Организовывать перечень полей не только в колонки, но и в строки

Можешь в моем примере внести коррективы, как это сделать?

----- добавлено через ~3 мин. -----

Цитата:

Сообщение от Кулик Алексей aka kpblc

3. Уйти с dcl в сторону C# / VB.NET ...

Боюсь я переходить. Ощущение, что если перейду, вообще запутаюсь, все брошу

тяжеловато мне с программированием.

Кулик Алексей aka kpblc · 05.09.2018, 15:49

Я тоже боюсь - а приходится время от времени что-то на других языках рисовать. Просто потому, что на лиспе можно сделать не все...

Сергей812 · 05.09.2018, 15:49

Цитата:

Сообщение от protorgovec

Боюсь я переходить. Ощущение, что если перейду, вообще запутаюсь, все брошу

Тратя на решение лишь одной из подзадач - создание диалогов - кучу времени, можете прийти к тому же результату)

В лиспе нет ни классов, ни пространств, ни нормальной современной среды разработки - вся организационная составляющая сводится к разнесению по файлам и попыткам следования определенной системы наименований. Куча времени и усилий тратится на решение проблем по сути застывшего в своем развитии языка вместо самой задачи. А примеров по тому же .Net в инете - как грязи, с картинками, роликами и т.п.) Причем можете часть интерфейса писать и отлаживать вообще вне акада прямо в студии (если грамотно разделите функционал кода), а потом состыковать.

Vov.Ka · 05.09.2018, 16:21

Цитата:

Сообщение от protorgovec

Боюсь я переходить.

тогда упрашивай админов
http://opendcl.com/

CalcProg · 05.09.2018, 16:35

вон оно как! про лазарус в этой теме писать нельзя, а про визуал студию можно. да у вас тут секта свидетелей визуальной студии.
protorgovec, извиняй больше помогать не стану, а то святой админ кулик лексей анафеме предаст.

ShaggyDoc · 05.09.2018, 16:39

Цитата:

Сообщение от Сергей812

Тратя на решение лишь одной из подзадач - создание диалогов - кучу времени, можете прийти к тому же результату)

А можно сделав один раз диалог (или заставив бродяг-айтишников) использовать его в сотнях программ.

В очередной раз привожу примеры - универсальное иллюстрированное XML-меню. В него можно занести любые данные, причем с описаниями и иллюстрациями. Само меню находится в текстовом файле, который изменяют и дополняют даже "смышленые тетки".

Прикладной программист в ЛИСП просто вызывает функцию наподобие

Код:

[Выделить все]

 (ru-xml-select-macro full_xml_file_name  dlg_caption)

Эта функция покажет диалог, даст возможность с ним работать, включая изменение "на лету" иллюстраций. При выборе какого-то пункта диалог вернет в ЛИСП строку из атрибута macro.

А строка меню имеет вид наподобие

Код:

[Выделить все]

   <item name="Опора ОПХ2-100.108 для трубы Ду 100" image="3d\support\ru_3d_oph2_2.png" comment="Опора с бугелем по ГОСТ 14911-82" macro="(ru-3d-support-oph2-2 108.0 12.0 128.0 3.0 50 100 170 20 100 38 45 120)" />

В примере строка macro

Цитата:

(ru-3d-support-oph2-2 108.0 12.0 128.0 3.0 50 100 170 20 100 38 45 120)

будет передана в ЛИСП. А там должна быть уже чисто лисповская функция рисования с именем ru-3d-support-oph2-2 и аргументами, включающими необходимые размеры.

И такой единственный диалог может быть использован в 90% программ. Да еще несколько могут пригодиться - выбор из списка, ввод числе и т.п. Сделать их проще, чем мучиться с одним DCL, в котором то строки не входят, то всё растягивается.

У меня сделано в Delphi, но точно так же может быть сделано в любой нормальной среде программирования. А вот само рисование удобней делать в ЛИСП.

Кулик Алексей aka kpblc · 05.09.2018, 16:39

CalcProg, и Lazarus, и VS, и C++, и ассемблер - да хоть кого! - упоминай сколько угодно. Но вы же начали что-то обсуждать. Причем обсуждать очень странно, часть на форуме, часть явно через ЛС. Я и говорю - либо обсуждение явно нового проекта, не относящегося к lsp/dcl, вести в ЛС, либо в новой теме.

protorgovec · 06.09.2018, 07:30

Цитата:

Сообщение от Кулик Алексей aka kpblc

3. Уйти с dcl в сторону C# / VB.NET ...

Алексей, добрый день. Скажи пожалуйста. Могу ли я полностью уйти с lisp на C#, при этом составлять код в VB.Net совсем не используя lisp? и только с помощью C# делать в автокаде все что угодно?

trir · 06.09.2018, 07:53

Цитата:

Могу ли я полностью уйти с lisp на C#, при этом составлять код в VB.Net совсем не используя lisp? и только с помощью C# делать в автокаде все что угодно?

можешь, только VB.Net и C# - разные ЯП

protorgovec · 06.09.2018, 08:09

Цитата:

Сообщение от trir

можешь, только VB.Net и C# - разные ЯП

Во, узнал насколько я туп

теперь знаю что это разные языки

Хорошо, могу ли я на платформе Visual studio пользуясь языком C# делать все что угодно в автокаде. Вообще не используя lisp?

trir · 06.09.2018, 08:23

конечно, есть вещи которые можно сделать только на lisp'е - работа с динамическими блоками например, но даже на lisp'е это очень не просто
а так по функционадьности NET API уступает только ObjectARX

protorgovec · 06.09.2018, 08:32

Цитата:

Сообщение от trir

конечно

А вообще, какой ЯП самый мощный?

trir · 06.09.2018, 08:50

c++, но это не правильный вопрос ;=)

protorgovec · 06.09.2018, 08:53

Цитата:

Сообщение от trir

c++

Может мне тогда, раз уж я ни один из них не знаю, сразу на C++ переходить? На какой платформе пишется код? В Visual Studio это возможно?

Boxa · 06.09.2018, 08:55

Цитата:

Сообщение от trir

есть вещи которые можно сделать только на lisp'е - работа с динамическими блоками например

Не вводите в заблуждения. Работа с динамическими блоками в .NET реализована более чем полно, часто встречал обратное, некоторые вещи которые можно делать с дин блоками в NET, в лиспе не получиться.

Если Вам не нужны собственные объекты, то смысла лезть в C++ (ObjectARX) лично я не вижу, да и если нужны... то же варианты есть. Для инженера возможностей C# более чем достаточно.

protorgovec · 06.09.2018, 08:58

Цитата:

Сообщение от Boxa

Не вводите в заблуждения. Работа с динамическими блоками в .NET реализована более чем полно, часто встречал обратное, некоторые вещи которые можно делать с дин блоками в NET, в лиспе не получиться.

Если Вам не нужны собственные объекты, то смысла лезть в C++ (ObjectARX) лично я не вижу, да и если нужны... то же варианты есть. Для инженера возможностей C# более чем достаточно.

мне нужен язык, с помощью которого я сделаю все что угодно в автокаде. Вообще не используя иные ЯП

trir · 06.09.2018, 09:05

Цитата:

В Visual Studio это возможно?

возможно

Цитата:

сразу на C++ переходить?

не стоит, он сложнее и писать на нём придётся больше

Boxa · 06.09.2018, 09:08

Все что угодно и на С++ сделать не получиться, т.к. набор инструментов ограничен производителем ПО, но да, для С++ набор инструментов самый большой.
Однако и порог вхождения в этот язык несколько выше чем на .NET, оправдано ли это... если хотите стать проф. программистом, то да, если вам нужно решать инженерные задачи, то смысла тратить на это время нет.
Впрочем, решать Вам.

Цитата:

Сообщение от protorgovec

Вообще не используя иные ЯП

Я не использую другие языки, для акада пишу на С#, пока проблем не было, в "потолок" не уперся.

trir · 06.09.2018, 09:10

Цитата:

Я не использую другие языки, для акада пишу на С#

уверен? RegEx, SQL, XML, LINQ

protorgovec · 06.09.2018, 09:11

Всем спасибо! Ухожу с данного блога, встретимся с новыми вопросами уже в C#

Сергей812 · 06.09.2018, 09:18

Offtop:

Цитата:

Сообщение от protorgovec

мне нужен язык, с помощью которого я сделаю все что угодно в автокаде.

пишите сразу тогда уж свой акад))
не язык программирования определяет "потолок" возможностей человека - просто lisp наименее подходящий для задач с развитыми интерактивными диалогами. Зачем вообще его выбрали, какой "профи" вам это посоветовал...

Цитата:

Сообщение от trir

уверен? RegEx, SQL, XML, LINQ

хм?

trir · 06.09.2018, 09:22

начинай

protorgovec · 06.09.2018, 09:30

Цитата:

Сообщение от Сергей812

Offtop:
пишите сразу тогда уж свой акад))
не язык программирования определяет "потолок" возможностей человека - просто lisp наименее подходящий для задач с развитыми интерактивными диалогами. Зачем вообще его выбрали, какой "профи" вам это посоветовал...

хм?

Да ни кто не советовал. Просто узнал что при автокаде есть lisp, и начал его изучать

Boxa · 06.09.2018, 09:37

Цитата:

Сообщение от trir

уверен? RegEx, SQL, XML, LINQ

Вполне, если можно так сказать, это библиотечные функции (расширения) языка и почти всё перечисленное не является самостоятельными языками программирования (SQL - это то самое почти) для работы с базами можно и ADO.NET использовать и не сильно то в SQL залезать.

Offtop: Language Integrated Query (LINQ) — проект Microsoft по добавлению синтаксиса языка запросов, напоминающего SQL, в языки программирования платформы .NET Framework. Ранее был реализован в языках C# и Visual Basic .NET.
RegEx - System.Text.RegularExpressions.Regex Пространство имен: System.Text.RegularExpressions т.е NET библиотека и т.д.

Таким темпом WPF, WinForms, JSON и прочие технологии можно за отдельный язык продать...

Что то сильно в оффтоп ушли, админ огорчиться.

trir · 06.09.2018, 09:54

Цитата:

Я не использую другие языки, для акада пишу на С#

regular expressions — формальный язык поиска
structured query language — «язык структурированных запросов»
XML - eXtensible Markup Language
Language Integrated Query (LINQ)
JSON - JavaScript Object Notation, фактически JavaScript
WPF - XAML eXtensible Application Markup Language

фактически когда мы пишим на C# - мы используем и другие специалезированные языки

Boxa · 06.09.2018, 10:04

Offtop: trir, ну да, а VBA, C#, F# - вообще не языки, в названии то слова Language нет =о)
Перед началом дискуссии мы не договорились о понятиях, а потому под ЯП каждый понимает что то свое, при таком подходе развивать данный диалог, тем более не относящейся к теме топика, не вижу смысла.

Сергей812 · 06.09.2018, 10:05

Цитата:

Сообщение от trir

regular expressions — формальный язык поиска
structured query language — «язык структурированных запросов»
XML - eXtensible Markup Language
Language Integrated Query (LINQ)
JSON - JavaScript Object Notation, фактически JavaScript
WPF - XAML eXtensible Application Markup Language

а еще используем английский, родной литературный и не совсем литературный (в трудные моменты творчества) язык.. Имхо, ТС достаточно знать, что большая часть всего этого есть в .NetFramework, без которого просто не запуститься акад - и поэтому он смело может использовать все это в своей программе - не боясь за работоспособность на других машинах. С учетом версий и разрядности акада, конечно...

ShaggyDoc · 06.09.2018, 10:18

Цитата:

Сообщение от trir

конечно, есть вещи которые можно сделать только на lisp'е - работа с динамическими блоками например, но даже на lisp'е это очень не просто
а так по функционадьности NET API уступает только ObjectARX

Без Lisp совсем не обойтись. Хотя бы для того, чтобы запустить любую другую программу.

И многие вещи на LISP делаются гораздо проще базовыми средствами самого языка, без подключения каких-то библиотек.
Вот эта строчка

Код:

[Выделить все]

 (apply 'mapcar (cons 'list lst))

заменяет несколько страниц кода на "нефункциональных языках". Это "переворачивание" местами колонок и строк в какой-нибудь таблице. Любых размеров. Да и вообще работа со списками.

Конкретно в Автокад на Лисп удобнее делать многие вещи. Типичный пример - вставить много раз блок, но так, чтобы он висел на курсоре, его было видно. А не сначала указать точку, а потом в нее вставится блок.

Просто надо знать и умело применять разные средства. Конечно, для диалогов ЛИСП подходит менее всего.

CalcProg · 06.09.2018, 10:20

protorgovec, я бы не советовал бросать лисп.
я лично разбиваю программу на две части.
ввод данных и вычисление в лазарусе.
черчение в автолиспе.

а то что вижуальщики тебе напели, что в Си# всебудет легко и просто не верь.
начни с яп по проще VB.net.

trir · 06.09.2018, 10:22

Цитата:

а потому под ЯП каждый понимает что то свое

я не говорю, чтоэто ЯП, я говорю что эти языки, которые нужно знать
например для работы с WPF полезно (хотя и не обязательно) знать XAML и XML

Цитата:

начни с яп по проще VBA.net.

VB.net, я так начинал, а ещё пришлось переводить кучу примеров с C# на VB.net- в принципе C# я так и выучил

начинать с VB.net может быть проше, только если есть опыт с VBA

Цитата:

я лично разбиваю программу на две части.

я тоже так делаю, просто это разные классы

Цитата:

Хотя бы для того, чтобы запустить любую другую программу.

необязательно

Сергей812 · 06.09.2018, 10:28

Offtop:

Цитата:

Сообщение от CalcProg

VBA.net.

VB.Net может?)

----- добавлено через ~5 мин. -----

Цитата:

Сообщение от trir

WPF полезно (хотя и не обязательно) знать XAML и XML

не путайте ТС - ему то как раз с XAML работать для создания интерактивных диалогов) Хотя может и WinForms обойдется..

trir · 06.09.2018, 10:40

в WPF также как и в WinForms можно создавать окошки мышкой и не глядя на XAML

Сергей812 · 06.09.2018, 11:15

Offtop:

Цитата:

Сообщение от trir

в WPF также как и в WinForms можно создавать окошки мышкой и не глядя на XAML

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

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Реконструкция подвала при свайных фундаментах, возможно такое решение?	Наиль	Основания и фундаменты	2	20.09.2013 10:43
Уменьшение теплоносителя после прогрева, возможно ли?	vikkiners	Отопление	2	24.07.2013 12:57
А возможно ли такое!??! Вопрос нефтяникам и буровикам	Botan	Разное	5	21.09.2009 20:12
XML и LISp - Такое возможно?	Diman111	LISP	3	03.03.2008 19:06
Возможно сделать такое перекрытие?	Alexcons_2	Конструкции зданий и сооружений	3	08.01.2008 14:45