|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
16.01.2018, 18:59 | #1 | |
Нужен лиспик, рисующий биссектрисы треугольника.
Регистрация: 15.01.2010
Сообщений: 202
|
||
Просмотров: 3879
|
|
||||
Регистрация: 10.02.2007
Москва
Сообщений: 611
|
Похожая тема:
https://forum.dwg.ru/showthread.php?t=83128 |
|||
|
||||
Если используется AutoCAD 2018, то никаких лиспов не надо. Там есть инструмент "Осевая линия": http://autode.sk/2DjEEKH
__________________
Толковый выбор приходит с опытом, а к нему приводит выбор бестолковый. (The Mechanic) |
||||
|
||||
Лисп[ик↓↓↓], рисующий биссектрисы для выбранного треугольника многоугольника, в текущем незаблокированном слое. Треугольник Многоугольник должен быть полилинией замкнутой или незамкнутой, с совпадающими началом и концом.
Код:
Последний раз редактировалось koMon, 25.01.2018 в 09:50. |
||||
|
||||
Регистрация: 09.09.2017
Гомель
Сообщений: 19
|
Есть еще интересное решение от Lee Mac : http://www.lee-mac.com/dynamicanglebisection.html
|
|||
|
||||
Прикольно!) Наверное был отличником по геометрии!)
|
||||
|
||||
Setvar,
Offtop: У тебя ведь русский автокад? Не подскажешь ли любезно, что в нём будет на выходе функции ниже? (defun Check_Locale ( / AcaKey AcaVer AppKey TmpKey) (setq AcaVer (substr (getvar "ACADVER") 1 4) AppKey (strcat"\\Software\\Autodesk\\AutoCAD\\R" AcaVer) TmpKey (strcat "HKEY_LOCAL_MACHINE" AppKey) AcaKey (if (> (atof AcaVer) 15.0) (vl-registry-read (strcat "HKEY_CURRENT_USER" AppKey) "CurVer") (vl-registry-read TmpKey "CurVer") ) ) (vl-registry-read (strcat TmpKey "\\" AcaKey) "Language") ) |
||||
|
||||
Спасибо!)
Offtop: Вот ведь блин, а я наивно полагал, что будет Russian... |
||||
|
||||
Регистрация: 16.04.2016
Сообщений: 72
|
Если выполнять ваш лисп в чистом чертеже, то все нормально. А я попробовал в уже существующем.
|
|||
|
||||
Регистрация: 10.02.2007
Москва
Сообщений: 611
|
Судя по всему, ваш чертеж выполнен в метрах. Но не это главное. Главное - он находится страшно далеко от начала координат. Поэтому при вычислении координат точек возникает дикое расхождение. Если же чертеж перенести в начало координат, то отрисовка биссектрис выполняется приемлимо. Однако, в свою программу я никаких изменений вносить не буду.
Кстати, программа koMon из #4 строит биссектрисы нормально. Последний раз редактировалось Setvar, 19.01.2018 в 08:41. |
|||
|
||||
Регистрация: 16.04.2016
Сообщений: 72
|
Цитата:
----- добавлено через ~19 мин. ----- Я на свой страх и риск набрался наглости и внес в ваш лисп свои изменения. Теперь работает нормально, несмотря на то, что треугольник Код:
|
|||
|
||||
Регистрация: 10.02.2007
Москва
Сообщений: 611
|
Для 1958.
Никаких претензий по поводу метров и "далеко от начала координат". У каждого свои задачи. Но вот автор темы хотел "лиспик", я и слепил лиспики. Однако, с вашим вариантом фрагмента кода программа претендует на звание "Готовой". Поэтому я приведу здесь окончательный вариант нашей общей программы для случая выполнения треугольника в виде полилинии: Код:
|
|||
|
Опции темы | Поиск в этой теме |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужен ли ПОС в составе РП на реконструкцию | Тимофей | Технология и организация строительства | 21 | 13.09.2012 11:18 |
Нужен ли немецкий язык в строительстве? | newAndrey | Разное | 17 | 22.07.2011 17:55 |
Бойлерная в подвале. Нужен ли отдельный выход? | F0xik | Архитектура | 1 | 08.09.2009 11:49 |
Помогите, срочно нужен ПОС на прокол трассы. | Noki | Поиск литературы, чертежей, моделей и прочих материалов | 8 | 17.03.2009 01:10 |
нужен и интересный сортамент арматуры | Dvalin | Поиск литературы, чертежей, моделей и прочих материалов | 4 | 10.02.2008 19:06 |