[===AAA===]

Всем привет!

Нужно сравнить направления линий.

Имеем:

(setq p1 '(1 0) p2 '(-1 -0.5))
(angle p1 p2)

Результат для AutoCAD: 3.38657
Результат для nanoCAD: -2.89661

Можно NC заставить возвращать для углов только положительные
значения (системная переменная там какая-нибудь) или надо свою
функцию преобразования делать?

[koMon]

Сообщение от ===AAA=== направления линий

а что такое в этом конкретном случае направление линии, линия, она же не вектор? а если она не вектор, то можно взять за направление линии арктангенс тангенса угла линии от оси х, ну кроме конечно угла 90 градусов.
например так

Код:

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

 
(atan (apply '/ (reverse (mapcar '- (getpoint "\n1: ") (getpoint "\n2: ") '(0 0)))))

[===AAA===]

Это я адаптировал под NC свою древнючую программу (там даже комменты ещё в DOS-кодировке были). :-)

Она среди прочего рисовала дуги через (command ...)

В Автокаде оно работало шустро, но работать через (command ...) в NC - это те ещё тормоза.

Нет. не так - это ТЕ ЕЩЁ ТОРМОЗА.

Пришлось рисовать дуги через (entmake ...) и разбираться, как посчитать их углы DXF-50, DXF-51.

Уже всё ОК, но сперва это выглядело, как "нежданчик от NC".