[HooDRooK]

Вопрос. Необходимо начертить, например, прямоугольник со сторонами a и b. Длины сторон необходимо вводить с формы, проверяя одновременно, ну например, чтобы введённые величины не были больше максимальной.
Вот я не знаю есть ли в ЛИСПе такая возможность?...Было бы в VB вопросов бы не было, но надо чтобы чертился прямоугольник именно с помощью ЛИСПа...
Может есть возможность обмена данными ЛИСПа с VB? Например форма и проверка делается на VB, затем проверенные данные передаются в ЛИСП?...
Помогите.

С Уважением!

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

1. Если разговор именно про VB, то можно попытаться сделать свой СОМ-сервер, который зарегистрировать в системе и обращаться к нему из-под лиспа.
2. Если разговор про VBA, то на форуме была тема про обмен данными между VBA и LISP.
3. Я бы задумывался о dcl-окне, где на каждый text_box прописывается свой action_tile.

[HooDRooK]

Алексей я с ЛИСПом только в последнее время более менее начал общаться (так мельком только в универе изучал), так что если можно, опиши по подробнее про dcl окна.

[-mavlin-]

http://aco.ifmo.ru/~nadinet/html/lectures/dcl_tile.html

[HooDRooK]

А киньте кто нить пример как это можно сделать?...самый простой, чтоб разобраться спокойно...

[-mavlin-]

Вот содержимое dcl файла 000.dcl

Код:

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

name: dialog{label="Название диалога";
:text{label="какойто текст";key="a";alignment=left;}
:edit_box{label="значение";key="b";value="начальное значение";}
ok_only;}

А вот содержимое файла lsp

Код:

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

(defun c:dialog ( / dn zn)
  (setq dn(LOAD_DIALOG "000.dcl"))
  (new_dialog "name" dn "") 
  (setq zn (GET_TILE "b"))
  (ACTION_TILE "b" "(setq zn $value)")
  (START_DIALOG) 
  (UNLOAD_DIALOG dn)
  (princ zn))

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

Еще пример:
файл диалога (в коде прописан как c:\tmp.dcl)

Код:

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

dlg :dialog{label="Название диалога";
	:edit_box{label="Длина х, мм:";key="len_x";}
	:edit_box{label="Длина у, мм:";key="len_y";}
	ok_cancel;
}

и сам лисп

Код:

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

(defun test (/ fun_checklen dcl_file dcl_id dcl_res base_point tmp len_x len_y)

  (defun fun_checklen (key value)
    (if (and (setq value (atof value))
             (> value 0.)
             ) ;_ end of and
      (if (= key "len_x")
        (setq len_x value)
        (setq len_y value)
        ) ;_ end of if
      (progn
        (alert "Нельзя вводить не числа и отрицательные значения!")
        (setq value 0.)
        (if (= key "len_x")
          (setq len_x 0.)
          (setq len_y 0.)
          ) ;_ end of if
        ) ;_ end of progn
      ) ;_ end of if
    (set_tile key (rtos value))
    ) ;_ end of defun

  (if (and (setq dcl_file (findfile "c:\\tmp.dcl"))
           (setq dcl_id (load_dialog dcl_file))
           ) ;_ end of and
    (progn
      (new_dialog "dlg" dcl_id)
      (set_tile "len_x" "0.")
      (set_tile "len_y" "0.")
      (action_tile "len_x" "(fun_checklen $key $value)")
      (action_tile "len_y" "(fun_checklen $key $value)")
      (action_tile "accept" "(done_dialog 1)")
      (action_tile "cancel" "(done_dialog 0)")
      (setq dcl_res (start_dialog))
      (if (= dcl_res 1)
        (progn
          (if (setq base_point (getpoint "\nУкажите базовую точку вставки <Отмена> : "))
            (entmakex
              (list
                '(0 . "LWPOLYLINE")
                '(100 . "AcDbEntity")
                '(100 . "AcDbPolyline")
                '(90 . 4)
                '(70 . 1)
                '(43 . 0.0)
                '(38 . 0.0)
                '(39 . 0.0)
                (cons 10 (setq tmp (list (- (car base_point) (/ len_x 2.)) (- (cadr base_point) (/ len_y 2.)))))
                (cons 10 (setq tmp (polar tmp 0. len_x)))
                (cons 10 (setq tmp (polar tmp (/ pi 2.) len_y)))
                (cons 10 (polar tmp pi len_x))
                ) ;_ end of list
              ) ;_ end of entmakex
            ) ;_ end of if
          ) ;_ end of progn
        ) ;_ end of if
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun

[VVA]

Здесь еще посмотри
Dcl_Tiles.lsp и Dcl_Tiles.dcl

[HooDRooK]

Блин чего то ничего не понимаю...
Создаю 000.dcl загружаю приложение...пишу (c:dialog)...
в ответ nilnil...Как это понимать?

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

Теперь я уже ничего не понимаю. Какой 000.dcl? Какой у него код? Какой лисп запускается?

[HooDRooK]

Это код из поста -mavlin-...После моего по поводу какого нить примера...

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

(findfile "000.dcl") что возвращает?

[HooDRooK]

nil возвращает

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

Значит у тебя сам файл диалога не находится. Помещай его в любой каталог поддержки AutoCAD'a

[HooDRooK]

Вроде заработало...
Так вроде всё понятно, но вот вопрос, а как например если мне надо второе окошко сделать указывать его положение на форме?...координаты как-то прописывать?

name: dialog{label="Название диалога";
:text{label="какойто текст";key="a";alignment=left;}
:edit_box{label="значение";key="b";value="начально е значение";}
ok_only;}

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

Переведи вопрос. Ничего не понял.

[HooDRooK]

короче где прописывается сколько окошек на открывающейся форме и как они распологаются? в коде диалога или ЛИСПа? и каким образом...например мне надо два окошка друг над другом... и чего то смотря на оба кода я как то не смог найти этого...

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

Два окошка - это два окошка. А два элемента диалога - это два элемента диалога. Хоть какой-нибудь скрин сделай (формы хоть на VBA, это сейчас неважно), чтоб понять чего хотишь.

[HooDRooK]

Да согласен что я дурак..)))...два элемента диалога мне надо..))))

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

Так это напрямую в dcl-файле прописывается...