[koMon]

Программа рисования прямоугольника по двум диагональным точкам.

Возможные переключаемые опции:

1. задание угла наклона прямоугольника (запомининие в сессии);
2. задание длины, ширины прямоугольника (запомининие в сессии);
3. включение/выключение абсолютного скругления (запомининие в сессии);
4. переключение рисования от точки/от центра (запомининие в сессии);
5. перемещение свободное/в указанную точку.

[Ingpro]

Лисп r_rectangle очень хорош.
Вот ешё пример построения прямоугольника по двум средним точкам

Код:

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

 ; David Bethel
; found at http://www.cadtutor.net/forum/showthread.php?63494-Lisp-for-rectangle
; Creates a rectangle from the mid points of opposing sides and then specify the length of the sides
(defun c:rect3v (/ p1 p2 d1 c1 c2 c3 c4)
(initget 1)
(setq p1 (getpoint "\nCenter Of 1st Side: "))
(initget 1)
(setq p2 (getpoint p1 "\nCenter Of 2nd Side: "))
(grdraw p1 p2 2 1)
(initget 7)
(setq d1 (getdist "\nOpposing Width: "))
(setq c1 (polar p1 (+ (angle p1 p2) (* pi 0.5)) (* d1 0.5))
c2 (polar p1 (+ (angle p1 p2) (* pi -0.5)) (* d1 0.5))
c3 (polar p2 (+ (angle p2 p1) (* pi 0.5)) (* d1 0.5))
c4 (polar p2 (+ (angle p2 p1) (* pi -0.5)) (* d1 0.5)))
(entmake (list (cons 0 "POLYLINE")(cons 66 1)(cons 70 1)(list 10 0 0 0)))
(foreach v '(c1 c2 c3 c4)
(entmake (list (cons 0 "VERTEX")
(cons 10 (eval v)))))
(entmake (list (cons 0 "SEQEND")))
(princ))