ADN Club > AutoLisp / VisualLISP и DCL

Функция grvecs

(1/1)

1958:
Столкнулся с такой проблемой. Функция grvecs в AC2007 работает, в AC2022 и AC2024 не работает.

--- Код - Auto/Visual Lisp [Выбрать] ---(defun c:66 (/) (setq cont 1       wr 100       hr 50 ) (while (= cont 1)  (redraw)  (setq x (grread t))  (if (= (car x) 5)   (progn (setq xt     (car (cadr x))                yt     (cadr (cadr x))                p1 (list xt yt)                p2     (list xt (+ yt hr))                p3     (list (+ xt wr) (+ yt hr))                p4     (list (+ xt wr) yt)          )          (grvecs (list 256 p1 p2 p2 p3 p3 p4 p4 p1))   )   (setq cont 0)  ) ) (redraw) (princ) (vl-cmdf "_.rectangle" p1 p3) (princ))
То есть на курсоре висит прямоугольник размером 100х50, который перемещается с курсором. После указания точки, строится прямоугольник. Так вот, в версии автокада 2007 этот прямоугольник на курсоре отображается. В версиях 2022 и 2024 прямоугольника не видно, но он вставляется в чертеж в указанной точке. В чем может быть проблема?

Александр Ривилис:
Обычно это связано с включенным аппаратным ускорением видео в AutoCAD.

1958:
Точно! Спасибо!

Навигация

[0] Главная страница сообщений