[proektant-minsk]

Пример взят из Полещука

show_tpos.lsp
Пример функции, вызывающей простое диалоговое окно из файла d_tpos.dcl (см. лис-
тинги 3.1 и 3.2).
Загрузка: (load "show_tpos.lsp")
Вызов: (show_tpos)

Код:

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

 
(defun show_tpos ( / dcl_id)
  (if (< (setq dcl_id (load_dialog "d_tpos.dcl")) 0)(exit))
  (if (not (new_dialog "np_tpos" dcl_id)) (exit))
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
);defun show_tpos

Код:

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

 np_tpos: dialog{label="Íàñòðîéêà äàííûõ ïîñòåëè è òàáëèöû";
  :edit_box{label="Øèðèíà òàáëèöû";key="kShir";value="750";edit_width=6;}
  :edit_box{label="Âûñîòà òàáëèöû";key="kVys";value="300";edit_width=6;}
  :edit_box{label="Âûñîòà áóêâ";key="kHbuk";value="180";edit_width=6;}
  :spacer{height=1;}
  :edit_box{label="Êîëè÷åñòâî áàëîê";key="kNumbalk";
            value="8";edit_width=6;}
  :edit_box{label="Êîëè÷åñòâî êîêñîâ â áàëêàõ";key="kNumkoks";
            value="17";edit_width=6;}
  :spacer{height=1;}
  :radio_row{label="Áàëêè ðàñïîëàãàþòñÿ â òàáëèöå";
    :radio_button{label="ïî ñòîëáöàì";key="kPoStolb";value="1";}
    :radio_button{label="ïî ñòðîêàì";key="kPoStrok";value="0";}
  }
  :spacer{height=1;}
  ok_cancel;
}// êîíåö np_tpos

помещаю оба данных файла в сборку vlx
из автокада данный vlx-файл загружаю
(show_tpos) в коммандную строку ввожу
и...


...нефига

[Кулик Алексей aka kpblc]

Может, и без vlx можно обойтись?

[gomer]

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

[proektant-minsk]

Спасибо, я эту статью прочел еще раньше, однако и сам автор за меня очень хорошо выразился по поводу проблемы
"И молиться всем богам, чтобы пользователь правильно расположил файлы и ничего при этом не потерял. Или второй вариант – компилировать оба файла в vlx и отдавать уже скомпилированную сборку."
Мою сборку будут юзать и другие люди, и довольно большое количество, и каждому обьяснять что файлик с буковками dcl на конце, нужно хранить обязательно в этой папочке я не могу и не хочу.
Изучать DCL начал недавно (вчера ) и сразу возникло желание скомпилировать что-нибудь готовенькое, однако в первом посте изложил что из этого вышло.
Может быть я что-то не так понимаю, но разве когда в сборку vlx я помещаю *dcl И *lsp файлы, то разве функция в файле *lsp (load_dialog "d_tpos.dcl") не должна искать файл d_tpos.dcl вyenhb сборки???

[Дима_]

Сообщение от proektant-minsk Изучать DCL начал недавно

Сугубо ИХМО - бросьте это дело (как это давно сделала сама автодеск), на сегодняшний день в DCL, кроме понимания того - как раньше было плохо, ничего полезного нет - рано или поздно Вы придете к тому чего DCL не может - и придеться все коментировать и переписывать (у меня после нескольких таких "расширяемых" проектов на DCL табу - какая бы простая задача изначально не казалась) - учиться лучше на чужих ошибках.

[proektant-minsk]

Дима_, спасибо за совет. Но вопрос свой не снимаю.

[Кулик Алексей aka kpblc]

Не помешает немного изменить код lisp:

Код:

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

 
(defun show_tpos (/ dcl_id)
  (if (< (setq dcl_id (load_dialog "d_tpos")) 0)
    (progn
      (alert "Ошибка загрузки диалога")
      (exit)
      ) ;_ end of progn
    ) ;_ end of if
  (if (not (new_dialog "np_tpos" dcl_id))
    (progn
      (alert "Ошибка создания диалога")
      (exit)
      ) ;_ end of progn
    ) ;_ end of if
  (start_dialog)
  (unload_dialog dcl_id)
  (princ)
  ) ;_ end of defun

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

[Vov.Ka]

и компилится и диалог показывает (с кракозябрами, конечно)
че-то автор напутал, наверное

[gomer]

Сообщение от Кулик Алексей aka kpblc (setq dcl_id (load_dialog "d_tpos"))

достаточно, если это vlx
тоже самое с (new_dialog "np_tpos" dcl_id)

Сообщение от Vov.Ka и компилится и диалог показывает (с кракозябрами, конечно)

нечего прямо из vlide сюда копировать

[Евгений А.]

Разные настройки компиляторов - поэтому не у каждого может скомпилироваться.
Во-первых пропиши адрес dcl файла полностью начиная с диска.
Во-вторых начни код так:

Код:

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

 (vl-doc-export 'show_tpos)
(defun show_tpos ( / dcl_id)....

либо используй имя функции типа "c:show_tpos" - тогда к ней будет общий доступ.

[Alan]

Сообщение от proektant-minsk Или второй вариант – компилировать оба файла в vlx и отдавать уже скомпилированную сборку." Мою сборку будут юзать и другие люди, и довольно большое количество, и каждому обьяснять что файлик с буковками dcl на конце, нужно хранить обязательно в этой папочке я не могу и не хочу. Изучать DCL начал недавно (вчера ) и сразу возникло желание скомпилировать что-нибудь готовенькое, однако в первом посте изложил что из этого вышло.

Не знаю как Вы компилируете оба файла в vlx , надеюсь что по-теории, т.е. компилируете Проект (или 1 файлик). Или по другому?

Я делаю так.
Чтобы сборка была правильной, необходимо проверить свойства...
Файл-Собрать приложения-Свойства имеющихся приложений. И тогда в закладке "Загрузка файлов" указываете Проект, а в закладке "Файлы ресурсов" - файлы Dcl...
Для проверки. После компиляции исходный текст DCL будет виден в конце файла VLX при просмотре в текстовом редакторе.