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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как сделать вектор из одного угла в другой c помощью Lisp?

Как сделать вектор из одного угла в другой c помощью Lisp?

Ответ
Поиск в этой теме
Непрочитано 01.04.2022, 14:35 #1
Как сделать вектор из одного угла в другой c помощью Lisp?
Владимир3256
 
Регистрация: 01.04.2022
Сообщений: 2

Здравствуйте, господа форумчане!
Подскажите функцию которая позволит сделать вектор из одного (произвольного) угла прямоугольника в другой (произвольный).
Заранее спасибо!!
Просмотров: 3190
 
Непрочитано 01.04.2022, 15:27
1 | 1 #2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Учитывая, что вектор - всего лишь направление:
Код:
[Выделить все]
 (defun vector1 (pt1 pt2 / dist)
  ;; call as
  ;; (vector1 (getpoint "\nStart : ") (getpoint "\nEnd : "))
  (setq dist (distance pt1 pt2))
  (mapcar (function (lambda (a b) (/ (* 1. (- a b)) dist)))
          pt2
          pt1
  ) ;_ end of mapcar
) ;_ end of defun
Это был единичный вектор. А вот "полный":
Код:
[Выделить все]
 (defun vector_full (pt1 pt2)
  ;; call as
  ;; (vector_full (getpoint "\nStart : ") (getpoint "\nEnd : "))
  (mapcar (function -) pt2 pt1)
) ;_ end of defun

__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 01.04.2022, 15:33
#3
Владимир3256


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


Спасибо большое
Владимир3256 вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Как сделать вектор из одного угла в другой c помощью Lisp?

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Какой язык перспективен для инженера-конструктора с условием The_Mercy_Seat Программирование 705 17.03.2021 14:19
Вставка чертежа из одного файла в другой Lassetti AutoCAD 29 23.03.2018 08:56
При копировании объектов одного чертежа, и вставке их в другой, вставляются не все элементы (AutoCad 2011) pomka AutoCAD 7 21.03.2013 14:33
Lisp. Как запретить выбор приметива? (можно ли такое сделать) Shraybicus LISP 8 08.02.2011 16:56
Проблема копирования из одного черчежа в другой! SANCHO AutoCAD 2 26.10.2010 21:36