[Варгин]

Подскажите плз, можно ли средствами лиспа прорисовывать объект по движению мыши, как например черчение окружности, элипса и т.д., но своей собственной геометрии. Если нельзя, то может кто-нибудь подскажет на чём нить другом можно. А если всё-таки можно, то с помощью каких функций, и если можно, ссылочку, где об этом написано.

Задача в создании тулбара, и хотелось бы, чтобы юзер видел конечный результат до окончательного ответа.

Извините за ламерство, ибо не программист!

[AY]

Задача не из простых. Особенно елси Вы мало знакомы с лиспом.

Тем не менее если говорить о задаче "прорисовать объект по движению мыши" то предложу осмотреть тему в следующей ссылке:
http://www.autocad.ru/cgi-bin/f1/board.cgi?t=20084JC

[Варгин]

Задача была решена успешно не без неоценимой помощи AY.

Спасибо большое.

[ShaggyDoc]

Вот пример противоположной задачи - стирать все, что попадет под курсор, без лишних нажатий кнопок. Можно рассматривать как простой пример использования grread. При желании можно использовать как скелет для создания еще более полезных (или более бесполезных действий).

Код:

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

(defun C:RUB (/ key mode point selection *error*)

  (defun *error* (msg)
    (vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))
    (vl-cmdf  "_.U")
    (princ "\nСтирание отменено\n")
    (princ)
  ) 

(vla-startundomark (vla-get-activedocument (vlax-get-acad-object)))
  (setq key 3
        mode t
  )
  (while (or (= key 3) (= key 5))
    (cond ((= key 3)
           (princ
             (if (setq mode (not mode))
               "\nРежим ЛАСТИК (клик = приостановить стирание) <Выход>"
               "\nУкажи точку для запуска режима ЛАСТИК <Выход>"
             )
           )
          )
          ((not mode))
          (t
           (if (setq selection (ssget (cadr point)))
             (entdel (ssname selection 0))
           ) 
          )
    ) 
    (setq key (car (setq point (grread t 4 2))))
  ) 
  (princ "\nРабота команды завершена.")
  (vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))
  (princ)
)

[AY]

>Варгин В чем уж такая неоценимость помощи в толк не возмьу :) расказали б лучше как собственно все решилось.

>ShaggyDoc Интересный эфект: у меня при повторном вызове команды rub правым кликом работа заканчивается не начавшись. Может это grread успевает перехватить правый клик?

[ShaggyDoc]

Сообщение от AY >ShaggyDoc Интересный эфект: у меня при повторном вызове команды rub правым кликом работа заканчивается не начавшись. Может это grread успевает перехватить правый клик?

Возможно. Механизм реализации grread неизвестен, да и что Автокад делает с буфером устройств ввода неизвестно.

Я такого эффекта ранее не замечал, SHORTCUTMENU всегда не 0, поэтому по правому клику появляется контекстное меню, а не выполняется сама команда. При SHORTCUTMENU=0 действительно правый клик проскакивает.

Как бороться (и стоит ли) пока не соображу.