| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Прямоугольник универсальный (по двум диагональным точкам).

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

Ответ
Поиск в этой теме
Непрочитано 28.07.2022, 16:27 #1
LISP. Прямоугольник универсальный (по двум диагональным точкам).
koMon
 
Регистрация: 26.09.2017
Сообщений: 1,665

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

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

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




Вложения
Тип файла: rar r_rectangle.rar (7.0 Кб, 72 просмотров)


Последний раз редактировалось koMon, 30.08.2022 в 14:20.
Просмотров: 2011
 
Непрочитано 19.01.2023, 10:48
#2
Ingpro


 
Регистрация: 11.07.2022
Сообщений: 451


Лисп 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))
Миниатюры
Нажмите на изображение для увеличения
Название: rect3v.gif
Просмотров: 40
Размер:	288.3 Кб
ID:	252685  

Последний раз редактировалось Ingpro, 19.01.2023 в 11:38.
Ingpro вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Готовые программы > LISP. Прямоугольник универсальный (по двум диагональным точкам).

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужен лисп или макрос, рисующий перечеркнутый прямоугольник по двум точкам lloydst LISP 13 25.09.2018 18:35
Как узнать пересекает прямоугольник объект или нет на LISP onix LISP 16 15.03.2016 10:48
Лисп по 4 точкам распределения прорисовывается прямоугольник dextron3 LISP 15 08.08.2014 10:16
LISP. Выравнивание текста по двум точкам. Krieger Готовые программы 10 24.12.2011 16:02
VBA Прямоугольник по 2 точкам ut2010 Программирование 4 15.10.2008 22:59