[paradoxvaha]

День добрый!
Кто может подсказать как правильно вызвать функцию, чтобы поместить в неё исходные данные, такой пример:

Код:

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

(defun obshaya_to4ka ()
(setq n 0
      k 0
      p1 0
      p2 0
      p3 0
      p4 0
      p5 0)
(setq k (length poliline))
(setq p3 (car liline))
(setq p4 (last liline))
 (repeat (- k 1)
   (setq p1 (nth n poliline))
   (setq p2 (nth (+ n 1) poliline))
   (setq p5 (inters p1 p2 p3 p4))
   (setq n (+ 1 n))
 );repeat
);defun

Вызов я пытаюсь организовать так:

Код:

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

(setq j (obshaya_to4ka
(setq poliline spis_toch_line_pov)
(setq liline (list (list 30000. 10000.) (list 10000. 40000.))) 
        );_ end of obshaya_to4ka
);_ end of setq

Ничего не выходит, исходные данные не воспринимаются функцией....
Вобщем идея такая - необходимо чтобы я, вызывая функцию "obshaya_to4ka", вводил бы в неё исходные данные, в моем случае - в переменную "poliline" надо каким то образом внести список двумерных точек, а в переменную "liline" просто список из двух точек... Дальше вроде бы должно работать... Кто что посоветует????

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

скобку забыл:

Код:

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

(setq j (obshaya_to4ka)

[Profan]

Судя по
);_ end of obshaya_to4ka
он не забыл скобку.
Другое дело, что это вообще за конструкция?

[VVA]

Ну тогда или так

Код:

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

(setq j (obshaya_to4ka))
(setq poliline spis_toch_line_pov)
(setq liline (list (list 30000. 10000.) (list 10000. 40000.)))

Или так

Код:

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

(setq j (obshaya_to4ka)
  poliline spis_toch_line_pov
    liline (list (list 30000. 10000.) (list 10000. 40000.))
);_ end of setq

Как говорится, найдите 2 отличия

*** Добавлено***
Ф-ция obshaya_to4ka не имеет аргументов
(defun obshaya_to4ka ()

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

> Profan : Ну перепутал товарищ скобки, ну с кем не бывает...

[_Eugene]

Не совсем понял, в чем проблема. Если нужна функция с аргументами, тогда:
(defun obshaya_to4ka ( poliline liline / )
...
)
ну и вызов функции:
(setq j (obshaya_to4ka spis_toch_line_pov
(list (list 30000. 10000.) (list 10000. 40000.)))
),
если я что-то в чем-то понимаю...

[VVA]

_Eugene, Все правильно. Судя по тому, что в ф-ции учавствуют переменные poliline и liline, то или как в #6 (исправив pline на poliline) либо так (аналогично #4 только изменен порядок присвоения переменных)

Код:

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

(setq poliline spis_toch_line_pov)
(setq liline (list (list 30000. 10000.) (list 10000. 40000.)))
(setq j (obshaya_to4ka))

[paradoxvaha]

Всем огромное спасибо, общими усилиями всё заработало как надо!!!