[LastGraff]

Нашел, что в LISPе можно использовать свои классы и создаются они вроде так:

Код:

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

 (defclass AClass ()
  ( 
    (foo :initform 2) 
    (bar :initarg :bar)
  )
)
(setf lobj (make-instance 'AClass :bar 4))
(lobj 'foo) ;; reads slot -> 2
(lobj 'bar) ;; reads slot -> 4
(lobj 'bar 6) ;; sets slot -> 6

но результат -
;ошибка: no function definition: BAR

Может кто-то знает другой способ создания класса?

[LastGraff]

Сообщение от Дима_ Повесить либо один общий реактор на изменение документа, либо на каждый элемент в отдельности (если под каждый примитив надо генерировать отдельную функцию - без замыканих (которых нет в автолиспе) - то это геморно - я бы в большинстве случаев предпочел "общий" вариант - но в зависимости от предполагаемого использования). Данные о нахождении данных хранить либо в расширенных данных самого примитива (ИХМО - более предпочтительный вариант) - либо создавать отдельный список в памяти, либо "расширять" xml на "поле" имени примитива (как вариант можно рассмотреть подходит ли вариант индексации примитивов по сохраняемым признакам - тогда вобще никакие доп. данные не нужны - функция сама определит какую "nod'у" в XML изменить по состоянию до и после изменения).

Пока с этим проблемы:
1) я бы с удовольствием использовал вариант с хранением в расширенных параметрах примитива, но пока не могу понять как их найти... плюс пока не работал с реакторами вообще, поэтому сейчас старательно штудирую материал, коего немеряно, но все же полезности пока не особо много(((

[Дима_]

Откровенно говоря - при всей моей любви к лиспу - данный проект я бы делал без его участия (проект явно не на две строки - скорее всего придется делать какую-то "красивую" связку с xml и пр. - то есть боюсь без "добавок" реализация будет весьма "скудна", а коли они будут - то наверное, в данном случае, лисп особых приемуществ не дает - нет здесь тех вещей в которых он явно выигрывает).

[LastGraff]

Выбора в языке реализации у меня нет( Буду изыскивать возможности)

[gomer]

Сообщение от LastGraff читается XML где указаны типы объектов и их координаты. Средствами лиспа делаем примитивы в автокаде... если происходит изменение одного из примитивов (перемещение) то лисп должен высылать сообщение на сервер, что внесены коррективы. Проблема в том, что я работал раньше с ООП и лисп для меня несколько непонятен. Я бы просто сделал на каждый примитив элемент собственного класса и отслеживал бы его свойства и методы. А как это реализовать функционально пока не знаю...

Мдя, откуда все такие умные берутся? Одному товарищу нужно было в эксцель данные пулять непременно пока он рисует; Вам, LastGraff, вообще на сервер... сначала научитесь понимать то, что именно вам нужно, как сильно вам это нужно и нафига вообще это вам нужно, потом научитесь делать постановку задачи и выбор средств для ее решения и наконец научитесь программировать... Не стоит кичиться знанием ООП... Это ваша как программиста мертвая петля на шее...
теперь по теме... единственным аналогом классов и объектов (хотя даже аналогом это трудно назвать) являются списки точечных пар... все... Некий аналог ООП просматривается при работе с диалоговыми окнами...
Хотите классы, изучайте VBA, там и отслеживание (события) изменений имеется...VBA, к слову тоже имеет некоторые ограничения... но, когда вы это поймете, вам не сложно будет перейти на vb.Net

[Олег (jr.)]

Сообщение от gomer Мдя, откуда все такие умные берутся?

Пока не видел еще чтоб ты чё-то умное сказал..
Ждемс...

[gomer]

Сообщение от Олег (jr.) Пока не видел еще чтоб ты чё-то умное сказал..

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

[alik3001]

Делал эксперимент, Circle наш класс

Код:

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

 (defun getParam (Object nameOfParam);определение метода возвращающего значение параметра nameOfParam
	 (cdr (assoc nameOfParam Object))
)

(setq Circle ;наш класс
       (list 
           (cons 'Radius 10000);радиус
           (cons 'getParam getParam);метод
         )
)

(defun getter (Ent name);геттер(внешняя функция)
  ((cdr (assoc 'getParam Ent)) Ent name); вызов внутреннего метода
)

(setq rad (getter Circle 'Radius))

[dar4]

Зачем вам здесь классы, у вас уже есть объекты - примитивы, отрезки, следите за ними, изменяйте, добавляйте, удаляйте