[Паштет]

Здравствуйте, уважаемые пользователи и програмисты Автокада.
Я пытаюсь разработать приложение для автоматического черчения бергштрихов, с использованием диалогового окна, которое по моей задумке спрашивает у пользователя следующие данные:1)Шаг штриха 2)Длина длинного штриха 3)Длина короткого штриха 4) цвет штриха, затем дает пользователю возможность выбрать, каким образом он будет задавать кооординаты (вручную, или с помощью мыши)
с диалоговым окном проблем не возникло, вот его текс:

Код:

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

Orichuk :dialog{label="Построение бергштрихов";
:boxed_column{:edit_box{label="шаг";
key="O_P";
edit_width=9;}
:edit_box{label="Длина короткого штриха";
key="O_P1";
edit_width=9;}
:edit_box{label="Длина короткого штриха";
key="O_P2";
edit_width=9;}
:edit_box{label="Цвет";
key="O_P3";
edit_width=9;}
:edit_box{label="Указать нач точку";
key="O_P4";
edit_width=9;}
:edit_box{label="Указать конечн точку";
key="O_P5";
edit_width=9;}}
:boxed_radio_column{label="Способ задания начальной точки";
                    :radio_button{label="ввести координаты х у";
                                 key="O_P6";}
                    :radio_button{label="задать с пом мыши";
                                 key="O_P7";
                                 value="1";}}
:row{:button{label="начертить";
key="O_P8";}
cancel_button;
:button{label="помощь";key="op_help1";}}}

Затем начинаю создавать собственно, само приложение:

Код:

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

(DEFUN strich()
       (PRINC "\n start-strich")
       (if (< (setq dcl_id (load_dialog "ЛР 11 Орищук последняя.DCL"))0)(EXIT))
       (IF (NOT (NEW_DIALOG "Orichuk" dcl_id))(exit))
  (SET_TILE "O_P" "10")
  (SET_TILE "O_P1" "20")
  (SET_TILE "O_P2" "5")
  (SET_TILE "O_P3" "1")
  (SET_TILE "O_P4" "0")
  (SET_TILE "O_P5" "0")
  setq pologenie 1
  (ACTION_TILE "O_P" "(razm_op)")
  (ACTION_TILE "O_P1" "(razm_op)")
  (ACTION_TILE "O_P2" "(razm_op)")
  (ACTION_TILE "O_P3" "(color_op)")
  (ACTION_TILE "O_P4" "(koord_op)")
  (ACTION_TILE "O_P5" "(koord_op)")
  (ACTION_TILE "O_P6" "(setq pologenie 1)")
  (ACTION_TILE "O_P7" "(setq pologenie 0)")
  (start_dialog)
  (unload_dialog dcl_id)
  (Done_dialog))

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

[CB]

Не пойму, что это такое?

Код:

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

  (SET_TILE "O_P4" "0")
  (SET_TILE "O_P5" "0")
  setq pologenie 1
  (ACTION_TILE "O_P" "(razm_op)")
  (ACTION_TILE "O_P1" "(razm_op)")

[Sleekka]

Я например юзаю вот это:
http://www.google.ru/search?as_q=Alx...s=&safe=images
плюс примерно вот такие обертки:

Код:

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

;это первое
(command "_dike" pause pause sl_berg_dist_ "x")
  (vl-cmdf)
  (while (> (getvar "cmdactive") 0)(vl-cmdf pause))



;Это второе
    (command "_dike" pause pause sl_berg_dist_ "_mirror" "_x")
  (vl-cmdf)
  (while (> (getvar "cmdactive") 0)(vl-cmdf pause))