[FSergio]

Пытаюсь написать программу котороя дожна рисовать "box" на определённую величину меньше чем указанный точками.

(setq
p1 (getpoint)
p2 (getpoint)
)
(setq
u1 (list (+ (nth 0 p1) 200.0) (+ (nth 1 p1) 200.0) (+ (nth 2 p1) 200.0))
)

(command "_.box" u1 p2)

в разных ситуациях программа работает по разному но практически всегда уменьшает бокс лишь по оси z хотя при отладке видно что переменные которые задают координаты точек вычисляются правильно.
В чём ошибка?

[Дима_]

В не отключенных привязках (ищи по форуму - стандартная ошибка начинающих лиспописателей).

[Alan]

Сообщение от FSergio (setq u1 (list (+ (nth 0 p1) 200.0) (+ (nth 1 p1) 200.0) (+ (nth 2 p1) 200.0)) )

ну и правильнее выделять координаты с помощью функций:
(car p1) - X;
(cadr p1) - Y;
(caddr p1) - Z.

[FSergio]

Огромное Спасибо! Дело на самом деле в привязках. Не до конца покка правда разобрался как их временно отключать. Вообще довольно странно что при явном указании координат точки в AutoCAD такой проблемы с привязками не возникает а здесь...


(car p1) - X;
(cadr p1) - Y;
(caddr p1) - Z
Я пробовал изначально результат был тот же. Думал в этом проблема поэтому изменил

[Alan]

Была хорошая тема http://forum.dwg.ru/showthread.php?t...F0%F3%E3%E8%E5 Почитайте...
А с п.36 начните изучение

[FSergio]

Ну а вот так почему не работает? В конце запрашивает у меня высоту бокса ???????
(setq
p1 (getpoint)
p2 (getpoint)
)
(setq
u1 (list (+ (nth 0 p1) 200.0) (+ (nth 1 p1) 200.0) (+ (nth 2 p1) 200.0))
)

(setq old_osmode (getvar "osmode"))
(setvar "osmode" 0)
(command "_.box" u1 p2)
(setvar "osmode" old_osmode)

[Makson]

Сообщение от FSergio В конце запрашивает у меня высоту бокса ???????

Это Вы вопрос себе или нам задаете?Или это все таки утверждение?

[FSergio]

Это вопрос. Я вставил отключение привязок
(setq old_osmode (getvar "osmode"))
(setvar "osmode" 0)
(command "_.box" u1 p2)
(setvar "osmode" old_osmode)
и программа перестала нормально работать. А если привязки отключить вручную то всё работает.

[Makson]

Что значит перестала нормально работать? Что выдает?

[FSergio]

Запрашивает либо длинну либо высату а бокс не строит

[Makson]

НУ так правильно...при построении box ты должен указать две точки и высоту. Точки ты указал, далее высоту нужно указать.

[FSergio]

нет. Если отключена привязка вручную то всё строится нормально указанием двух точек с разными координатами по всем трём осям и всё строится так как надо. А вот когда я попытался на время выполнения отключить привязку програмно бокс не строится.

[Makson]

Бред какой то. По двум точкам ни как нельзя построить бокс. Для бокса нужно три координаты. По двум точкам трехмерный объект нельзя ни как построить.

[Oliver_88]

FSergio, с консоли ваш код (пост №6) прекрасно работает.

[FSergio]

что значит нельзя? вызовите команду _box задайте координаты первой точки 0,0,0 к примеру, затем второй 1000,1000,1000
Будет построен бокс. Я проделал это наверное 1 000 000 раз строя панели мебели от оодного угла до другого.

[mamuk]

Сообщение от FSergio (command "_.box" u1 p2)

ты вот так попробуй (command "_.box" u1 p2 p1) и почередуй поученные координаты
у тебя же в u1 одна координата вычисляется
просто посчитай сколько раз мышью щелкаешь кода box рисуешь так точно и в встроке должнобыть (command "_.box" u1 p2 p1)
может ты куб хочешь посторить то для него необходимо два щелчка +опция команды [куб]

[Makson]

Могу предположить что если обе указанные вами точки лежат в плоскости X-Y то в данном случае программа требует указать высоту.(проверьте с помощью print).
И соответственно не работает.

[FSergio]

Или лыжи не едут или я...
Если я выполняю команду "box" (p1 p2) то строится бокс от точки с координатами p1 до точки с координатами p2
далее я вычасляю координаты новой точки уменьшая значение по всем трём осям на определённую величину.
Строю "box" первая точка с координатами p1 а вторая с вычесленными ранее координатами.
Всё прекросно работает (ЕСЛИ ЗАРАНЕЕ ОТКЛЮЧИТЬ ОБЪЕКТНУЮ ПРИВЯЗКУ ВРУЧНУЮ!!!)
Чтобу не делать этого каждый раз я временно (перед выполнением команды "box") объектную привязку, но бокс не строится а вместо этого запрашевает hight но я же не задаю бокс через wight lenght hight a указываю две точки.
Проблема однозначно в коде отключения привязки потому что до отключения привязки вручную и программно была такая же проблема (запрашивал hight)
Выключая объектную привязку вручную проблема устраняется а програмно нет.
Вот с этим я не могу разобратся. Что то не так с програмным отключением привязки.

[mamuk]

Сообщение от FSergio Проблема однозначно в коде отключения привязки потому что до отключения привязки вручную и программно была такая же проблема (запрашивал hight)

проверь переменную OSNAPZ может она влияет

[FSergio]

Вот это очень очень похоже на причину. А как проверить?

Это однозначно из за неё получется что при отключении привязки osnapz устанавливается 1 ?