[butlug]

простая программа по отрисовке детали по координатам, запускаю на исполнение - линии косые!, иногда почти все хорошо, но в одном месте вместо двух линий чертит одну по диагонали, пересматривать форум некогда, просто понять не могу - пишу словно 2+2, а получается 5
вводятся две точки - задают нааправление оси
и два числа с клавиатуры, первое толщина линии, второе габаритный размер детали от которой пропорционально определяются координаты другой
текст программы:
(defun c:d()
;секция ввода данных
(setq p1 (getpoint "\nEnter 1 center:"))
(setq p2 (getpoint p1 "\nEnter 2 center:"))
(setq w (getdist p1 "\nEnter width:"))
;секция промежуточных вычислений
(setq h (getdist "\nEnter ligth:"))
(setq a (angle p1 p2))
;
(setq a1 (polar p1 (+ a (/ pi 2)) (* h 0.012)))
(setq a2 (polar a1 a (* h 0.109)))
(setq a3 (polar a2 (+ a (/ pi 2)) (* h 0.006)))
(setq a4 (polar a3 a (* h 0.085)))
(setq a5 (polar a4 (+ a (/ pi 2)) (* h 0.036)))
(setq a6 (polar a5 a (* h 0.194)))
(setq a7 (polar a6 (+ a (/ pi 2)) (* h 0.03)))
(setq a8 (polar a7 a (* h 0.182)))
(setq a9 (polar a8 (- a (/ pi 2)) (* h 0.024)))
(setq a10 (polar a9 a (* h 0.018)))
(setq a11 (polar a10 (+ a (/ pi 2)) (* h 0.121)))
(setq a12 (polar a11 a (* h 0.267)))
(setq a13 (polar a12 (- a (/ pi 2)) (* h 0.14)))
(setq a14 (polar a13 a (* h 0.145)))
; отрисовка квадрата
(command "PLINE" p1 "w" w "" a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 p1 "CLOSE")
)
нет, просто интересно, вчера не работала, а сегодня рисует, из-за чего рисует косыми линиями?!

[Дима_]

привязки отключи (setvar "osmode" 0) будет всегда работать - не зависимо от масштаба

[Хмурый]

Наверное состояние привязок не плохо вначале запомнить, дабы, после обнуленя и выполнения программы, привязки вернуть к исходному

[Дима_]

согласен - вариант классика:
(setq tmposmode (getvar "osmode"))
(setvar "osmode" 0)
.... действия без привязки
(setvar "osmode" tmposmode)

[Александр Ривилис]

А мне больше нравится вариант без отключения/включения привязок - с использованием "_none".

[Дима_]

2 Александр Ривилис - раскажи может и мне больше понравится.

[Кулик Алексей aka kpblc]

А лично мне еще больше нравится вариант entmakex или (vla-add-lightweightpolyline)

[Profan]

Мне тоже такой способ нравится. Например, если определены точки pt1 и pt2, то можно выражение для отрисовки отрезка записать так:

Код:

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

 
(vl-cmdf "_LINE" "_none" pt1 "_none" pt2 "")