Сообщество программистов Autodesk в СНГ

ADN Club => AutoLisp / VisualLISP и DCL => Тема начата: 1958 от 08-10-2024, 20:29:45

Название: Функция grvecs
Отправлено: 1958 от 08-10-2024, 20:29:45
Столкнулся с такой проблемой. Функция grvecs в AC2007 работает, в AC2022 и AC2024 не работает.
Код - Auto/Visual Lisp [Выбрать]
  1. (defun c:66 (/)
  2.  (setq cont 1
  3.        wr 100
  4.        hr 50
  5.  )
  6.  (while (= cont 1)
  7.   (redraw)
  8.   (setq x (grread t))
  9.   (if (= (car x) 5)
  10.    (progn (setq xt     (car (cadr x))
  11.                 yt     (cadr (cadr x))
  12.                 p1 (list xt yt)
  13.                 p2     (list xt (+ yt hr))
  14.                 p3     (list (+ xt wr) (+ yt hr))
  15.                 p4     (list (+ xt wr) yt)
  16.           )
  17.           (grvecs (list 256 p1 p2 p2 p3 p3 p4 p4 p1))
  18.    )
  19.    (setq cont 0)
  20.   )
  21.  )
  22.  (redraw)
  23.  (princ)
  24.  (vl-cmdf "_.rectangle" p1 p3)
  25.  (princ)
  26. )

То есть на курсоре висит прямоугольник размером 100х50, который перемещается с курсором. После указания точки, строится прямоугольник. Так вот, в версии автокада 2007 этот прямоугольник на курсоре отображается. В версиях 2022 и 2024 прямоугольника не видно, но он вставляется в чертеж в указанной точке. В чем может быть проблема?
Название: Re: Функция grvecs
Отправлено: Александр Ривилис от 09-10-2024, 23:22:09
Обычно это связано с включенным аппаратным ускорением видео в AutoCAD.
Название: Re: Функция grvecs
Отправлено: 1958 от 10-10-2024, 04:41:16
Точно! Спасибо!