[Alias]

Ни стого ни с сего автокад 2008 стал неправилно рисовать именно прямоугольники. Ввожу одни координаты получаю в результате совсем не то. Может какая переменная слетела? Может что с дин. вводом?

Вот кусок из текстового окна:

Command: _rectang
Specify first corner point or [Chamfer/Elevation/Fillet/Thickness/Width]:
Specify other corner point or [Area/Dimensions/Rotation]: 200,300 (введенные координаты ввожу через клавишу Tab)
Command:
Command: bbox3d (это лисп определения габаритов объета)
Select object: (598.427 264.335 0.0) - полученные реально размеры прямоугольника

[357]

Сообщение от Alias координаты ввожу через клавишу Tab

Вот уж действительно: Век живи - век учись! Я и не знал, что так производится ПРАВИЛЬНЫЙ ввод значений... Кстати: а

Сообщение от Alias 200,300

это координаты?

[gomer]

Сообщение от 357 это координаты?

это длина и ширина. Вариантов много может быть, но 80% что причина весьма банальна

[357]

Сообщение от gomer это длина и ширина

нееееееее, все-таки это

Сообщение от Alias 200,300 (введенные координаты ввожу через клавишу Tab)

[skif58]

Сообщение от Alias Specify other corner point or [Area/Dimensions/Rotation]: 200,300 (введенные координаты ввожу через клавишу Tab)

Если через ТАБ в ДИНвводе, то должно быть: @200,300. Это значит в Настройке динввода стоят Абсолютные, а не Относительные координаты (ПКМ на кнопке ДИН - Настройка...)

[Alias]

не ... ну конечно через Tab длина и ширина.... ночь была... чушь написал...

skif58 - СПАСИБО все исправил все работает. А чего слететь то могло... ??
Утром вспомнил было уже когда-то такое...

[skif58]

Alias, тем не менее, в команде _rectang @200,300 - это относительные координаты второго угла прямоугольника (относительно первого).

[Alias]

Понял... намотал на Ус, зарубил на нос

[skif58]

Молодец!

[Enginner_BMS]

Подскажите, почему перестал работать данный простой код на Visual LISP, который чертит N прямоугольников неправильно (см. вложения)? Прямоугольники сверху должны получиться чем-то похожими на прямоугольники снизу, как в файле «Чертёж неправильный 4.dwg». Текст кода получается в MS Excel. Использую AutoCAD 2018.
[IMG]http://i.*******info/i9/efd52558df98a9ac3d92e225450f5387/1604414964/9049/1398597/Priamougolnyky_500.jpg[/IMG][IMG]http://i.*******info/a3/2020-11-03-14-49/i9-14052720/414x402-r/i.gif[/IMG]
Нормально ли, что код на 38 команд выполняется в течение 10 с?

Код:

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

 (command "_rectangle" '(-7.93 -7.85) '(7.93 7.85) "")
(command "_rectangle" '(-7.698 7.498) '(-7.348 7.678) "")
(command "_rectangle" '(-7.542 -7.687) '(-7.192 -7.507) "")
(command "_rectangle" '(-6.742 -7.687) '(-6.392 -7.507) "")
(command "_rectangle" '(-5.942 -7.687) '(-5.592 -7.507) "")
(command "_rectangle" '(-5.151 -7.687) '(-4.801 -7.507) "")
(command "_rectangle" '(-4.381 -7.687) '(-4.031 -7.507) "")
(command "_rectangle" '(-3.611 -7.687) '(-3.261 -7.507) "")
(command "_rectangle" '(-2.84 -7.687) '(-2.49 -7.507) "")
(command "_rectangle" '(-2.07 -7.687) '(-1.72 -7.507) "")
(command "_rectangle" '(-1.299 -7.687) '(-0.949 -7.507) "")
(command "_rectangle" '(-0.529 -7.687) '(-0.179 -7.507) "")
(command "_rectangle" '(0.381 -7.687) '(0.731 -7.507) "")
(command "_rectangle" '(1.172 -7.687) '(1.522 -7.507) "")
(command "_rectangle" '(1.962 -7.687) '(2.312 -7.507) "")
(command "_rectangle" '(2.753 -7.687) '(3.103 -7.507) "")
(command "_rectangle" '(3.543 -7.687) '(3.893 -7.507) "")
(command "_rectangle" '(4.333 -7.687) '(4.683 -7.507) "")
(command "_rectangle" '(5.124 -7.687) '(5.474 -7.507) "")
(command "_rectangle" '(5.914 -7.687) '(6.264 -7.507) "")
(command "_rectangle" '(6.705 -7.687) '(7.055 -7.507) "")
(command "_rectangle" '(5.755 7.498) '(6.105 7.678) "")
(command "_rectangle" '(4.948 7.498) '(5.298 7.678) "")
(command "_rectangle" '(4.142 7.498) '(4.492 7.678) "")
(command "_rectangle" '(3.337 7.498) '(3.687 7.678) "")
(command "_rectangle" '(2.529 7.498) '(2.879 7.678) "")
(command "_rectangle" '(1.722 7.5) '(2.072 7.68) "")
(command "_rectangle" '(0.941 7.501) '(1.291 7.681) "")
(command "_rectangle" '(0.207 7.5) '(0.557 7.68) "")
(command "_rectangle" '(-0.601 7.5) '(-0.251 7.68) "")
(command "_rectangle" '(-1.396 7.498) '(-1.046 7.678) "")
(command "_rectangle" '(-2.201 7.498) '(-1.851 7.678) "")
(command "_rectangle" '(-3.006 7.498) '(-2.656 7.678) "")
(command "_rectangle" '(-3.811 7.498) '(-3.461 7.678) "")
(command "_rectangle" '(-4.614 7.498) '(-4.264 7.678) "")
(command "_rectangle" '(-5.416 7.498) '(-5.066 7.678) "")
(command "_rectangle" '(-6.216 7.498) '(-5.866 7.678) "")
(command "_rectangle" '(-6.967 7.498) '(-6.617 7.678) "")

[Enginner_BMS]

Сообщение от Enginner_BMS Подскажите, почему перестал работать данный простой код на Visual LISP, который чертит N прямоугольников неправильно (см. вложения)? Прямоугольники сверху должны получиться чем-то Offtop: похожими на прямоугольники снизу, как в файле «Чертёж неправильный 4.dwg». Текст кода получается в MS Excel. Использую AutoCAD 2018.

Оказывается, что при включённой объектной привязке (object snap) для задания прямоугольника с помощью Visual Lisp недостаточно указать команду и абсолютные координаты. Если включена объектная привязка в 2D, то это может повлиять на построения через Lisp (логика разработчиков тут мне не понятна).
В коде Visual Lisp необходимо добавить перед командой _rectangle cохранение текущего значения данного системного параметра, а после его возвращение в исходное значение:

Код:

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

 (setq OS (getvar "OSMODE"));Save current osmode value
(setvar "OSMODE" 0);Unactivate osmode

(command "_rectangle" '(-7.93 -7.85) '(7.93 7.85) "")
…
(command "_rectangle" '(-6.967 7.498) '(-6.617 7.678) "")

(setvar "OSMODE" OS);Restore osmode

Можно ещё конечно вручную перед выполнением кода Visual Lisp выключать объектную привязку через клавишу F3.

Источники:
https://forums.autodesk.com/t5/visua...t/td-p/2059124
https://forum.dwg.ru/showthread.php?t=49091