[DFooz]

1)В АКАде задаётся через "<"

Как программно можно реализовать?
Как-нибудь по простому можно это осуществить? Мне на ум идёт только геометрические вычисления с проекцией точки курсора на 2-е плоскости, вычисление расстояний до них, т.п. и постоянной перерисовкой отрезка.

2)есть цикл, кот. должен действовать до нажатия левой кнопки мыши
делаю

Код:

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

(while ( /= (car (grread)) 3)
...действия
);

Не работает.

Если же вместо знака неравенства поставить равенство, то действие происходит по нажатию левой кнопки. Значит, по идее при ненажатии должно происходить невыполнение равенства... а оно не происходит :?

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

По второму: посмотри, что возвращает (grread). К примеру, так:

Код:

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

(defun test ()
  (while (/= (car (setq gr (grread 1 15 0))) 3)
    (princ (strcat "\r" (vl-princ-to-string gr)))
    ) ;_ end of while
  ) ;_ end of defun

[Zouss]

вот пример работающего (иногда ) цикла, возвращающего в переменной pt2 координаты точки, где была нажата левая кнопка мыши

Код:

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

(setq
  grinp	(grread T 4 0)
  pt2	(car (cdr grinp))
  E	T
) ;_ setq
(while E				; цикл пока не нажата кнопка мыши 
  (progn
    (setq pt2 (car (cdr grinp))) ;_  setq
    (setq E (/= (car (setq grinp (grread T 4 0))) 3))
    ...действия
  ) ;_ progn 
) ;_ while 
pt2

а по первому я ничего не понял... вам команда _lengthen с опцией DYnamic никак не подойдет?

[DFooz]

(/= (car (setq gr (grread 1 15 0))) 3)
Спасибо. Это условие работает.

Zouss, спасибо, не знал. Это и нужно. Сам отрезок изменяет размеры, но ещё появляется линия соединяющая конечную точку с курсором. От неё можно как-то избавиться?